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OPERADORES RELACIONAIS 



MAIOR, MENOR, IGUAL 
OPERADORES LÓGICOS 



TABELAS-VERDADE 



Os computadores são capazes de 
executar milhões de operações lógicas 
em apenas um segundo. Mas a lógica é 
também parte fundamental de qualquer 
programa. Conheça seus operadores. 



A programação BASIC utiliza três ti- 
pos de expressão: aritmética, de cadeia 
e iógica. As duas primeiras compõem a 
maior parte de qualquer programa. Po- 
rém, cabe às expressões lógicas a respon- 
sabilidade pelas decisões ao longo de um 
programa. 

A função das expressões lógicas é, 
simplesmente, verificar se algo é "ver- 
dadeiro" ou "falso". As palavras e sím- 
bolos usados para isso em um progra- 
ma são chamados de operadores (ou, 
ainda, conectores). 

Nas expressões lógicas empregam-se 
dots tipos de operadores: os operadores 
relacionais (que incluem símbolos ma- 
temáticos como < , > e = ) e os opera- 
dores lógicos: AND, OR e NOT (incluí- 



dos na lista de comandos de qualquer 
versão BASIC). 
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Os operadores relacionais podem ser 
usados até no mais simples dos progra- 
mas em BASIC. As comparações pos- 
síveis são: 

A>B A é maior que B 

A<B Aé menor que B 

A> = B .... A é maior ou igual a B 
A< =B .... A é menor ou igual a B 

A = B A é igual a B 

A < > B . . . . A não é igual a B 

Você já deve ter visto esses operado- 
res em vários programas de INPUT. 
Embora possam ser dsadas em aritmé- 
tica direta, é no uso conjunto com o 
IF...THEN que se torna mais evidente 
sua conlribuição nos testes condicionais. 
Um exemplo comum: 
IF A>B TH AN PRINT" A fi MAIOR 
QUE B" 



Neste caso, o valor de A deve ser 
maior que o de B para que o restante da 
linha seja executado. Sempre que o va- 
lor de A for menor que o de B, o pro- 
grama saltará para a próxima linha. O 
exemplo torna evidente a possibilidade 
de um salto condicional: se um conjun- 
to de valores satisfaz a condição, então 
o programa faz algo; se é um outro con- 
junto de valores que a satisfaz, então o 
programa faz outra coisa. 

O uso dos operadores relacionais não 
se limita a valores numéricos. Eles tam- 
bém podem ser empregados para com- 
parar cadeias. Contudo, isso requer cer- 
ta cautela; caso contrário, obtêm-se re_- 
sultados um tanto quanto estranhos. É 
importante lembrar, em primeiro lugar, 
que a comparação sempre pára no últi- 
mo caractere da cadeia mais curta. Ou 
seja, se uma cadeia contém onze carac- 
teres e outra contém sete, somente os se- 
te primeiros da cadeia mais longa serão 
comparados com os da cadeia mais 
curta. 

Na realíflade, a comparação» feita 
com um caractere dc cada vez, da es- 
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quer d a para a direita — e aqui se encon- 
tra a explicação para o surgimento de re- 
sultados estranhos. Numa comparação 
numérica, a afirmação 5> 10 é obvia- 
mente falsa mas, numa comparação en- 
tre cadeias, pode-se ter uma afirmação 
na forma AS>BS. Se A$ = "5" e 
BS = " 10", o computador compara pri- 
meiro os caracteres à esquerda — 5 e 1. 
Em seguida pára, pois para ele não há 
mais nada a ser comparado. 

Assim, temos uma condição "verda- 
deiro" incorreta, pois 5 é maior que 1, 
mas o computador ignorou o caractere 
que restou na cadeia mais longa. Esteja 
sempre atento a erros como este. 

Nas cadeias, as letras do alfabeto se- 
guem a seguinte ordem de comparação: 
"A"< "B"< "C"< "D", e assim por 
diante. Mais uma vez, seja cauteloso, 
pois o computador não entende o signi- 
ficado dos caracteres. Na verdade, o que 
ele faz é comparar os códigos dos carac- 
teres, o que explicaremos com mais de- 
talhes num próximo artigo. Em conse- 
quência, os espaços e outros caracteres 
que não são letras lornam-se tão impor- 
tantes quanto as próprias letras, pois ca- 
da um tem seu código. Esquecer-se dis- 
so resultaria em erro, por exemplo, num 
programa que coloca cadeias em ordem 
alfabética. 

Se cada cadeia tem a mesma sequên- 
cia de caracteres, a mais longa será con- 
siderada a maior, numericamente. Mas 



note que a cadeia mais curta é tomada 
como a maior numa expressão como 
"ABD">"ABCD", pois a compara- 
ção para quando encontra a primeira di- 
ferença — ou seja, quando os valores 
dos códigos de "D" e "C" são compa- 
rados. A prioridade, portanto, é pare- 
cida com aquela dos dicionários ou ín- 
dices, onde "amor" vem antes de 
"amoroso" mas depois de "amargo". 



Depois de qualquer comparação, 
obtém-se um resultado — um número 
inteiro. Este ê 0, se a comparação for 
falsa, e -1 ou 1 (dependendo da má- 
quina), se for verdadeira. 

Experimente inserir no seu micro- 
computador, em modo direto (imedia- 
to), a seguinte linha: 

PHINT 6>b , 5>7 

A expressão da esquerda é verdadei- 
ra e a da direita, falsa. Você verá apa- 
recer na tela, portanto, o resultado 1 (ou 
-I) e 0. 

Os resultados obtidos numa compa- 
ração podem ser usados em cálculos no 
decorrer do programa. Mas tome cuida- 
do com a divisão: qualquer lentalivu de 
dividir um número por 0 resultaria nu- 
ma mensagem de erro. 



OPERADORES LÓGICOS 



AND, OR e NOT são operadores ló- 
gicos que auxiliam na tarefa de decisão 
do IF—THEN (página 41). Por exem- 
plo: IF (se) isto é verdadeiro AND (e) 
aquilo é verdadeiro THEN (então) faça 
alguma coisa. Os outros dois operado- 
res seriam usados da mesma man 

Estes operadores — às vezes chama- 
dos de operadores booleanos (inventa- 
dos pelo matemático inglês George Boo 
le) — podem ser empregados para com- 
parar números ou cadeias, tanto no 
do direto como no modo de programa, 
e obter um "valor verdade" para o que 
se considera uma condição de teste mui- 
to complexa. Eles oferecem um caminho 
mais curto para o cumprimento de uma 
tarefa que envolveria um amontoado de 
ÍF...THEN. 



Simplificadamente, o operador AND 
pode ser considerado como tendo o sig- 
nificado de E. Numa expressão como: 



...a mensagem aparece na tela somente 
se V for maior que 0 e menor que 100. 
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Num programa, leríamos algo como: 

S5I]@] 

990 0KAY-1 AND MES>5 AND MES<10 
AND ANOM900 AND ANO<2001 



990 0KAY--1 AND MES>5 AND MES<1 
0 AND ANO1900 AND ANO<2001 

Uma linha de programa como esta 
poderia ser empregada para vários fins 
— por exemplo, para verificar se uma 
cena data caiu no inverno, no século 
vinte. 

Utiliza-se o AND, no caso, para co- 
mandar quatro testes. Todos devem ser 
verdadeiros para que a variável OKAY 
permaneça como verdadeira. Nesse tes- 
te de validade, primeiramente ajusta-se 
a variável OKAY como "verdadeira" 
( — 1 , ou I no Sinclair e Apple). Depois, 
a condição necessária é que MES esteja 
entre 6 e 9 e que AND esteja entre 1901 
e 2000 (inclusive). 

Verifiquemos mais de perto o que 
acontece: se as condições forem total- 
mente satisfeitas, todas as expressões 
produzirão um valor verdadeiro. Em 
consequência, a linha de programa fi- 
caria assim: 




990 OKAY- -1 AND -1 AND -1 AND 

-1 AND -1 

(nos micros da linha Sinclair e Apple se- 
ria I, em vez de -I) 

Se acrescentarmos PR1NT OKAY, 
verificaremos que, de fato, o resultado 
é —1, ou seja, verdadeiro. 




Embora o significado de OR (tradu- 
zindo, teríamos OU) seja diferente do 
de AND, ambos podem ser considera- 
dos semelhantes em relação à maneira 
como são usados. 

Vejamos um exemplo simples, que 
emprega OR na comparação de valores 
de uma determinada variável. 

IF V=8 OH V=10 PRINT" OKAY " 

A mensagem aparecerá na tela se o 
valor de V for 8 ou 10. 

O emprego do OR é muito útil na 
verificação da validade dos dados in- 
troduzidos no computador via coman- 
do 1NPUT. Se temos, por exemplo, 
um programa que pergunta pela idade, 
com certeza haverá alguém que, só por 
curiosidade, responderá —10 ou 999. 

Para contornar problemas como es- 
se, usamos a seguinte alternativa: 



10 INPUT A 

20 IF A<1 OR A>120 THEN PRINT" 
SEJA SENSATO ": GOTO 10 




O terceiro operador lógico de uso 
bastante comum é o NOT. Ele difere um 
pouco dos outros, pois age somente na 
expressão numérica ou lógica que o se- 
gue — AND c OR comparam expressões 
nos dois lados, mas NOT trabalha so- 
bre um único valor. 

Veja um exemplo do uso do NOT. 

IF NOT (AMD) THEN 999 

Se traduzíssemos isto para uma lin- 
guagem do dia-a-dia teríamos: "se o va- 
lor de A não é maior que 10, então vá 
para a linha 999". 

A função lógica do NOT é converter 
para falsa uma condição verdadeira, ou 
vice-versa. Poderíamos utilizá-lo, por 
exemplo, como uma chave que inverte 
a condição falso/verdadeiro obtida no 
resultado de uma operação anterior. 



TABELAS - VERDADE 



Ouvimos falar de "tabela-verdade" 
sempre que o assunto é operadores ló- 
gicos. Bem, elas são muito siaples. Sua 
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função consiste em fornecer uma repre- 
senlação visual do que acontece com os 
falso/verdadeiro quando usamos AND 
e OR sobre eles. NOT não pnecísa de ta- 
bela, já que produz sempre o inverso. 

As tabelas podem assumir várias for- 
mas; uma típica para o AND é: 



- 1 - 1 - 1 linha 1 

- 1 0 0 linha 2 

0 - 1 0 linha 3 

0 0 0 linha 4 

Para desvendar o significado da ta- 
bela, basta interpretá-la linha por linha. 
Linha 1: "Se A é verdadeiro e B é ver- 
dadeiro, então C também é verdadei- 
ro". Linha 2: "Se A é verdadeiro e B 
é falso, então C é falso". Linha 3: "Se 
A é falso e B é verdadeiro, então C é fal- 
so". Linha 4: "Se A e B são ambos fal- 
sos, então C é falso". 

A tabela-verdade para o OR é: 
ABC 



- 1 - 1 - 1 linha 1 

- 1 0 - 1 linha 2 

0 - 1 - 1 linha 3 

0 0 0 linha 4 

Na primeira Unha, lê-se: "Se A é ver- 
dadeiro e B é verdadeiro, então C é ver- 



dadeiro". Nas linhas 2 e 3 lê-se: "Se A 
ou B for verdadeiro, então C é verda- 
deiro". A linha 4 significa: "Se A e B 
são ambos falsos, então C também é 
falso" 

Apresentamos aqui um programa 
que usa AND, OR e NOT. Trata-se de 
uma versão simplificada de um progra- 
ma que calcula a escala de salário cor 
reta para o candidaio a um emprego. 

10 INPUT" IDADE" ; IDADE 

20 INPUT-NUMERO DE REFERENCIAS" 

iRKF 

30 MAIOR18- tIDADE>-18) 
40 QUAL- (REF>-5) 

50 IF NOT MAIORIA AND NOT QUAL 
THEN PRINT "NAO QUALIFICADA" 
60 IF (NOT MAI0R18 AND QUAL) OR (M 
AIOR18 AND NOT QUAL) THEN PRIN 
T "ESCALA 1 DE SALÁRIO" 
70 IF MAI0R16 AND QUAL THEN PR 
INT "ESCALA 2 DE SALÁRIO" 

Digamos que o candidato tenha res- 
pondido 20 para idade e 4 para nú- 
mero de referências. Isso significa que 
(IDADE > =18) é verdadeiro, mas 
(REF> = S) é falso. A pessoa, portan- 
to, é MA10R18 e NÃO QUALificada. 
Na linha 60, encontramos outro conjun- 
to de condições que, caso satisfeitas, se- 



lecíona a primeira escala de salários. Po- 
deríamos facilmente modificar o progra- 
ma para testar mais condições, por 
exemplo: verificar se a pessoa tem mais 
de dois anos de experiência, etc. 



OPERAÇÕES NUMÉRICAS 



O uso dos operadores lógicos não es- 
tá limitado somente ao IF...THEN. Eles 
também podem ser usados com alguns 
tipos de operações numéricas. Talvez 
você tenha visto esse tipo de uso em pro- 
gramas anteriores, mas ficou sem saber 
o que estava acontecendo. Na verdade, 
eles nem sempre funcionam da maneira 
óbvia, como poderíamos esperar. Ten- 
te isto no modo direto: 

PRINT 375 AND 47 

Se você esperou que o resultado fos- 
se 422 ou até mesmo 37547, errou. Na 
verdade, temos 39 como resultado. O 
que estaria acontecendo então? Somente 
se nos aprofundarmos um pouco no 
funcionamento dos computadores pode- 
remos entender o que ocorre com o 
AND desse exemplo. 

Em primeiro lugar, as expressões (375 
e 47) são transformadas em números in- 
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teiros de dois bytes. Na forma binária, 
ficam assim: 

375 em binário de dois bvies: 

0000000101110111 
47 em binários de dois bytes: 

0000000000101111 

Em seguida, o AND compara bit a 
bii todos os dezesseis bits, produzin- 
do um "1" somente quando, no par de 
bits comparados, ambos forem "1". Da 
direita para a esquerda, os únicos pares 
de bits que satisfazem (produzem "1") 
são os de números 0,1,2 e 5. Isto resul- 
ta no número binário 00000000001001 1 1 
que, transformado| para decimal, é 39. 
Portanto. 375 AND 47 é igual a 39. 

Agora, tente em modo direto: 

PRINT 375 OR 47 

Como obtivemos 383? Lembre-se da 
propriedade do OR: produz-se "1" 
quando, no par de bits comparados, pe- 
lo menos um dos bits for "1". Obser- 
vando novamente a forma binária de 
375 e 47. vemos que os pares de bits de 
número 8, 6, 5, 4, 3, 2, 1 e 0 produzem 
"1" quando comparados pelo OR. Is- 
to resulta no binário 0000000101 111111, 
que equivale ao 383 decimal. 

Com OR é possível obter o mesmo 
resultado, usando expressões diferentes. 
PRINT 375 OR 75, por exemplo, tam- 



bém resulta em 383. Caso queira verifi- 
car, faça o seguinte: converta para bi- 
nário, compare pelo OR e converta de 
volta para decimal o resultado obtido. 

O valor -1 | (armazenado como 
FFFFFFFF em hexadecimal — um ar- 
ranjo de bits onde todos valem 1) não 
se altera quando comparado pelo OR 
com qualquer outro valor. Faça uma ex- 
periência, tentando no modo direto: 

PRTNT -1 0R 375 

O resultado é -1. 
Vejamos agora uma aplicação numé- 
rica para o NOT. 

PRINT NOT 10.75 



NOT -11 



O resultado é -11 e 10. O NOT so- 
mou 1 ao valor e depois mudou seu si- 
nal. Note que a parte não inteira (.75) 
foi ignorada e eliminada, e que o novo 
valor pode ser estimado usando X = 
- (X + 1). Na realidade, o valor é trans- 
formado num inteiro de quatro bytes, 
com todos seus bits invertidos. 




Ofl? 

No TRS-Color e MSX. os números 
empregados em qualquer operação 
com AND ou OR têm que estar entrt 
-32768 e +32767; caso contrário 
teremos uma mensagem de erro. 

No Spectrum, Apple e TK-2000 nã< 
é possível usar números nas operações 
AND ou OR. 



i é 



Os operadores lógicos destes compu- 
tadores não fazem comparação bit a bit 
dos números e, por isso, quase nunca 
são usados em operações numéricas. 
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Na última seção de Programação de 
Jogos, dispúnhamos de um conjunto 
completo de posições para nossa aven- 
tura e o jogador já estava capacitado a 
explorar todas elas. As movimentações 
do aventureiro, porém, até agora não 
têm propósito, uma vez que o mundo da 
aventura está vazio. Convém, assim, re- 
tomar o planejamento inicial e examinar 
o que se pretendia incluir em cada ponto. 

Veremos, em seguida, como adicio- 
nar ao programa as rotinas que coloca- 
rão os objetos envolvidos na aven- 
tura em seus devidos lugares. 
Outras rotinas permitirão ao 
jogador carregar objetos consi- 
go ou deixá-los de lado. Escre- 
veremos, ainda, uma rotina pa- 
ra listar um inventário de todos 
os itens utilizados — ela será 
importante para o jogador, quando 
ele se deparar com um problema e pltd 
cisar verificar exatamente a situação dg 
cada objeto. 

Use o I.OAI) c carregue o progra 
usado recentemente, deixando-0 " 
to para receber as novas rotinas, 



A maquina precisa saber três coisas 
sobre cada objeto da aventura: o luime- 
ro de posição onde foi inicialmente ooi 
locado, seu nome (ou descrição curt»);; 
e, finalmente, a descrição detalhada der? 
local onde se encontra. As três informa-' 
ções são necessárias já que, primeiro, o 
computador deverá escolher um objeto 
adequado a cada posição. Depois, pre- 
cisará contar ao aventureiro que obje- 
tos estão nesta posição — mesmo que 
use uma longa descrição. E, por último, 
terá que dispor de um nome para usar 
em instruções e na lista. 

Os números de posição serão coloca- 
dos em uma matriz, o nome do objeto 
em outra, c a descrição longa em uma 
terceira. As três matrizes serão manipu- 
ladas em paralelo pelo programa — ca- 
da elemento da matriz guardará um es- 
paço equivalente de informação sobre o 
objeto: o primeiro conterá o número da 
posição, o segundo o nome do objeto e 

| assim por diante. Adicione estas ■linhas 

I ao seu programa: 



Chegou a hora de preencher o mundo 
ainda vazio de nossa aventura. 
Você verá aqui como acrescentar 
ao programa uma lista de objetos 
e, também, como manipulá-los. 
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LINHAS DATA 


■ MAIS VERBOS 




PARA A LISTA DE OBJETOS 


■ COMO PEGAR E LARGAR OBJETOS 



DESCRI Ç ÕES CURTAS E LONGAS 
COLOCAÇÃO DOS OBJETOS 



NAS POSIÇÕES CORRETAS 



COMO MOSTRAR AO JOGADOR 
A LISTA DOS OBJETOS 




160 REM ** PREPARA MATRIZES DE 

OBJETOS** 

170 READ NB 

180 DIM B (NB) : D1M BS(NB.14) : 
D I M SS(NB,40) 

190 FOR 1-1 TO NB : READ BUl.B 

S (D .SS (I) : NEXT I 

200 DATA 7.4. "SACO" . "HA UM SAC 

O DE BOLAS DE GUDE AQUI" 

210 DATA 14 , "TIJOLO" , "TEM UM T 

IJOLO NO CHAO" 

220 DATA 24 , "CORRENTE" . "HA UMA 
CORRENTE PENDURADA SOBRE O TR 
ONO" 

230 DATA 0. "REVOLVER" , "TEM UM 

REVOLVER NO CHAO" 

240 DATA O, "OLHO". "UM OLHO CRA 

VEJADO DE BRILHANTES ESTA NO C 

HAO" 

250 DATA 22. "LÂMPADA" . "VOCE ES 
TA DIANTE DE UMA LÂMPADA" 
260 DATA 0."COLETOR"."DE REPEN 
TE SURGE UM COLETOR DE IMPOSTO 
S" 



'160 REM ""PREPARA MATRIZES DE O 
'JJETOS*' 
170 READ NB 

180 DIM OB(NB) ,OBS{NB) .SIS(NB) 
190 FOR 1-1 TO NB : READ OB(I),OB 

,SI$(I) : NEXT 
200 DATA 7, 4. SACO, HA UM SACO DE 

BOLAS DE GUDE AQUI 
210 DATA 14. TIJOLO. TEM UM TIJOL 
O NO CHAO 

220 DATA 24, CORRENTE. HA UMA COR 
RENTE PENDURADA SOBRE O TRONO 
230 DATA 0. REVOLVER. TEM UM REVO 
LVER NO CHAO 

240 DATA 0. OLHO, UM OLHO CRAVEJA 
DO DE BRILHANTES ESTA NO CHAO 
250 DATA 2 2, LÂMPADA, VOCE ESTA D 
IANTE DE UMA LÂMPADA 
260 DATA 0, COLETOR, DE REPENTE S 
URGE UM COLETOR DE IMPOSTOS 

Cada linha entre 200 e 260 contém 
três partes dos dados referentes ao mes- 
mo objeio. A linha 200 apresenta um 
dado a mais em sua lista. O número 7 
— o primeiro do comando DATA — diz 
à máquina quantos conjuntos de dados 
existem. 

Uma vez que o número 7 tenha sido' 
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lido pela linha 170, três matrizes serão 
dimensionadas para este tamanho, pela 
linha 180. OB conterá a posição de ca- 
da objeto — um número da posição, ou 
0, se o elemento ainda não existe (ê co- 
mo se fosse a tampa de um baú, que pre- 
cisasse ser aberto a cada aventura), e 
— 1, se está sendo levado pelo aventu- 
reiro. OBS conterá a descrição curta e 
SIS a descrição longa. 

A linha 190 completará a matriz com 
os dados das linhas 200 a 260. Os co- 
mandos DATA estão arrumados em 
conjuntos de três elementos: um núme- 
ro de posição, a descrição curta do ob- 
jeto e a descrição longa do objeto. 

Para usar a mesma rotina em outras 
aventuras, não é necessário fazer mui- 
tas alterações nessa estrutura, pois, aji 
tando a primeira parle dos dados, au 
tomaticamente os comandos FOR.. 
NEXT e as dimensões das matrizes es 
tarão ajustados. 



COMO POSICIONAR OS 0BJET0S 



O programa contém agora todas as 
informações sobre os objetos e as posi- 
ções onde deverão ser colocados. A ro- 
tina seguinte exibe a descrição longa do 
objeto quando o jogador está no local 
adequado. 



360 REM "«COLOCA CADA OBJETO E 
M SEU LUGAR** 

370 FOR 1-1 TO NB: IF B(I)-L 
TfJEN PRINT SS(I) 
380 NEXT I 

■ * 

360 REM**COLOCA CADA OBJETO EM 
SEU LUGAR** 

370 FOR 1-1 TO NB : IF OBID-L T 
HEN PRINT SIS(I) 
380 NEXT 

Neste estágio, faça uma pequena al- 
teração nas linhas 330 e 340: troque GO- 
TO 400 para GOTO 370. As linhas 370 
e 380 checam a matriz que guarda a po- 
sição do objeto. Se algum número de 
posição combinar com a posição corren- 
te — t — uma descrição curta será exi- 
bida após a descrição da posição. Essa 
rotina pode ser usada em outras aven- 
turas, sem alterações. 



A aventura inclui objetos em diferen- 
tes posições mas, como a máquina alé 
aqui não entende qualquer palavra ex- 
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ceto NORTE, SUL, LESTE c OESTE, 
o pobre aventureiro não pode fazer na- 
da com eles. Imagine sua frustração ao 
se ver incapaz de pegar o ião desejado 
saquinho de bolas de gude. ou sem con- 
dições de se defender do fiscal da Re- 
ceita! Precisamos fornecer ao computa- 
dor um vocabulário de palavras que ele 
possa reconhecer, informando o que fa- 
zer com os objetos. Mais tarde, veremos 
como proceder se o jogador entrar uma 
palavra que não está no vocabulário 
programado. 

Como o programa trata todas as pa- 
lavras de direção como verbos, o melhor 
lugar para os verbos, que descrevem o 
que fazer com os objetos, é a matriz RS 
e, para os números correspondentes, R. 

Precisaremos, no entanto, fazer algu- 
mas alterações na linha 130. Os limites 
do FOR...NEXT deverão ser mudados. 
Reescreva ioda a linha ou use o editor 
da máquina para mudá-la. Seja qual for 
sua escolha, a linha 130 será agora: 



Agora, adicione as linhas 140 e 145: 



140 DATA "NADAR" , "5" , "ESVA2IAR 
" . "6* , "ACENDEU" . "7" , "DESISTIR" 
."8". "LISTAR", "9". "MATAR". "10" 
. "ATIRAR" , "10" . "AJUDAR" , "11" 
145 DATA "PEGAR" , "2" , "APANHAR" 
, "2" , "CARREGAR" , "2" , "COLOCAR" , 
"3", "DEIXAR" , "3" , "LARGAR" , "3", 
"PUXAR" , "4" 



140 DATA NADAR. 5 , ESVAZIAR , 6 . ACE 
NDER , 7 . DESISTIR , 8 . LISTAR . 9 , MATA 
R , 1 0 , ATIRAR ,10. AJUDAR , 1 1 
14S DATA PEGAR. 2, APANHAR. 2, CARR 
EGAR . 2 . COLOCAR. 3 , DEIXAR , 3 , LARGA 
R , 3 . PUXAR , 4 

A cada verbo corresponde um núme- 
ro. Verbos com o mesmo número pos- 
suem o mesmo significado e, portanto, 
o mesmo efeito. Planejamos o progra- 
ma de modo que o computador reconhe- 
ça, por exemplo, PEGAR, APANHAR 
e CARREGAR, evitando que o aventu- 
reiro gaste seu precioso tempo tentando 



descobrir qual desses verbos usar. Você 
pode facilmente adicionar suas próprias 
palavras às linhas de comando DATA: 
basta trocar o laço FOR...NEXT na li- 
nha 130 e colocar outro comando DA- 
TA após a linha 145. Você deverá fazer 
algumas alterações em outros locais do 
programa mas, nas próximas seções de 
Programação de Jogos, informaremos 
exatamente como proceder. 



SELECÃ0 DAS ROTINAS ADEQUADAS 



Depois de entrar todos os verbos na 
última rotina, o computador precisará 
de outras rotinas que o tornem capaz de 
agir conforme as instruções e de fazer 
com que o aventureiro carregue alguns 
objetos. 

A sub-rotina que começa na linha 
3010, por exemplo, define V$, NS e I 
(um número da matriz R que você já de- 
ve ter escrito). 

Esta pequena rotina fará com que a 
máquina seja capaz de selecionar a ro- 
tina correta, de acordo com o valor de 
I — que é o significado da entrada do 
aventureiro. 



O Spectrum não lem o comando 
ON...GOTO, usado em programas pa- 
ra outros computadores. As linhas do 
programa, portanto, têm que ser um 
pouco diferentes. 

.lá temos uma matriz, G, que contêm 
números de linha para as descrições de 
posição. Os números de linha necessá- 
rios às novas rotinas podem ser adicio- 
nados a esta matriz. 

Por isso, a linha 30 ficou assim: 



E é também pelo motivo acima que 
essa linha contém todos os números de 
linha que precisaremos (veja a explica- 
ção completa no artigo da página 270). 

70 DATA 1010.1150.1240,1310. 

1410,1460,1500.1360.1080.1550 

.3110 

Agora, adicione a rotina que solucio- 
nará a rotina correta, de acordo com o 
valor de I: 

500 REM **SELECIONA OPCAO** 
510 IF 1-0 THEN GOTO 520 
520 PRINT '"EU NAO SEI COMO "; 
VS: GOTO 370 

Se a sub-rotina de verificação de ins- 
trução que começa na linha 3010 não en- 
contrar uma combinação para V$ em 
RS, I torna-se zero e a linha 510 faz com 



que a mensagem "EU NAO SEI CO- 
MO" surja na tela. Se I tiver qualquer 
outro valor, a linha 515 encontra o nú- 
mero de linha correio na matriz G e exe- 
cuta um GOTO. 

DBWS1E! 

500 REM**SELECIONA OPCAO*" 

505 IF 1-0 THEN GOTO 520 

510 ON I GOTO 1010.1150,1240.13 

10,1410,1460,1500.1360,1080.155 

0,3110 

520 PRINT: PRINT "EU NAO SEI COM 

0 "iV3:G0T0 370 

Os números após o ON...GOTO na 
linha 510 iniciam as diversas rotinas. 
Cada valor de I é um verbo diferente ou 
um grupo de verbos. Se 1 = 10, por 
exemplo, a rotina "MATAR" será se- 
lecionada — e, sendo o décimo número 
na linha, ela começará na linha 1550. 

Se a sub-rotina de verificação de ins- 
trução que começa na linha 3010 não en- 
contrar uma combinação de VS em RS, 

1 torna-se 0. Nesse caso. o ON...GOTO 
na linha 510 não terá nenhum efeito. A 
mensagem na linha 520 será exibida na 
tela. 



COMO PEGAR OS OBJETOS 



Já temos uma rotina para quando I 
for igual a l, o que ocorre quando o 
aventureiro dá uma ordem. Ela está en- 
tre as linhas 1010 e 1060. 

Quando 1 =2. o aventureiro digitou 
uma rotina "PEGAR" — ou seja, as 
palavras PEGAR, APANHAR ou 
CARREGAR. Esta rotina, apresentada 
a seguir, permitirá ao aventureiro pegar 
e conservar consigo qualquer objeto que 
esteja na posição. 



1140 REM ""PEGAR"* 

1150 FOR G-l TO NB 

1160 IF NS-BS(G. TO LEN NS) THE 

N GOTO 1190 

1170 NEXT G 

1180 PRINT NS:"???": GOTO 330 

1190 IF B(G) — 1 THEN PRINT "VO 

CE PEGOU" : GOTO 330 

1200 IF BIGIOL THEN PRINT "NA 

O ESTA AQUI": GOTO 330 

1210 PRINT "OK": LET B IG) — 1 

1220 GOTO 330 

£iQ'/,'j 

1140 REM* "PEGAR** 
1150 FOR G-l TO NB 

1160 IF INSTR [OBS (G) ,NS> =1 THEN I 
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1170 NEXT 

1180 PRINT NS;"???":GOTO 330 

1190 IF OB(G) — 1 THEN PRINT "V0 

CE PEGOU" :GOTO 330 

1200 IF 0BIG1OL THEN PHINT "NA 

0 ESTA AQUI" : GOTO 330 

1210 PRINT "0K":OB(G)=- 1 

1220 GOTO 330 

SC El 

1140 BEM " PEGAR ** 

1150 FOR G - 1 TO NB 

1160 IF NS - LEFTS (OBS (G) , L 

EN (NS) ) THEN 1190 

1170 NEXT 

1180 PRINT NSi" 77"; GOTO 330 

1190 IF OB(G) - - 1 THEN PRI 
NT "VOCE PEGOU": GOTO 330 

1200 IF OB(G) < > L THEN PRI 
NT "NAO ESTA AQUI": GOTO 330 

1210 PRINT "OK":OB(G) - - 1 

1220 GOTO 330 

As linhas 1150 a 1170 procuram a 
matriz comendo a descrição curta — BS, 
no caso do Spccirum, e OBS nos demais 
computadores — do objeto que o aven- 
tureiro chamou. Se este é encontrado, 
o programa pula para a linha 1 190. Ca- 
so contrário, a linha 1 1 80 exibe o nome 
do objeto que o aventureiro digitou, se- 
guido de pontos dc interrogação. 

Depois de encontrar o nome do ob- 
jeto, duas verificações são feitas. A li- 
nha 1 190 checa o elemento da matriz de 
posição do objeto — B ou OB — , para 
saber se ele já foi levado. Em caso afir- 
mativo (o valor do elemento da matriz 
é -I), aimensagem "VOCÊ PEGOU" 
será exibida. 

A linha 1200 verifica se o objeto está 
presente, examinando novamente a po- 
sição da matriz. Se ele não estiver pre- 
sente, o programa exibirá a mensagem 
"NÃO ESTA AQUI". Você poderá tro- 
car essa mensagem, se ela não servir pa- 
ra a sua aventura. 

Caso o objeto não tenha sido levado 
e se encontre na mesma posição que o 
aventureiro, a linha 1210 exibirá "OK" 
e o elemento na matriz de posição de ob- 
jetos será mudado para —1. 



COMO DEIXAR 0BJET0S DE LADO 



A rotina "DEIXAR" faz o contrá- 
rio. Ela permite que o jogador abando- 
ne qualquer dos objetos que pegou. 




1230 REM "DEIXAR" 

1240 FOR G-l TO NB 

1250 IF N$-BSÍG, TO LEN NS) THE 

N GOTO 1270 



1260 NEXT G : PRINT NS;"???": GO" 
TO 330 

1270 IF B(G)<>-1 THEN PRINT "V 
OCE NAO PODE LARGAR 0 QUE NAO T 
EH" : GOTO 330 

1280 PRINT "OK": LET B(G)-L 
1290 GOTO 330 

1230 REM" DE IX AR" 
1240 FOR G-l TO NB 
1250 IF INSTR(OBS(G) .NSl-l THEN 
1270 

1260 NEXT : PRINT NS ;"???": GOTO 3 
30 

1270 IF 0BIG1O-1 THEN PRINT "V 

OCE NAO PODE LARGAR O QUE NAO T 

EM":GOT0 330 

1280 PRINT "OK":0B(G)'L 

1290 GOTO 330 

mm 

1230 REM " DEIXAR " 

1240 FOR G - 1 TO NB 

1250 IF NS - LEFTS (OBS <G) , L 

EN (NS) ) THEN 1270 

1260 NEXT : PRINT NS ; " ??" : GO 

TO 330 

1270 IF OBÍG) < > - 1 THEN 
PRINT "VOCE NAO PODE LARGAR O Q 
UE NAO TEM" : GOTO 330 
1280 PRINT "OK":OB(G) - L 
1290 GOTO 330 

Seu funcionamento se assemelha 
muito ao da rotina "PEGAR", vista an- 
teriormente. A matriz de descrição cur- 
ta é mais uma vez procurada — agora 
nas linhas 1240 a 1260. Se o objeto pe- 
dido estiver na matriz, a linha 1270 ve- 
rifica se está sendo levado pelo aventu- 
reiro. Se não estiver, o computador exi- 
birá a mensagem "VOCÊ NÃO PODE 
LARGAR O QUE NÃO TEM". 

Se o aventureiro estiver carregando 
o objeto, a linha 1280 exibe "OK" e o 
elemento apropriado na matriz de posi- 
ção de objetos — OB ou B — é ajusta- 
do. Ele toma, então, o número da posi- 
ção corrente — L — , já que -1 signifi- 
ca que o objeto estava sendo carregado. 



A LISTAGEM DO SAQUE 



O aventureiro distraído ficará muito 
grato ao obter uma lista de lodos os ob- 
jetos que carrega. 

Aqui está uma rotina que faz exata- 
mente isso: 



1070 REM "LISTAR" 

1080 PRINT "VOCE TEM ";: LET IN 

-0 



1090 FOR G-l TO NB 

1100 IF B(G>— 1 THEN PRINT TAB 

10;BS(G) : LET IN-IN+1 
1110 NEXT G 

1120 IF IN-0 THEN PRINT "NADA" 

1130 GOTO 330 

1070 REM" LISTAR** 

1080 PRINT "VOCE TEM " : : IN-0 

1090 FOR G-l TO NB 

1100 IF OBÍG)— 1 THEN PRINT TAB 

(10)OBS(G) :IN-IN+1 

1110 NEXT 

1120 IF IN-0 THEN PRINT "NADA" 
1130 GOTO 330 

LIE] 

1070 REM ** LISTAR ** 

1080 PRINT "VOCE TEM * ; : IN - 0 

1090 FOR G - 1 TO NB 

1100 IF OB(G) - - 1 THEN PRI 

NT TAB í 10) ;OBS(G) : IN - IN + 1 

1110 NEXT 

1120 IF IN - 0 THEN PRINT "NA 
DA" 

1130 GOTO 330 

"VOCÊ TEM" será exibido pela li- 
nha 1080, antes que se inicie a listagem 
dos objetos. O laço FOR.. .NEXT che- 
ca, um a um, os elementos da matriz de 
posições de objetos. Dessa vez, os ele- 
mentos importantes são os que contêm 
-I, indicando que o objeto está sendo 
carregado. Se o valor dc qualquer um 
dos elementos for -1. a descrição cur- 
ta do objeto será, então, exibida. O con- 
tador do inventário I será incrementa- 
do de 1. 

Se nenhum objeto estiver sendo car- 
regado, o contador IN continua em ze- 
ro e a linha 1 120 exibe "NADA", em 
vez da lista de objetos. 

As rotinas "PEGAR", "DEIXAR" 
e "LISTAR" podem ser usadas como 
estão, se NB for definido em uma roti- 
na anterior. 

Agora, o programa está pronto pa- 
ra receber as rotinas finais, que serão 
apresentadas num próximo artigo. Elas 
se referem ao fiscal da Receita, ao ti- 
jolo, à lâmpada, à procura do globo 
ocular, ao término da aventura e, fi- 
nalmente, à instrução descrevendo o ob- 
jeto da busca. 

Se você fizer uma experiência, execu- 
tando o programa neste estágio, verá 
que, enquanto parte dele funciona, al- 
guma coisa estranha acontece. A razão 
para isso è que o programa requer um 
número de rotinas que ainda não exis- 
te. Se você entrar certas palavras, o pro- 
grama tentará desviá-las para linhas ine- 
xistentes. 
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MENSAGENS DE ERROS 
ORIENTAÇÕES OBSCURAS 
OS ERROS MAIS COMUNS 
TESTE SUA HABILIDADE 
EM DETECTAR ERROS 



Nenhum programa está livre òe erros. 
Aprenda a localizá-los e habitue-se a 
corrigi-los na medida em que aparecem. 
Esta é, sem dúvida, a melhor maneira 
de evitar problemas mais sérios. 



Nenhum programa, de qualquer ta- 
manho, que esteja sendo desenvolvido 
ou simplesmente copiado de uma lista- 
gem, está completamente livre de erros 

— os "grilos". Estes aparecem pelas 
mais diversas razões e comprometem o 
programa em graus diferentes. 

Os erros mais sérios podem impedir 
que um programa seja rodado. Oulros, 
simplesmente, permanecem ocultos, até 
que certa rotina ou sequência de entra- 
das os revele. Por exemplo, em um jo- 
go de aventuras, tudo pode funcionar 
perfeitamente até que o jogador tome 
um determinado caminho, carregando 
uma faca — e cai num buraco que não 
deveria estar ali. Ou, em um programa 
de contabilidade, pode-se de repente en- 
contrar um erro enorme, que afeta ape- 
nas as entradas feitas na segunda sema- 
na de dezembro. 

O primeiro tipo de erro deve ser com- 
pletamente eliminado antes da utilização 
do programa. 

E o segundo? Bem, o ideal seria 
procurá-los sistematicamente, para evi- 
tar surpresas. A melhor maneira de fazê- 
lo é testar cuidadosamente o programa 

— o que inclui tentar o inesperado, co- 
mo entrar uma sequência "impossível" 
de entradas. Para auxiliar nesse tipo de 
tarefa, existem rotinas muito úteis, es- 
peciais para detecção de erros. Logo fa- 
laremos sobre elas. 



MENSAGENS DE ERRO 



Todos os computadores domésticos 
produzem mensagens de erro, de um ti- 
po ou de outro. Você já deve ter encon- 
trado várias delas, desde que começou 
a utilizar o computador. 

Tais mensagens variam de códigos 
simples de números e letras a descrições 
completas que deixam poucas dúvidas 




sobre a natureza do erro — ainda que, 
às vezes, não apontem diretamente o 
próprio erro. 

Maiores detalhes sobre as mensagens 
de erro podem ser encontrados no ma- 
nual do seu computador. Consulte-o 
sempre que não compreender o signifi- 
cado exato de alguma delas. Só depois 
comece a trabalhar na correção do erro. 



Para evitar problemas maiores, é 
muito importante localizar e corrigir ca- 
da erro na medida em que aparece. Não 
deixe um erro permanecer em um pro- 
grama, mesmo que este pareça rodar sa- 
tisfatoriamente. 

Caso contrário, sempre haverá uma 



chance de que o erro apareça mais tar- 
de, numa hora critica. A consequência 
poderá ser um desastre para o progra- 
ma, o que resultará em muita digitação 
extra, ou — pior ainda — na perda dos 
dados disponíveis, se o programa for co- 
locado em uso efetivo. No final, você 
não terá mais a oportunidade de resol- 
ver o problema. 

Corrigir os erros, ou seja, "depurar" 
o programa, pode se tornar uma tarefa 
terrivelmente complicada se você não se 
empenhar em isolar cada problema de 
modo sistemático. Ao digitar um pro- 
grama pronto ou ao desenvolver o seu 
próprio, é muito provável que cometa 
mais de um erro. Trate cada um indivi- 
dualmente — ou seja, localize e corrija 
o primeiro deles e só depois se dirija ao ■ 
seguinte. I 
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TABELA DE LOCALIZAÇÃO 



Esta é uma linha de mensagens de 
erros e comunicados para cada com- 
putador. Quando uma entrada for 

precedida por um asterisco (*), o er- 
ro provavelmente se encontra na li- 
nha cujo número está indicado na 
mensagem ou, então, é o resultado 
imediato de uma entrada direta ou de 
uma atividade (tal com SA VE). Sem- 
pre existem exceções, especialmente 
guando uma variável, que é a causa 
de um erro em determinada linha, 
tem seu valor designado em uma li- 
nha previamente executada. 

Quando digitar os programas, se- 
ja cuidadoso ao incluir espaços. 



NEXT sem FOR. variável inexisten- 
te, Erro de Índice, 'Memória lotada, 
'Excede área de vídeo. Número ex- 
cede limite, RETURN sem GOSUB, 
'Fim de arquivo, 'Stop executado. 
Argumento inválido. Inteiro excede 
limite. *Erro de sintaxe, 'BREAK- 
CONT repete, Fim de dados, 'Nome 
inválido, 'Sem memória disponível, 
STOP em INPUT, FOR sem NEXT. 
Periférico inválido, 'Cor inválida, 
BREAK-CONT prossegue, R4MTOP 
válido, 'Comando perdido, 'Canal 
inválido, FN sem DEF, Erro de pa- 
râmetro, 'Erro de leitura. 



D 



FC, FD, FM, 'ID, IB. 10, IS, NF. 

NO, OD, OM. OS. OK RO, 'SN, 
•ST, 'TM, 'UL. ' ' ' 



•"CONT" ILEGAL. 'DIVISÃO 
POR ZERO, 'DIRETO ILEGAL, 
•VALOR ILEGAL, "NEXT" SEM 
"FOR". FIM DE DATA, FALTA 
MEMÓRIA, 'FÓRMULA COM- 
PLEXA. 'S/ESPAÇO. 'REDI- 
MENSIONAR. "RETURN" SEM 
"GOSUB". "STRING" LONGA. 

Índice ilegal, 'SINTAX er 

RO, 'TIPO INCOMPAT, 'LINHA 
INDEFINIDA, FUNÇÃO INDEF. 



/O, AO, BS, 'CN, 'DD, 'DN. DS. 



"NEXT" SEM "FOR". 'ERRO 
SINTAXE, ' 'RETURN ' ' SEM "GO- 
SUB". SEM "DATA". FUNÇÃO 
ILEGAL. 'OVERFLOW, FALTA 
MEMÓRtÃ, 'A" LINHA INEXIS- 
TENTE. Índice fora do li mi- . 

TE, "DIM" REDEFINIDO. 'DIVI* 
SÃO POR ZERO, D1RETO ILE- 
GAL, TIPO DESIGUAL, 'FALTA 
ÁREA '"STRING". '"STRING" 
LONGA, '"STRING" COMPLE- 
XA, NÃO CONTÍNUO.' FUNÇÃO 
NÃO DEFINIDA. ERRO/ PERIFÉ- 
RICO. ERRO/VERIK "RESUME". 
"RESUME" SEM "ERROR", 'FAL- 
TA OPERANDO. 'LINHA MUITO 
LONGA. ' 



LOCALIZAÇÃO DOS ERROS 



Não se esqueça de que o erro mais 
simples é, em geral, o mais difícil de ser 
isolado, e — ao contrário do que pode- 
rá pensar — quase sempre é a única cau- 
sa da dificuldade em rodar um progra- 
ma adequadamente. 

Muitos problemas podem ser evita- 
dos com a utilização de um conjunto de 
rotinas para depurar os programas. 
Existem algumas técnicas bem simples 
e caminhos muito eficazes. 

Para começar, muitas mensagens de 
■ erro apontam diretamente para a linha 
|na qual ocorre o erro. Isso inclui o 



mais comum deles — ERRO DE SIN- 
TAXE — , além de vários outros 
(veja a tabela). Alguns, porém, são me- 
nos evidentes, e indicam erros em linhas 
que estão perfeiíamente corretas. Você 
pode obter uma mensagem como E Fim 
de dados 10:2 (o exemplo é do Spec- 
trum, mas outros computadores apre- 
sentam mensagens semelhantes). Apa- 
rentemente, traia-se de uma indicação 
de que o erro se encontra na segunda 
instrução da linha 10. Na verdade, a se- 
gunda instrução da linha 10 diz ao com- 
putador para ler alguns dados, o que po- 
deria aparecer também na linha 200 ou 
até mesmo na linha 2000. Por outro la- 
do, talvez o erro estivesse nas linhas de 



dados, e não na linha 10. 

Esse tipo de erro é, evidentemente, 
muito mais difícil de se localizar, já 
que não existe nenhuma indicação preci- 
sa de onde se encontra o verdadeiro 
problema. 

As mensagens de erro, 'que aponta 
i linha, revelam apenas que u problema 
feve estar relacionado ã maneira como 
Be executou uma entrada em determina- 
da linha do programa, 
^inicie efetuando uma listagem do 
prbgrama a partir de um ponto antes do 
número da linha sugerida na mensagem 
de erro. Algumas vezes, é útil listar a 
própria linha, separadamente e um pou- 
co além das outras, se isso for possível 
em seu computador. 

Antes de mais nada, verifique se vo- 
cê não cometeu nenhum tipo de erro li- 
teral — ou seja, se escreveu algo de mo- 
do errado ou se utilizou uma letra no lu- 
gar de um número (ou vice-versa). Seja 
especialmente cuidadoso em relação aos 
espaços e à pontuação. E procure ver se 
falta algum caractere — é muito fácil, 
por exemplo, esquecer um parêntese em 
uma sequência que utilize vários deles. 
Examine com atenção as palavras-cha- 
ve, letra por letra, pois também é bas- 
tante comum a inversão da ordem dos 
caracteres . 

Ds erros literais costumam ser uma 
Ra frequente de problemas, pertur- 
rido o desenvolvimento do trabalho 
íarito de iniciantes quanto de especia- 
listas. 



Quando você sabe que o erro está em 
determinada linha, e esta contém duas 
instruções, precisará descobrir qual de- 
las apresenta o problema. O melhor mé- 
todo para isso é colocar uma instrução 
STOP em uma nova linha, imediata- 
mente após a que foi indicada pela men- 
sagem de erro. Em seguida, entre uma 
instrução REM bem no inicio da última 
declaração e rode novamente o progra- 
ma — se nenhum desastre tiver aconte- 
cido até este ponto, é claro. Caso o er- 
ro de sintaxe não apareça, você saberá 
que ele se encontra na última de- 
claração. 

Pode-se utilizar um método parecido 
para descobrir, entre algumas linhas, a 
que contém o erro. Basta inserir suces- 
sivamente, entre cada linha, uma linha 
extra com a instrução STOP, como mais 
tarde explicaremos em detalhe. 

O método, porém, não pode ser am- 
pliado com segurança para as linhas 
com instruções múltiplas, pois qualquer 
coisa antes do REM e depois da próxi- 



IIIIIIIIIHHH 



■■■■■llllllllll 



ma linha do programa será ignorada. 
Nestes casos, deve-se dividir a linha em 
seus componentes e verificar isolada- 
mente um por um. Cada instrução po- 
de ser colocada em uma linha adicional. 
O procedimento é simples e bastante 
útil, sobretudo quando a situação pare- 
ce muito confusa e obscura. 

Rode o programa mais uma vez pa- 
ra ver qual das novas linhas do grupo 
causa a mensagem de erro e retire-a do 
programa. 



PARTE POR PARTE 



Declarações individuais muito longas 
apresentam um tipo diferente de proble- 
ma e, talvez, a melhor maneira de uni- 
las seja determinar o valor real de cada 
parte delas. 

Mais uma vez, considere a hipótese 
de ter cometido um erro banal, antes de 
buscar interpretações complicadas. Se 
possível, reescreva a linha defeituosa do 
programa, cie modo que obtenha um nú- 
mero de linhas separadas que possam ser 
tratadas individualmente. Esta é uma 
boa razão para se deixar espaços entre 
os números de linhas. 



Onde você não puder fazer isto, 
'"exploda" mentalmente a instrução 
e pergunte-se o que cada entrada es- 
tá fazendo naquele determinado pon- 
to do programa. Tente calcular quais 
os valores que foram obtidos para to- 
das as variáveis em uso neste exato 
ponto. 

Com o erro de sintaxe, os valores de 
qualquer variável em ação são irrelevan- 
tes — eles não poderão ser a causa do 
problema. Assim, mude a linha à von- 
tade, mesmo que isso limpe as variáveis. 

Se estiver lidando com um problema 
muito obscuro, o valor (ou valores) real 
da variável poderá fornecer os indícios. 
Utilize o corhpuiador para imprimir es- 
ses indícios no modo direto (imediato), 
antes de efetuar qualquer modificação 
no programa. 

Simultaneamente, verifique o nome 
da variável, para se certificar de que es- 
tá correio. Suponhamos que você habi- 
tualmente utilize a variável D para um 
loop de atraso de tempo. É bem prová- 
vel que a introduza no programa sem 
querer, quando estiver copiando uma 
listagem e se deparar com um loop pa- 
recido, mas que utiliza uma variável di- 
ferente — um T, por exemplo. 



ORIENTAÇÕES OBSCURAS 



Muitas mensagens de erro não forne- 
cem indicações claras do número da li- 
nha errada. Em vez disso, simplesmen- 
te indicam onde um erro teve algum efei- 
to. Quando isso ocorre, pode ser difícil 
apontar a causa com precisão. 

Mas existem exceções. Como no 
exemplo acima, as mensagens DATA de 
erro são exibidas em uma linha que con- 
tém uma instrução incluindo READ 
quando, na verdade, o próprio erro se 
encontra na linha de instrução DATA. 

Outras mensagens são menos eviden- 
tes (veja a tabela). No entanto, a maio- 
ria delas referc-se a erros que ocorrem 
antes do número das linhas apostrofa- 
das na execução do programa. Essa é 
uma distinção importante, pois o erro 
pode estar, de fato, em uma sub-rotina 
situada antes ou depois da linha indica- 
da na declaração de erro. Assim, uma 
variável poderá apanhar um valor incor- 
reto bem antes de identificá-lo. 

A melhor maneira de lidar com erros 
menos óbvios é examinar a ação do pro- 
grama. Inicie imprimindo o valor de ca- 
da variável. Se você possuir uma impres- 
sora conectada ao computador, poderá 
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efeiuar uma cópia deles. Mas é fácil uti- 
lizar o comando direto PRINT ou qual- 
quer abreviação adequada, seguida pe- 
lo nome da variável — tal como PRINT 
V — e anotar os valores. 

Examine, depois, como as variáveis 
funcionam em relação uma à outra. No- 
vamente, poderá ser bastante útil divi- 
dir uma linha muito longa do programa 
cm linhas mais curtas, cada qual conten- 
do uma única instrução. 

Pesquise cada variável a partir desse 
pomo do programa, para comparar seu 
valor real (o número que você anotou) 
com o que poderia ter se o programa ro- 
dasse corretamente. 

Em um programa muito extenso, o 
trabalho será difícil e demorado. Parte 
dele poderá ser evitada se você rodar o 
programa em vários estágios distintos — 
imediatamente ames e depois de um de- 
terminado conjunto de entradas, por 
exemplo. Observe, então, as modifica- 
ções dos valores das variáveis. 

A não ser que você esteja familiari- 
zado com o uso das teclas <RUN/ 
STOP> ou <BREAK> do seu com- 
putador, é aconselhável introduzir no 
programa linhas provisórias contendo a 
declaração STOP. Mas note que, com 
esse procedimento, você limpará a me- 
mória e, assim, deverá rodar o progra- 
ma mais uma vez — o que nem sempre 
será possível. 

Quando o programa parar, imprima 
os valores das variáveis e, em seguida, 
tecle a instrução para continuar até o 
próximo STOP. 



Entre as causas mais comuns de er- 
ros de programa estão as falhas come- 
tidas no código de entrada, a partiT de 
listagens impressas. 

O problema específico é gerado so- 
bretudo pela confusão entre caracteres 
parecidos: casos típicos são as letras 1 
em tipo minúsculo, I em tipo maiúscu- 
lo e o número 1, assim como a letra O 
e o número 0. 

É fácil também confundir, sobretu- 
do em listagens de pouca qualidade, dois 
pontos com ponto e virgula, e ponto fi- 
nai com vírgula. O ponto e vírgula é uti- 
lizado para a formatação da exibição, 
e o uso acidental de dois pontos (sinal 
que indica o fim de uma declaração), co- 
mo no exemplo abaixo, poderá resultar 
simplesmente em uma mensagem de 
"ERRO DE SINTAXE": 

95 INPUT " ENTBE SEU NOME" :NS 

I A confusão entre o ponto final e a 




vírgula, porém, é ainda mais difícil de 
se identificar. Veja estas duas linhas: 



Tanto uma quanto outra pareceriam 
correias, até mesmo depois de um mi- 
nucioso exame. Note que existem seis 
itens de dados na primeira linha, mas 
apenas cinco na segunda. 

Este poderia ser um indício de erro. 
caso as outras declarações DATA con- 
tivessem um número idêntico de itens. 
Incidentalmente, portanto, teríamos um 
método simples de realizar pelo menos 
uma verificação. 

Se uma mensagem de erro exibiu 



"FIM DE DADOS", não existem itens 
de dados suficientes; portanto, a segun- 
da linha poderia estar incorreta. 

A presença de muitos itens, por sua 
vez, não provoca uma mensagem de er- 
ro; simplesmente assinala os valores in- 
corretos para a variável READ ou, ain- 
da, o valor incorreto para algumas das 
variáveis, se uma outra linha de dados 
for curta. 

Uma mensagem de erro pode tam- 
bém resultar em uma linha READ ou 
uma linha de cálculo, se o tipo incorre- 
to do valor for assinalado para uma va- 
riável READ. 

O uso da letra O em vez do número 
0 — ou vice-versa — pode acarretar um 
efeito idêntico. 
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ESPAÇOS 



Deve-se deixar espaços em determi- 
nados lugares do programa, mas 
eliminá-los totalmente em outros — o 
problema, quase sempre, ê reconhecer 
que algo tão "transparente" seja a causa 
de um problema. 

Os espaços utilizados por razões es- 
téticas — para separar, por exemplo, 
uma declaração impressa de outra ou 
tornar as listagens um pouco mais cla- 
ras — não ocasionam erros se forem 
omitidos. Mas suspeite deles se a exibi- 
ção na tela parecer achatada ou liver 
partes superpostas. 

Uma mensagem de erro ocorre se, 
acidentalmente, você incluir um espaço 
entre cenas palavras-chave e o argumen- 
to que as segue colocado entre parênte- 
ses. Por exemplo: TAB(n) está correio; 
TAB (n). não. As condições que deter- 
minam erros relacionados a espaço va- 
riam de um computador para outro, 
mas vale a pena verificar esse aspecto se 
não detectar falhas de outro tipo. 



ERROS ESPECÍFICOS 



Cada computador apresenta um tipo 
peculiar de erro, quase sempre relacio- 
nado a imperfeições — e não erros, pro- 
priamente — no sistema de operações ou 
no próprio hardware. Com frequência, 
a falha se encontra no próprio BASIC 
e certas palavras-chave não se compor- 
tam adequadamente sob determinadas 
circunstâncias. Algumas das mais co- 
muns estão detalhadas aqui, e serão 
apontadas em INPUT sempre que pos- 
sam causar problemas inesperados, ca- 
so não se tome o devido cuidado. 



FAÇA UM TESTE 



Eis aqui um teste para a sua habili- 
dade em detectar erros e uma oportuni- 
dade para colocar em prática tudo o que 
aprendeu. Os programas que se seguem 
estão cheios de erros — do tipo que po- 
deria ser introduzido durante a copia de 
uma listagem ou na adaptação de um 
programa sobre cuja ação não se tem 
um conhecimento completo. Eles osci- 
lam de erros simples de digitação e sin- 
taxe a erros na estrutura do próprio 
programa. 

A versão correta do programa foi pu- 
blicada na página 195 de INPUT. Adi- 
cionamos aqui uma linha extra para fa- 
zer com que o programa seja rodado no- 
vamente. Mas não olhe o programa ori- 
ginal até que tenha elaborado o seu pró- 
prio caminho para localizar os erros. 



O programa é um exemplo bem cur- 
to de como se deve distribuir os objetos 
entre os compartimentos de um jogo de 
aventuras. A lista dos objetos é lida a 
partir de uma lista de dados organiza- 
dos em um conjunto; os números dos 
compartimentos estão armazenados em 
outro conjunto. A parte principal do 
programa — as linhas 70 a 100 — de- 
signa, aleatoriamente, um objeto para 
cada compartimento, verifica se todos 
foram utilizados e se há apenas um em 
cada compartimento. A linha 1 10 sim- 
plesmente imprime o resultado. Pelo 
menos é isto o que o programa deveria 
fazer se estivesse correto. 

É provável que você identifique vá- 
rios erros imediatamente, por meio da 
simples leitura do programa. Tente con- 
sertar todos os que puder e, então, 
quando estiver com o programa limpo, 
digite-o em seu computador e experi- 
mente rodá-lo. Certamente restarão al- 
guns erros escondidos que você não 
identificou na primeira vez. 

Se não conseguir resolver tudo, vol- 
te à página 195; de qualquer maneira, 
a versão correta da última linha deverá 
ser elaborada por você. E tenha o cui- 
dado de não introduzir novos erros 
quando estiver corrigindo os outros! 




10 LET g-14 

20 DIM aS(g.7) : DIM a(g) 
30 FOR z-1 TO g 
40 FtEAD aS(g) 
50 LET alz)-x 
70 POR X-g TO 1 STEP -I 
BO LET q-INT (RND*x)+l 
90 LET t-a(x): LET a<x)-a(tj); 
LET a{q)-T 
100 NEXT X 

110 FOR t-1 TO g: PRINT "A sal 
a;t ;tem":a$(aCt)) : NEXT t 
120 DATA corda , "espada" , "eapan 
ador" , "faca* , "revolver" , "chave 
""tocha" . "carro" ■ "lanterna" , "■ 
achado" , "bouba" , "livro" , "aeron 
odeio" , "robo" 
130 GOTO 10 



10 LET G-14 
20 DIM AS(G) ,A(G) 
30 FOR Z - 1T0G 
40 READ AS(G) 
50 LET A(Z) - Z 
70 FOR X - G TO 1 STEP - I 
80 LET Q - INT ( RN D (1) * X) 
+ 1 

90 LET T - A(X): LET A(X) - A( 
Q) ; LET A(Q) - T 
100 NEXT X 

110 FOR T - 1 TO G: PRINT "A S 



ALA" ; T"TEM" ; AS (A) (T) ) : NEXT T 
120 DATA CORDA, ESPADA, ESPANA 
DOR , FACA . ARMA . CHAVE , TOCHA , CARRO 
, LIQUIDIFICADOR , SOFA, BOMBA , LIVR 
O, AEROMODELO.RO BO 
130 GOTO 10 



Para o MSX, adicione a linha abaixo: 
5 R - RND ( - TIME) 



DD 

10 LET G-14 
20 DIM AS(G) ,A(G) 
30 FOR Z-1 TO G 
40 READ AS(G) 
50 A(Z)-Z 

70 FOR X-G TO 1 STEP-I 
60 Q-RND(X) 

90 T-A(X) :A(X)-A(OJ ;A(Q)-t 
100 NEXT X 

110 FOR T-1 TO G:PRINT"NA SALA" 
;T"HA"AS<A) (T}):NEXT T 
120 DATE CORDA, ESPADA. ESPANADOR 
. FACA . ARMA , CHAVE . TOCHA , CARRO . LA 
NTERNA , MACHADO , BOMBA , LIVRO . AERO 
MODELO. ROBO 
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Neste artigo, os usuários do Apple e ■ EDITOR DE FIGURAS 

do ZX-81 verão como produzir figuras ■ MOTO E'SUBMARINO NQ APPLE 

móveis. Usando os programas e ■ COMO MOVIMENTAR OS 

observando as instruções, poderão, em DESENHOS 

seguida, criar seus próprios desenhos, " UM MONSTRO NO ZX-81 



Para facilitar o trabalho, o progra- 
ma a seguir cria uma "tabela de figu- 
ras" na memória do micro, a partir de 
padrões desenhados com asteriscos den- 
tro de linhas DATA. 

100 HOME :E - 35000: HIMEM : E: 

DIM A(lO0) .BU00) 
110 HTAB 10: VTAB 12: PRINT "U 
M INSTANTE, POR FAVOR" 
120 FOR I - 35000 TO 37000: PO 
KE 1.0: NEXT : HOME 
130 F - INT (E / 256) 
140 POKE 232, E - F * 256: POKE 

233, F 

150 PRINT " (DEFINIÇÃO DA TABEL 
Al LINHA DATA ";: PRINT "20 ,0 
";; FOR II - 0 TO 19:W - INT ( 
<42 + II * 32} / 256) :0 - 42 + 
II * 32 - W * 256: PRINT ",*;0; 
" ,";W; _ ";: NEXT II: PRINT : P 
RINT : PRINT "RETURN P/ CONTINI) 
AR": INPUT "-;OS: HOME 
160 POKE E.20: POKE E + 1,0: F 
OR II - 0 TO 19 

170 W - INT { (42 + II « 32) / 
256) :0 - 42 + II * 32 - W * 256 
: POKE E+2+2*II.O: POKE E 
♦ 3 + 2 ■ II, W 
180 FOR I - 0 TO 100:B(I) - 0: 

NEXT I 

190 Q - 0: GR : COLOR- li FOR I 
■ 1 TO 6 : READ ZS: FOR J - 1 T 
O B 

200 IF MIDS (ZS.J.lí - TH 

EN PLOT J + 15,1 + 29 

210 NEXT J: NEXT I 

220 HTAB 17: VTAB 21: PRINT "1 

2345678" 

230 GOTO 500 

240 FOR V - 0 TO K - 1 

250 IF B - 2 AND A(V) > 0 AND 

A (V| < 4 THEN 280 

260 IF B < 2 AND (A(V) > 0 OR 



AÍV) > 4) THEN 260 
270 B - 0:0 - Q + 1 
280 B(Q) - B (Q) + A(V) * (8 * B 

) 

290 B - B + 1 

300 IF B > 2 THEN B - 0:Q - Q 

+ 1 

310 NEXT V 

320 TEXT : HOME : PRINT * (FIGU 

RA "ill + li") LINHA DATA 

330 FOR V - 0 TO 31 

340 IF V < > 0 THEN PRINT ", 

350 PRINT BÍV) ;" "| 

360 POKE E + 42 + 32 • II + V, 

B(V) 

370 NEXT V 

380 PRINT : PRINT : PRINT "RET 
UBN P/ CONTINUAR": INPUT "":OS 
390 HOME : HGR : SCALE- 1 : ROT 

- 0 

400 FOR I - 150 TO 75 STEP - 

5 

410 HCOLOR- 3 

420 DRAW II + 1 AT 130.1 

430 HCOLOR- 0 

440 DRAW II ♦ 1 AT 130,1 

450 NEXT I 

460 HCOLOR- 3 

470 DRAW II + 1 AT 130.75 

480 FOR I - 1 TO 50; NEXT I 

490 NEXT II : END 

500 X - 16:* - 30:K - 1: FOR J 

- 1 TO 4 

510 FOR I - 1 TO 8 

520 M - 1 : IF SCRN ( X,Y) - 1 T 

HEN M - M + 4 

530 X - X ♦ 1:A(K) - M:K - K + 
1 

540 NEXT I 

550 M - 2: IF SCRNÍ X,Y) - 1 T 
HEN M - M + 4 

560 Y - Y + 1:A(K) - M : K - K + 




570 FOR I 
580 M - 3: 

HEN M - M + 4 

590 X - X - 1:A(K) - M:K - K + 
1 

600 NEXT I 

610 M - 2: IF SCRNI X.Y) - 1 T 

HEN M - M + 4 

620 Y - Y + 1:A(K) - M : X - K + 

1 

630 NEXT J 
640 GOTO 240 

1000 REM 12345678 

1001 DATA " 

1002 DATA " 

1003 DATA " 

1004 DATA " 

1005 DATA " 

1006 DATA " " 

1007 DATA " »» 

1008 DATA " «*• 

O programa permite que vocc crie fi- 
guras móveis, tomando como modelo os 
desenhos que aqui apresentamos. Esses 
desenhos são destinados a outros mi- 
cros, onde as figuras compõem-se de 
blocos de oito por oito pomos. 

Para utilizar o programa, adicione ao 
seu rinal linhas DATA correspondentes 
às figuras da moto das páginas 316 e 
317. Cada linha DATA deve conter o 
padrão de uma das linhas de um bloco 
de oito por oito pontos, desenhado com 
asteriscos. Na listagem encontram-se as 
oito primeiras linhas DATA, correspon- 
dentes ao primeiro bloco da moto. Di- 
gite os blocos na seguinte ordem: bloco 
superior esquerdo, bloco inferior es- 
querdo, bloco superior da segunda co- 
luna, e assim por diante, até o bloco in- 
ferior direito. Podem ser digitados até 
vinte blocos, ou 160 linhas DATA. 

Para montar na memória do Apple 
uma tabela de figuras, digite RL'N. O 
mesmo comando imprimirá as linhas 
DATA necessárias para criar a tabela de 
dentro de um programa BASIC. Os de- 
senhos dos blocos digitados serão exe- 
cutados cm baixa e alta resolução. 



COMO UTILIZAR A TABELA 0E FIGURAS 



Tendo a tabela com os blocos dos de- 
senhos da moto na memória — são de- 
zesseis blocos ou 128 linhas DATA — , 
você poderá dar movimento a eles. Di- 
gite NEW e copie o programa: 



13 CÓDIGO Dt MÁQUINA 13 



10 ROSR : SC ALE" 1: ROT- 0 

100 FOR I • 0 TO 110 STEP 16 

110 HCOLOR- 3 

120 DRAW 1 AT 1,100 

130 DRAU 2 AT 1.106 

140 DRAU 3 AT I + 8.100 

150 DRAU 4 AT I + 8.108 

160 DRAU 5 AT I ♦ 16.100 

170 DRAM 6 AT I + 16,108 

180 DRAU 7 AT I + 24.100 

190 DRAU 8 AT I + 24.108 

200 FOR J - 1 TO 200: NEXT J 

210 HCOLOR- 0 

220 DRAW 1 AT 1,100 

230 DRAW 2 AT 1.108 

240 DRAU 3 AT I + 8,100 

250 DRAW 4 AT 1 + 8.106 

260 DRAW 5 AT I + 16.100 

270 DRAU 6 AT 1 + 16,106 

280 DRAU 7 AT I + 24,100 

290 DRAW 8 AT I + 24,108 

300 NEXT I 

310 FOR I - 110 TO 250 3TEP 16 

320 BCOLOR- 3 

330 DRAU 9 AT 1,100 

340 DRAU 10 AT 1.108 

350 DRAW 11 AT I + 8.100 

360 DRAW 12 AT I + 8,108 

370 DRAU 13 AT I + 16.100 

360 DRAU 14 AT I + 16.108 

390 DRAW 15 AT I ♦ 24.100 

400 DRAW 16 AT I + 24,108 

410 FOR J - 1 TO 100: NEXT J 

420 BCOLOR- 0 

430 DRAW 9 AT 1,100 

440 DRAU 10 AT 1,108 

450 DRAW 11 AT I + 8,100 

460 DRAW 12 AT I + 6.108 

470 DRAU 13 AT I + 16,100 

480 DRAU 14 AT I + 16,108 

490 DRAU 15 AT I + 24.100 

500 DRAU 16 AT I + 24,108 

S10 NEXT I 

Na linha 10 HGR liga a tela de alia 
resolução; SCALE = 1 define a escala do 
desenho e ROT=>0 define a orientação 
horizontal do mesmo. 

As linhas 120 a 190 desenham a mo- 
to, usando DRAW N AT X,Y, onde N 
é o número do bloco de oito por oito 



pontos, na ordem em que foram criados 
pelo programa editor; X e Y são as coor- 
denadas da posição desejada. A linha 
200 promove uma pequena pausa, an- 
tes que as linhas 220 a 290 apaguem os 
mesmos blocos, desenhando-os em pre- 
lo — HCOLOR = 0. O FOR. ..NEXT 
das linhas 100 a 300 repete o processo, 
dando movimento ao desenho. O res- 
tante do programa é uma repetição da 
primeira parte, só que utiliza o desenho 
da moto "empinando" — blocos 9 a 16. 

Para montar o desenho sem empre- 
gar o programa editor, adicione ao pro- 
grama as linhas DATA que ele criou. As 
linhas seguintes usarão os números ali 
contidos para montar a mesma tabela de 
figuras. 

20 HOME :E - 35000: HIMEM: E 
30 F - INT (E / 256) : POKE 232 
,1 - F * 256: POKE 233, F 
40 FOR I - E TO E + 41 + 16 « 



E contém o endereço inicial do local 
onde a tabela será montada na memó- 
ria — é igual à variável de mesmo no- 
me no programa editor. HIMEM:E pro- 
tejo esta área no topo da memória. Os 
POKE da linha 20 informam o endere- 
ço ao Apple. O restante do programa lê 
os dados com READ e monta a tabela 
com POKE. Na linha 40, 16 é o núme- 
ro total dc blocos. 

Outra alternativa para evitar o uso do 
editor é gravar a tabela de figuras em fi- 
ta, usando o comando W do monitor, 
ou em disco, usando o comando BSA- 
VE. As linhas DATA deixarão de ser ne- 
cessárias, mas continuaremos|precisan- 
do das linhas 20 a 40. 




O programa seguinte movimenta o 
submarino da página 319. desde que ele 
lenha sido criado pelo programa editor. 

10 HGR : SCALE- 1: ROT- 0 
100 í - 100:LY - Y : GOTO 170 
110 GET AS: IF A8 - THEN 11 

0 

120 LY - Y 

130 IF AS - "P" AND Y > 3 THEN 

Y - Y - 3: GOTO 170 
140 IF AS - "L" AND Y < 150 TH 
EN Y - Y + 3: GOTO 170 
150 IF AS - THEN 260 

160 GOTO 110 
170 HCOLOR- 0 
180 DRAW 1 AT 10. LY 
190 DRAU 2 AT 16, LY 
200 DRAU 3 AT 26, LY 
210 HCOLOR- 5 
220 DRAU 1 AT 10, Y 
230 DRAU 2 AT 18. Y 
240 DRAW 3 AT 26, Y 
250 GOTO 110 

260 FOR I - 0 TO 230 STEP 4 

270 HCOLOR- 1 

280 DRAU 4 AT 34 + I.í 

290 HCOLOR- 0 

300 DRAU 4 AT 34 ♦ 1,1 

310 NEXT I: GOTO 110 

As teclas R e L movimentam o sub- 
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O programa que se segue cria um 
monsiro com auxilio do código de 
máquina. 

( 1 REM 

1 10 LET AS-"2AOC40233ABC4047112 

100FE00280319' 
-/ 15 LET AS-AS+"10FD3ABD4016005F 

• - 1911BE403ABB40FE" 
í 20 LET AS-AS+"002603UCE400604 
f CS06041A77231310' 

25 LET AS-A$*-FA011D0009CUOFO 

C9010000" 

> 30 LET AS-AS+'0000000000000000 

0000000000000000" 
{ 35 LET AS-AS+"87BB8B0480650S80 

, 0280800106850586' 

50 FOR N-16514 TO 16605 

60 POKE N.16*C0DE A5+CODE A3(2 

) -476 

70 LET A$-A$(3 TO ) 
80 HEXT N 

1 A linha 1 precisa ler pelo menos 92 

y caracteres após REM, para acomodar o 
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programa em código que será criado. As 
linhas 10 a 25 coniêm o programa que 
coloca o monstro na tela — os códigos 
estão dentro de AS. Os zeros — 32 ao 
todo — da linha 30 apagam o desenho 
com espaços em branco. 

A linha 35 contém o padrão do 
monstro. Se compararmos seu conteú- 
do — dois dígitos de cada vez — com 
o conjunto de caracteres do apêndice A 
do manual, veremos que ali estão carac- 
teres gráficos invertidos. 

Esses caracteres desenham o mons- 
tro, do canto superior esquerdo a 
ferior direito. Como eles dividem ui 
paço de caractere em quatro partes, 
solução final é de oito por oito pontos 

Para mudar o desenho, basta trocar 
os números nesta linha. Códigos de co- 
mandos BASIC que tenham mais de um 
caractere com AT, TAB, THEN ou 
LEN não podem ser empregados. 

Quando utilizamos RUN, o progra- 
ma contido em AS é colocado no espa- 
ço que se segue a REM pelas linhas 50 
a 80. Se listarmos, então, o programa, 
veremos os caracteres correspondentes 
aos códigos. Os que desenham o mons- 
tro estão no final da linha. 

Depois que o programa estiver den- 
tro da linha REM, apague as demais c 
digite: 



30 POKE 16571,1 
40 POKE 16572, Y 
50 POKE 16573.X 
60 RAND USR 16514 
100 LET AS-INKEYS 
110 IF AS-"" THEN GOTO 100 
120 IF AS-"Z" ANO X>0 THEN LET 

130 IF AS«"X- AND X<28 THEN 
LET X-X+l 

140 IF A$-"P" AND Y>0 THEN LET 
Y-Y-l 

150 IF AS-"L" AND Y<20 THEN LET 
Y-Y+l 

160 POKE 16571,0 
170 RAND USR 16514 
180 GOTO 30 

As linhas 10 e 20 colocam as coorde- 
nadas do centro da tela em X e V. A li- 
nha 30 introduz o número 1 no progra- 
ma em código, usando POKE, para que 
seja impresso o monstro, e não espaços 
em branco. As linhas 40 e 50 colocam 
X e Y da mesma forma, estabelecendo 
a posição da figura. A seguir, a rotina 
em código é chamada e o computador 
desenha o monstro. 

As linhas 100 a 150 contêm a rotina 
típica que move algo na tela (veja pági- 
na 31). Z movimenta o desenho para a 
esquerda, X para a direita, P para cima 
e L para baixo. 

A linha 160 coloca 0 dentro do pro- 
grama em código, para desenhar espa- 
ços em branco; a linha 170 chama o pro- 
grama, apagando o desenho. A linha 
180 volta ao início. 



Com o código de máquina, pode-se 
também inverter a tela no ZX-8 1 . O pro- 



grama a seguir faz isso, trocando o preto 
pelo branco e vice-versa. Embora ele de- 
va ser chamado de dentro de um progra- 
ma BASIC, coloque-o na memória usan- 
do o nosso monitor (veja página 92). 
2A 0C 40 06 17 23 7E FE 76 28 
05 C6 80 77 18 F5 10 F3 C9 

Use RAND USR "endereço inicial" 
parairodá-lo. Como esse comando, sem 
um número na frente, limpará a tela, o 
efeito nâo será interessante. Um progra- 
ma simples dará melhores resultados. 



Aqui, RAND USR deve ser seguido 
do endereço inicial do programa. 

Podemos ainda colocar essa rotina de 
inversão dentro do programa do mons- 
tro. Os códigos serão adicionados a AS. 
Acrescente a linha: 

40 LET AS-A3+*2A0C40O617237EFE7 
62805C6807718F510F3C9" 

Note que não há espaço entre os 
códigos. 

A linha 50 deve ser alterada para co- 
locar os códigos extras dentro do REM. 
50 FOR N-16514 TO 16624 

A linha REM precisa ler mais 19 es- 
paços disponíveis, pelo menos. Após ro- 
dar o programa com essas modificações, 
apague todas as linhas, com exceção da 
REM, e copie o programa de movimen- 
tação com esta linha a mais: 

155 IF A3-"I" THEN RAND USR 166 
06 

O endereço 16606 é o início da nova 
rotina. Ela poderá ser chamada por 
meio da tecla I. Ao pressioná-la, o 
monstro será invertido. Mantendo a 
pressão, ele cintilará. 



SIMULE ALTA RESOLUÇÃO 



Como você já sabe, o ZX-81 não tem 
alta resolução gráfica. Porém, com o có- 
digo de máquina, pode-se produzir al- 
go semelhante. Este programa simples- 
mente usa POKE para colocar um pe- 
queno programa após o REM da linha 
10 e, depois, o chama. 



10 REM 

20 POKE 16514,62 
30 POKE 16516,237 
40 POKE 16517,71 
50 POKE 16518,201 
60 FOR N-0 TO 30 
70 POKE 16515, N 
80 RAND USR 16514 
90 NEXT N 



Infelizmente, não há um processo fá- 
cil para mover desenhos desse tipo. 
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■ 


COMO SOCORRER 0 HERÓI 


■ 


ELIMINE 0 COLETOR 


DE IMPOSTOS 


■ 


COMO ACENDER A LÂMPADA 


■ 


INSTRUÇÕES 




Na busca incessante do olho perdido do 

totem inca, o herói chega à sala 

do trono de um reino remoto. Sairá ele 

com vida ou perecerá nas garras 

de um implacável coletor de impostos? 



Depois de muitas peripécias e lances 
de emoção, aproxima-se do fim nosso 
jogo de aveniura. Anles de concluí-lo, 
porém, devemos acrescentar-lhe certos 
detalhes, como novos perigos e avisos, 
além de uma saída pela qual o aventu- 
reiro possa escapar com vida. Algumas 
instruções também precisam ser incor- 



poradas ao jogo. 

Como essas rotinas contêm detalhes 
específicos a esta aventura, o programa 
que se segue não deve ser usado em ou- 
tras aventuras sem modificações. Ele 
apenas completará o jogo em andamen- 
to e mostrará, em termos gerais, o que 
é necessário para fazer um programa 
desse tipo. No próximo artigo, mostra- 
remos como os princípios apresentados 
aqui podem ser adaptados de modo a se 
encaixar às suas próprias idéias. 



VOCE PRECISA DE AJUDA 



Sempre que se encontrar diante de 



uma situação particularmente perigosa, 
o jogador (e, portanto, o personagem da 
aventura) pode recorrer ao computador, 
.solicitando sugestões. Estas aparecerão 
na forma de mensagens impressas pela 
máquina em resposta ao pedido ("AJU- 
DAR") do jogador. O significado de 
lais mensagens, assim como o momen- 
to em que elas serão impressas, depen- 
de apenas do programador. Podemos 
escolher, se desejarmos, não apresentar 
qualquer mensagem, ou fazê-las propo- 
sitalmente ilusórias, ou mesmo prestar 
ajuda somente em alguns locais 
isolados. 

Em nossa aventura existem vários i 
pontos onde talvez valha a pena digitar | 
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cunas mensagens para o jogador, adver- 
lindo-o, por exemplo, sobre o quarto es- 
curo quando ele se encontrar em suas 
proximidades. Uma forma interessante 
de mensagem consiste em responder ao 
pedido de "AJUDAR" com um 
"OLHE PARA ONDE VAI", ou algo 
até mais enigmático. 

Outra mensagem pode ser emitida às 
margens do rio, onde o aventureiro cor- 
re o risco de se afogar (principalmente 
se estiver carregando um tijolo). 

Evidentemente, o número dessas 
mensagens pode ser muito grande. Tu- 
do depende da vontade do programa- 
dor. Suponhamos, contudo, que este 
queira emitir apenas um aviso, por 
exemplo, no rio. O primeiro passo para 
isso consistirá em relacionar o aviso com 
o número do local — número 7 — e com 
a variável que registra a presença do ti- 
jolo, OB (7). 



saldar a dívida do nosso herói com o fis- 
co. Assim, ele escolhe ao acaso um dos 
objetos transportados pelo jogador e o 
confisca, podendo levar até mesmo um 
tijolo como pagamento. 

Se o aventureiro não estiver carregan- 
do alguma coisa quando o coletor de im- 
postos aparecer, ele será preso e seu des- 
tino será apodrecer em uma masmorra. 
E assim o jogo terminará. 

O papel do coletor de impostos é dar 
um toque de suspense ao jogo, já que 
ele surge de forma inesperada, indepen- 
dentemente do local ou de outras con- 
dições. Como em outros exemplos de 
acaso na programação de jogos, deve- 
mos fazer uso da função RND. O cole- 
tor é tratado como qualquer um dos ob- 
jetos, com a diferença que sua localiza- 
ção é determinada ao acaso. 

Aqui estão as linhas extras, para 
fazer o coletor de impostos aparecer. 



■■■■ 



3100 REM "AJUDAR" 
3110 IF L<>7 OH B(2)<>-1 THEN 
PRINT "DESCULPE , NAO POSSO AJUD 
AR AGORA" : GOTO 330 
3120 PRINT "TIJOLOS SAO MUITO P 
ESADOS. SEU BRAÇO DEVE ESTAR D 
OENDO. " : GOTO 330 

3100 REM "AJUDAR" 
3110 IF LO 7 OR 0B(2)O-l THEN 
PRINT "DESCULPE. NAO POSSO AJUD 
AR AGORA* : GOTO 330 
3120 PRINT "TIJOLOS SAO MUITO P 
ESADOS. SEU BRAÇO DEVE ESTAR DO 
ENDO.":GOTO 330 

Se o aventureiro não se encontrar no 
rio (L < > 7) ou não estiver carregan- 
do o tijolo — (OB (2) O-louB (2) 
<>-l) — , a linha 3110 imprimirá a 
mensagem "DESCULPE, NAO POS- \~3T] [Tf] 
SO AJUDAR AQUI". Se, pelo contrá- L ™ J 
rio, ele estiver transportando o tijolo e 
solicitar ajuda ao chegar ao rio, então 
aparecerá o aviso "TIJOLOS SÃO 
MUITO PESADOS. SEU BRAÇO DE- 
VE ESTAR DOENDO", impresso pe- 
la linha 3120. 

Nada nos impede de acrescentar uma 
lista completa de mensagens de ajuda 
nas mais diversas condições e locais de 
aventura. 



320 IF RND<(1/15) AND TA-0 
THEN LET B(7)-L: LET TA-1 
480 IF B(7)-L AND IO10 THEN 
GOTO 1590 



320 IF RND(15)-1 AND TA-0 THEN 
OB(7)-L:TA-l 

480 IF OB(7)-L AND IO10 THEN 1 



320 RN-RND(-TIME) : IF INTCRNDU) 
*15+1)-1 AND TA-0 THEN OB(7)-L: 
TA-1 

480 IF OB(7)-L AND IO10 THEN 1 
590 



320 IF INT < RND (1) * 15 
) - 1 AND TA-0 THEN OB(7) 
: TA - 1 

480 IF OB(7) - L AND I < > 
THEN 1590 



0 COLETOR DE IMPOSTOS 



Se o jogador é o "mocinho" da aven- 
tura, quem faz o papel de "bandido" 
é o coletor de impostos. O objetivo deste 
último é confiscar alguns objetos para 



Inicialmente, o Spectrum iguala to- 
das essas variáveis a 0. 

A linha 320 de todos os programas 
dá ao aventureiro uma chance em quin- 
ze de encontrar o coletor — este é o pro- 
pósito do 15 no RND. O coletor só po- 
de aparecer uma vez durante o jogo; 
portanto, você precisa da variável TA 
para saber se isso aconteceu ou não. 

Se o número randómico for 1 (ou me- 
nor de que 1/15 no Spectrum) e o ins- 
petor ainda não tiver aparecido, a linha 




320 ajustará o valor do elemento 7 da 
matriz de localização de objetos — cor- 
respondente ao coletor — , de acordo 
com o lugar em que se encontra o joga- 
dor — L. O aviso de que o coletor che- 
gou será dado como se ele fosse um ob- 
jeto que tivesse sido colocado naquele 
local. Esse aviso nada mais é do que a 
descrição do objeto 7: o coletor. 

A linha 480 tem a ver com o ato de 
eliminar o coletor. verificando se você 
tentou matá-lo. Se você não o fez, o pro- 
grama pulará para a linha 1590. 



COMO SE LIVRAR DO COLETOR 



Quando o coletor de impostos mos- 
trar sua cara feia, o aventureiro deverá 
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atirar nele com o revólver que pode ser 
encontrado no outro lado do rio: 



1540 REM * "MATAR** 

1550 IF B(4)0-l TriEN PRINT *C 

OM 0 QUE?" : GOTO 320 

1560 IF B{7)OL THEN PRINT V$; 

" QUEM?" : GOTO 320 

1570 PRINT "VOCE MATOU O ";BS(7 

> : LET B(7)-0: GOTO 330 

HDMilEl 

1540 REM **MATAR«* 

1550 IF 0B(4-)O-l THEN PRINT"CO 

M 0 QUE ?" :GOTO 320 

1560 IF 0BC71OL THEN PRINT VS : 

" QUEM ?" :GOTO 320 



1580 REM "COLETOR DE IMPOSTOS* 
1590 LET IN-0: LET B(7)-0 
1600 FOR K-l TO NB 
1610 IF B(K)—1 THEN LET IN-IN 
+ 1 

1620 NEXT K 

1630 IF IN-0 THEN PRINT "COMO 
VOCE NAO TEM NADA QUE POSSASER 
CONFISCADO. ELE O PRENDE EM UMA 

MASMORRA IMUNDA" r GOTO 1360 
1640 LET K-INT (RND*NB)+1: IF B 
(K)O-l THEN GOTO 1640 
1650 PRINT "ELE TOMA O " ; BS (K) , 
"DE VOCE" : LET B(K)-0: GOTO 400 



QO 



1560 REM **COLET0R DE IMPOSTOS* 

1590 IN-0:OB(7)-0 

1600 FOR K-l TO NB 

1610 IF OB(K)— 1 THEN IN-IN+1 

1620 NEXT 

1630 IF IN-0 THEN PRINT "COMO V 
OCE NAO TEM NADA QUE POSSASER C 
ONFISCADO, ELE O PRENDE EMUMA 
MASMORRA IMUNDA" : GOTO 1360 
1640 K-RND (NB) : IF OB (K) <>-l THE 
N 1640 

1650 PRINT "ELE TOMA O ";OB$(K) 
DE VOCE":OB(K)-0:GOTO 330 



Essa rotina será usada quando o joga- 
dor digitar "MATAR" ou "ATIRAR". 
Se ele estiver sem a arma (OB (4) < > 
-1) ou(B (4) <>-l) a linha 1550 per- 
guntará "COM QUE?". Se o coletor 
não estiver e o jogador tentar matá-lo, 
a linha 1560 imprimirá "QUEM?". A 
linha 1570 comunica: "VOCÊ MATOU 
O COLETOR " e ajusta o elemento 7 da 
matriz de localização de objetos para o 
inspetor não mais existir. 



A VINGANÇA DO COLETOR 



i COLETOR DE IMPOST 



1590 IN - 0;OB(7) - 0 
1600 FOR K - 1 TO NB 
1610 IF OB(K) - - 1 



IN - 



1 



THEN IN - 



enturciro é quem sofre nas 
etor de impostos: 



1620 NEXT 

1630 IF IN - 0 THEN PRINT "CO 
MO VOCE NAO TEM NADA QUE POSSA 
SER CONFISCADO , ELE O PRENDE 
EM UMA MASMORRA IMUNDA 

GOTO 1360 
1640 K - INT ( RND (1) * NB + 
1): IF OB(K) < > - 1 THEN 164 



Como ao inspetor de taxas é permi- 
tido aparecer apenas uma vez durante 
a aventura, a linha 1 590 ajusta o elemen- 
to 7 da matriz de localização de objetos 
de forma que ele não mais exista en- 
quanto durar o programa. Esse proce- 
dimento não afeta em nada a rotina, 
mas evita o aparecimento do coletor no 
futuro. IN é um marcador usado para 
verificar se objetos estão sendo car- 
regados. 

As linhas 1600 e 1620 passam pela 
matriz de localização de objetos, verifi- 
cando se cada objeto está sendo trans- 1 
portado. Qualquer objeto que estiver | 
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sendo carregado aumenia I no marca- 
dor IN. 

Se nada estiver sendo transportado, 
então o valor de IN permanecerá 0 e o 
aventureiro será comunicado: '"COMO 
VOCÊ NÃO TEM NADA QUE POS- 
SA SER CONFISCADO, ELE O 
PRENDERÁ EM UMA MASMORRA 
IMUNDA". O jogo termina e pergunta- 
se ao aventureiro se ele deseja uma ou- 
tra jogada; isto é feito pela linha 1360. 

Caso haja objetos sendo transporta- 
dos, a linha 1640 pegará um deles ao 
acaso. Se esse objeto estiver entre os que 
estão sendo carregados, ele será apreen- 
dido. No entanto, se não estiver, outro 
objeto será escolhido a esmo e assim por 
diante, até que a escolha coincida com 
um que esteja sendo transportado. 

Se um objeto adequado tiver sido se- 
iecionado, a linha 1650 comunicará ao 
aventureiro que objeto foi confiscado 
pelo coletor. O elemento da matriz de 
localização de objetos correspondentes 
será então alterado; assim, o objeto não 
mais existirá. 



UM POUCO DE NATAÇÃO 



Esta rotina é usada quando o joga- 
dor decide atravessar o rio: 




1400 BEM * "NADAR** 

1410 IF L07 THEN PBINT "NADAB 

ONDE 711": GOTO 400 
1420 IF B(Z)--1 THEN PRINT "QU 
E VERGONHA . VOCE SE AFOGOU !": 
GOTO 1360 

1430 IF B(4)>-1 THEN PRINT "VO 
CE ACHOU UM REVOLVER" : LET B(4) 
--1 : GOTO 400 

1440 PRINT "VOCÊ SE MOLHOU TODC 
": GOTO 400 

HliViit l 

1400 REM ■ "NADAR** 

1410 IF LO 7 THEN PRINT ■ ONDE? 

! ! ■ :GOTO 330 

1420 IF OB<2)— 1 THEN PRINT " Q 
UE VERGONHA, VOCE SE AFOGOU! " : G 
OTO 1360 

1430 IF 0B(4)>-1 THEN PRINT ■ V 
OCE ACHOU UM REVOLVER" : OB (4) --1 
: GOTO 330 

1440 PRINT ■ VOCE SE MOLHOU TOD 

O": GOTO 330 

A linha 1410 verifica se o aventurei- 
ro está próximo ao rio. Se não estiver, 
o computador perguntará: "NADAR 
ONDE?!!" Como não existem piscinas 
ou praias na aventura, não há razão pa- 
ra escrever uma rotina de entrada para 
Hs lidar com qualquer outra resposta. Ne- 



nhuma sugestão aparecerá e o jogo pros- 
seguirá, mostrando as direçòes disponí- 
veis. Caso tente atravessar o rio carre- 
gando o tijolo, o jogador morrerá — 
"QUE VERGONHA; VOCÊ SE AFO- 
GOU!", comentará friamente o compu- 
tador. Mas essa "morte" tem suas par- 
ticularidades: depois de afundar, o jo- 
gador poderá ressuscitar, se escolher jo- 
gar novamente. 

A linha 1430 verifica se o jogador 
carrega o revólver. Em caso negativo, 
o elemento da matriz de localização de 
objetos correspondente ao revólver se- 
rá ajustado e surgirá a mensagem: "VO- 
CÊ ENCONTROU UM REVÓLVER". 

Se o aventureiro já encontrou a ar- 
ma e estiver tentando atravessar o rio 
novamente, a linha 1440 dirá: "VOCÊ 
SE MOLHOU TODO". 



FINALMENTE, 0 OLHO PERDIDO 



O jogador só poderá recuperar o tão 
cobiçado olho perdido do totem inca se 
o saco de bolas dc gude tiver sido en- 
contrado. O passo a seguir será, portan- 
to, esvaziar o saco para o olho apare- 
cer. Aqui está a rotina. 




1450 BEM ""ESVAZIAR** 

1460 IF N$O"SAC0"( TO LEN NS) 

THEN PRINT "ISTO NAO PODE SER 

ESVAZIADO" : GOTO 400 

1470 IF B(DO-l THEN LET G-l r 

GOTO 1270 
1480 PRINT "AS BOLINHAS SE ESPA 
LHAM PELO CHAO": LET B(5)-L: GO 
TO 370 

■ ■QWj 

1450 REM ««ESVAZIAS** 
1460 IN-INSTR("SACO".N3) :IF IN< 
>1 THEN PRINT " ISTO NAO PODE S 
ER ESVAZIADO" :GOTO 330 
1470 IF 0B(l)O-l THEN G-l: GOTO 
1270 

1480 PRINT " AS BOLINHAS SE ESP 
ALHAM PELO CHAO" :OB (5) -L :GOT 
O 370 

HM 

1450 REM *• ESVAZIAR ** 
1460 IN - 0: IF NS - LEFTS t"S 
ACO". LEN (NS) ) THEN IN - 1 
1465 IF IN < > 1 THEN PBINT 
" ISTO NAO PODE SER ESVAZIADO": 

GOTO 330 
1470 IF OB(l) < > - 1 THEN G 

- I; GOTO 1270 
1480 PRINT " AS BOLINHAS SE ES 
P ALHAM PELO CHAO":OB(5) - L : GO 
TO 370 



A rotina é chamada quando o aven- 
tureiro aciona o comando "ESVAZIAR" 
alguma coisa. A linha 1460 verifica se essa 
coisa é o saco. Se não for (N$ < > "SA- 
CO"), aparecerá a mensagem "ISTO 
NÃO PODE SER ESVAZIADO". A li- 
nha 1470 verifica se o saco está sendo car- 
regado (OB(l) < >-l ou B(l) < >-l). 
Se não estiver, em vez de emitir outra 
mensagem, o programa pulará para a li- 
nha 1270, que exibirá a mensagem: "VO- 
CÊ NÃO PODE LARGAR O QUE NÃO 
TEM". Como o jogador não quererá 
"LARGAR" nada, essa linha deve ser 
modificada, de forma a dar uma respos- 
ta adequada. Mude-a para: 




1270 IF B(G) < > -1 THEN PRINT 
"VOCE NAO PODE ";VS;" O QUE NAO 
TEM" : GOTO 330 

HHWfflE] 

1270 IF OBtGJO-l THEN PBINT "V 
OCE NAO PODE ";VS;" O QUE NAO T 
EM":GOTO 330 

A variável V$ imprimirá o verbo ade- 
quado — "LARGAR" ou "ESVA- 
ZIAR" — , conforme a situação. 

Se o saco estiver sendo carregado, o 
programa irá para a linha 1480. A men- 
sagem "AS BOLINHAS SE ESPA- 
LHAM PELO CHÃO" será mostrada 
e o elemento 5 da matriz de localização 
de objetos será acertado. 

Não há necessidade de imprimir uma 
mensagem para informar o resultado 
porque, ao pular para a linha 370, a im- 
pressão usual de uma descrição longa 
poderá substitui-la. Aparecerá então no 
vídeo a descrição usada na matriz de 
descrições longas (ver linha 240). 



ACENDA A LÂMPADA 



A lâmpada precisa ser acesa para que 
o jogador veja as saídas do quarto es- 
curo. Se o aventureiro não estiver car- 
regando a lanterna, a escuridão não se- 
rá vencida e ele ficará preso. Esta é a ro- 
tina para acender a lâmpada. 



1490 REM ""ACENDER"* 
1500 IF NSO"LAMPADA" ( TO LEN N 
S) THEN PRINT "NAO PODE SER FE 
ITO" : GOTO 400 

1S10 IF B(6)<>-1 THEN LET G-6: 

GOTO 1270 
1520 IF LA-1 THEN PBINT "JA ES 
TA ACESA" : GOTO 400 
1530 LET LA-1: LET DA-0: PRINT 
"OK": GOTO 330 
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cão "ACENDER". A linha 1500 (1505 
no Apple) é bem parecida com a linha 
equivalente na rotina "ESVAZIAR", 
verificando se o aventureiro escreveu a 
palavra "LÂMPADA". Caso a lanter- 
na não esteja .sendo carregada, surgirá 
a mensagem "VOCÊ NAO PODE 
ACENDER O QUE NÃO TEM". A li- 
nha 1520 verifica se o "indicador de 
lâmpada acesa" — LA — está "liga- 
do", comunicando o falo ao aventurei- 
ro. O indicador de lâmpada acesa é fi- 
xado em 1 pela linha 1530, que também 
imprime um "OK". 



A AVENTURA CHEGA AO FIM 



Quando nosso herói entra em cena, 
encontra uma corrente pendurada, pró- 
xima ao trono. 

O que deve ele fazer? Que tal puxar 
a corrente? Aqui está uma rotina que 
cuidará das consequências: 



1300 REM «"PUXAR** 
1310 IF NS-"CORRENTE" ( TO LEN N 
S) THEN LET IN-1 : IF IN-1 AND 
L<>24 THEN PRINT "NADA ACONTEC 
E" : GOTO 400 

1320 IF INOl THEN PRINT "VOCE 
NAO PODE PUXAR ISTO !": GOTO 4 
00 

1330 IF B(5)<>-1 THEN PRINT "V 
OCE CAI DENTRO DO VASO E VAI EM 
BOBA COM A DESCARGA" : GOTO 1360 
1335 REM **FIM DA AVENTURA** 
1340 PRINT "PARABÉNS ! VOCE COM 
PLETOU A TAREFA. * 
1360 PRINT ' "QUER JOGAR KOVAMEN 
TE (S/N)?" 

1370 LET AS-INKEYS: IF ASO"S" 
AND AS<>"N" THEN GOTO 1370 
1380 IF A$-"S" THEN RUN 
1390 STOP 
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1300 REM ** PUXAR ** 
1310 IN - 0; IF N$ - LEFTS ("C 
ORRENTE" , LEN (NS) ) THEN IN - 1 
1315 IF IN - 1 AND L < > 24 T 
HEN PRINT "NADA ACONTECE": GOT 
0 330 

1320 IF IN < > 1 THEN PRINT 
" VOCE NAO PODE PUXAR ISSO" : GO 
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TO 330 

1330 IF OB(S) - - 1 THEN 1340 
1335 PRINT " VOCE CAI DENTRO D 
O VASO E VAI EMBORA COM A DESÇA 
RGA": GOTO 1360 

1340 REM ** FIM DA AVENTURA * 

1350 PRINT "PARABÉNS ! VOCE CO 
MPLETOU A TAREFA. : ? "FIMDAAVENT 
URA" 



1300 REM **PUXAR** 

1310 IN-INSTR("CORRENTE",NS) :IF 

IN-1 AND L<>24 THEN PRINT " NA 
DA ACONTECE" : GOTO 330 
1320 IF INOl THEN PRINT " VOCE 

NAO PODE PUXAR ISSO!":GOTO 330 
1330 IF 0B(5)O-l THEN PRINT" V 
OCE CAI DENTRO DO VASO E VAI 
EMBORA COM A DESCARGA" : GOTO 136 
0 

1340 REM **FIM DA AVENTURA** 
1350 PRINT "PARABÉNS! VOCE COMP 
LETOU A TAREFA" 

1360 PRINT : PRINT* QUER JOGAR NO 
VÃMENTE (S/N)?" 

1370 AS-INKEY3:IF AS<>"S" AND A 
SO-N- THEN 1370 
1360 IF A$-"S" THEN RUN 
1390 END 
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1360 PRINT : PHINT " QUER JOGA 

R NOVAMENTE (S/N) ?" 

1370 GET AS: IF AS < > "S" AN 

D AS < > "N" THEN 1370 

1380 IF AS - "S" THEN RUN 

1390 END 

A linha 1 3 10 considera a possibilida- 
de de o jogador ter trazido a corrente 
consigo antes mesmo de puxá-la. Neste 




caso, ela dirá ao aventureiro que "NA- 
DA ACONTECE". 

Se o herói tentar puxar qualquer ou- 
tro objeto, a tinha 1320 lhe dirá: "VO- 
CÊ NAO PODE PUXAR ISSO". 

Depois disso, acontece o inesperado. 
Se o jogador estiver na sala do trono, não 
tendo porém encontrado o olho, apare- 
cerá a mensagem "VOCÊ CAI DENTRO 
DO VASO E VAI EMBORA COM A 
DESCARGA". E o jogo termina. 

Se o aventureiro der um jeito de en- 
contrar o olho e puxou a corrente no 
aposento real, nenhuma dessas linhas te- 
rá efeito e ele poderá suspirar aliviado 
ao receber a mensagem: "PARABÉNS! 
VOCÊ COMPLETOU A TAREFA. 
FIM DA AVENTURA". 

Finalmente, nas linhas 1360 c 1380. 
há uma opção para jogar novamente. 
Esta, porem, só será útil se o aventurei- 
ro tiver sido enclausurado na masmor- 
ra ou seguido com a descarga cano 
adentro. 



Devemos incorporar, agora, algumas 
informações à rotina do jogo. Antes dis 
so. porém, precisamos verificar o espa 
ço restante da memória (ver página 212) 
Se esse espaço for pequeno, será neces 
sário retirar todas as linhas REM - 
remos cntào que remunerar os coi 
dos COSLB que direcionam o progra- 
ma para essas linhas, evitando assim 
mensagens de erro. 

A decisão de quantas instruções se- 
rão fornecidas deve ser tomada de 
acordo com o espaço disponível de me- 
mória. Nelas podemos incluir até con- 
siderações quanto ao formato do vídeo 
do computador, o que influenciará na 
quantidade de detalhes a serem inseri- 
dos antes de passarmos para outra tela 

Como nossa aventura é muito 
pies, a rotina de instruções reduz-se a al 
gumas linhas, contendo poucas infor 
mações. Aqui está: 



80 CLS : PRINT "QUER 1NSTRUCO 
ES (S/N)?" 

90 LET AS-INKEYS: IF AS-"" TH 
EN GOTO 20 . 

95 IF A$-'S" THEN GOSUB 6000 
6000 REM * "INSTRUÇÕES"* 
6010 CLS : PRINT : PRINT " DEV 
IDO A UM COLAPSO FINANCEIRO VO 
CE DEIXOU O PAIS." 
6020 PRINT : PRINT " SEUS PROB- 
LEMAS VAO TERMINAR QUANDO V 
OCE ENCONTRAR O LEGENDA 
RIO OLHO CRAVEJADO DE BRILHA 
NTES DE UM TOTEM INCA. DEPOI 



S DE FAZE-LO, VOCE TERA QUE 

ENCONTRAR A SAÍDA." 

6030 PRINT ! PRINT " CUIDADO 

COM O COLETOR DE 
IMPOSTOS ! " 

6040 PRINT AT 20,4;"PRESSIONE Q 
UAL QUER TECLA PARA CONTI 

NUAR" 

6050 LET AS-INKEYS : IF AS-"" TH 
EN GOTO 6050 
6060 RETURN 

10 CLS: PRINT" QUER INSTRUÇÕES 
S/N)?" 

20 AS-INKEYS:IF AS-"" THEN 20 
30 IF AS-"S" THEN GOSUB 6000 
6000 REM * "INSTRUÇÕES"" 
6010 CLS : PRINT : PRINT " DEVIDO A 
UM COLAPSO FINANCEIRO VOCE DE 
IXOU O PAIS." 

6020 PRINT: PRINT " SEUS PROBLEM 
AS VAO TERMINAR QUANDO VOCE 

ENCONTRAR O LEGENDÁRIO 
OLHO CRAVEJADO DE BRILHANTE 
S DE UM TOTEM INCA. DEPOIS D 

E FAZE-LO VOCE TEM QUE ENCONTR 
AR A SAÍDA." 

6030 PRINT: PRINT" CUIDADO CO 
H O COLETOR DE 
IMPOSTOS ! " 

6040 PRINT S451 , "APERTE QUAL QUE 
R TECLA PARA CONTINUAR." 
6050 AS-INKEYS:IF AS-"" THEN 60 

S0 

6060 RETURN 
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10 HOME : PRINT "QUER INSTRUCO 
ES (S/N)?' 

20 GET AS: IF AS - "" THEN 20 
30 IF AS - "S" THEN GOSUB 600 
0 

6000 REM «" INSTRUÇÕES ** 
6010 HOHE : PRINT "DEVIDO A UM 

COLAPSO FINANCEIRO, VOCE " 
6020 PRINT "DEIXOU O PAIS." 
6025 PRINT "SEUS PROBLEMAS VAO 

TERMINAR" 
6030 PRINT "QUANDO VOCE ENCONT 
RAR O LEGENDÁRIO" 
6040 PRINT "OLHO CRAVEJADO DE 
BRILHANTES. DE UM " 
6050 PRINT "TOTEM INCA. DEPOIS 

DE FAZE-LO , VOCE " 
6060 PRINT "TERA QUE ENCONTRAR 

A SAÍDA" 
6070 PRINT : PRINT "CUIDADO CO 
M O COLETOR DE IMPOSTOS 1" 
6080 PRINT : PRINT "APERTE QUA 
LQUER TECLA PARA CONTINUAR" 
6090 GET AS: IF AS - "" THEN 6 
090 

6100 RETURN 

Agora, grave em fita ou disco a aven- 
tura completa. A estrutura desse jogo — 
O Olho Perdido do Totem Inca — po- 
de servir de base para suas próprias . 
aventuras. 
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Agora que você já tem certo domínio 
do teclado, chegou o momento de 
testar sua habilidade como datilógrafo. 
copiando frases mais longas 
exibidas na tela do computador. 



Se você já se sente em condições de 
digitar qualquer palavra ou frase a um 
ritmo seguro, podemos passar a uma 
nova etapa de nosso curso de datilogra- 
fia. Até este ponto, o curso foi útil tan- 
to para aqueles que querem apenas di- 
gitar programas quanto para os interes- 
sados em escrever cartas ou usar um edi- 
tor de textos. 

Nesta seção, você encontrará a opor- 
tunidade de aperfeiçoar suas habilida- 
des, utilizando um texto mais longo. 
Dessa forma, além de tornar-se mais rá- 
pido, você acumulará experiência para 
usar o computador como uma ferra- 
menta de escrita. 

É muito importante continuar fiel à 
técnica de digitação usada até agora: 
portanto, não olhe para o teclado en- 
quanto digita; use sempre as teclas base 
como referência; procure também man- 
ter o ritmo constante — não saia digi- 
tando sofregamente, a alta velocidade, 
mas sem segurança (a regra de ouro é 
iniciar a uma velocidade que possa ser 
mantida por algum tempo e, só então, 
ir acelerando aos poucos). 



COMO USAR 0 PROGRAMA 



Ao executar o programa, o compu- 
tador apresentará um menu inicial com 
duas opções de teste. A primeira mos- 
tra frases geradas ao acaso a partir de 
declarações DATA do programa. A se- 
gunda requer um pouco mais de traba- 
lho. Ela permite que você use frases 
mais longas, mas exige que estas sejam 
digitadas antes. Feito isto, as frases sào 
mostradas na tela, como no primeiro 
teste. Em ambos os casos você deverá 
datilografar o texto da maneira que ele 
aparece na tela; o programa lhe infor- 
mará então o número de erros cometi- 
dos e a sua velocidade em palavras por 
minuto. É possível também escolher a 
maneira de proceder ao se cometer um 
erro (isto é, você pode usar a tecla de 
retrocesso para corrigi-lo ou não). 

Se for escolhida a primeira opção, o 
engano deve ser corrigido assim que 
ocorre. 

De outro modo, o computador 
I aguardará até que a tecla correta seja 
pressionada. 



O programa para o Apple é um pou- 
co diferente do de outros micros; ele não 
apresenta a velocidade de digitação de- 
vido à falta de um cronômetro interno. 
E se o seu Apple (ou compatível) não ge- 
ra caracteres minúsculos, não há proble- 
ma em digitá-los todos em caracteres 
maiúsculos. 

Ao digitar as linhas que contêm as in- 
truções DATA, tome cuidado em dei- 
xar sempre um espaço no fim de cada 
frase, para que as palavras não fiquem 
justapostas quando o programa for exe- 
cutado. 

Após algum tempo usando o progra- 
ma, você verá que as frases se tornam 
conhecidas e monótonas, visto que há 
poucas variações. Tente então substi- 
tuí-las por outras a seu gosto. Para fa- 
zer isso, liste as linhas DATA e 
reescreva-as com frases suas. Lembre- 
se de colocar entre aspas as que contêm 
vírgulas; faça o mesmo com as que ter- 
minam cada uma das linhas. Você evi- 
tará, assim, que elas sejam divididas em 
duas, ou que o espaço final seja despre- 
zado pelo computador. Tome medidas 
também para que o número de frases 
não se altere. Se você não se sentir à 
vontade para fazer isto, pode variar o 
exercício optando por dar entrada a tre- 
chos completos de um texto, ou seja, op- 
tando pelo teste 2. 

Cada passagem pode ter um máximo 
de 255 caracteres e o computador acei- 
ta até três frases ao mesmo tempo. Res- 
ponda às perguntas que aparecerem e di- 
gite as frases de sua escolha. Depois de 
colocá-las na memória do computador, 
você poderá escolher qualquer uma 
delas. 

Nos micros MSX, TRS-Color e Spec- 
trum, os erros são comunicados pelo 
programa por intermédio de um som 
grave. Nos computadores da linha Ap- 
ple, essa função é desempenhada por 
um bip. 



10 POKE 23561,0 
20 CLS 

25 DIM tS(3,255): DIM tl3): 
LET df-0 

30 PHINT AT 7,7;'Qual teste ( 
1 ou 2) 7" 
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APRENDA A DIGITAR 




PARA CORRIGIR OS ERROS 




SENTENÇAS MAIS LONGAS 


■ 


PRATIQUE COM TEXTOS MAIS 


■ 


VEJA COMO 0 PROGRAMA 




LONGOS 




FUNCIONA 


■ 


REGRAS PARA UMA BOA 



■ USE A TECLA DE RETROCESSO APRESENTAÇÃO DO TEXTO 




40 PRINT AT 10.7;"Digite '0' 

50 LET a$-INKEYS: IF a$<"0" 

OR aS>"2" THEN GOTO 50 

60 IF aS-"0" THEN STOP 

70 GOSUB VAL aS*1000 

80 CLS i PRINT AT 15.4; _ Palav 

ras por minuto- " ; LEN cSMINT 

((500/IPEEK 23672+2S6*PEEK 

23673))«100)/100) 

90 PRINT AT 17,6; -Numero de e 

100 GOTO 30 
1000 CLS : PRINT "Deseja habi li 
tar a tecla DELETE (a/n)?" 
1010 LET aS-INKEYS: IF aSO"n" 

AND aSO"a" THEN GOTO 1010 
1020 LET e-0: LET d-O: IF a$-"s 
" THEN LET d-1 
1030 CLS 

1040 LET c$-"": RESTORE : FOR tc 
-1 TO 4: LET r-INT (RND*3)+1: F 
OR 3-1 TO 3 

1050 READ b$: IF J-r THEN LET 
c$-cS+bS 

1060 NEXT j: NEXT k 

1070 PRINT cS: PRINT : PRINT 

1080 LET PP-0 

1090 LET aS-INKEYS i IF a3-"" TH 
EN GOTO 1090 

1100 POKE 23672.0: POKE 23673,0 
: PAUSE 0: GOTO 1120 
1110 PAUSE O 

1115 LET aS-INKEYS : IF aS-"" TH 
EN GOTO 1110 

1120 IF aS<>cS<PP+l) AND d-0 TH 
EN GOTO 1170 

1130 PRINT aS;CHRS 95;CHRS 8;: 
LET PP-PP+1 

1140 IF aSOc$(pp> THEN GOTO 1 
170 

1150 SOUND .01,30: IF pp-LEN CS 

THEN RETURN 
1160 GOTO 1110 

1170 SOUND .05,-10: LET e-e+1 
1180 IF <J-0 THEN GOTO 1110 
1190 PAUSE 0: LET aS= INKEYS : IF 

aSOCHRS 12 THEN GOTO 1190 
1200 LET pp-pp-1: PRINT CHRS 8: 
CHRS 95;" ";CHRS 8; CHRS 8;: GOT 
O 1110 

1210 GOTO 1130 

1500 DATA "O cachorro manco que 
anda com tres pernas ","E fato 
que qualquer um ","Na hora cer 

ta, o elefante " 

1510 DATA "pode arrastar *,"ser 

a capaz de sentar sobre * , "pode 
pular por sobre " 

1520 DATA "a velha 

cada " , "a torre 

sa " , "qualquer 



9 APLICAÇÕES 9 



"Intro 
; (n) ' L 
LET tS 



da fazenda * 

1530 DATA "e derruba-la co» UB 

enorme estrondo .", "sem medo de 

ter uma surpresa . " , "ate a hora 

de fechar o zoológico." 

2000 CLS : 1F df-1 THEN GOTO ! 

015 

2005 LET df-1 
2010 FOR n-1 TO 3: INPUT 
duza a passagem numei 
INE rS: LET t(n)-LEN 
(n)-rS: NEXT n 

2015 INPUT "Que passagem voce d 
eseja digitar (1 a 3)7 "p 
2017 IF P>3 OB P<1 THEN COTO 2 
015 

2016 LET cS-tS(P. TO t (p) ) 
2020 CLS : PBINT "Deseja habili 
tar a tecla DELETE (s/n)?" 
2030 LET aS-INKEYS: IF aS<>*s" 
AND aSO"n" THEN GOTO 2030 
2040 LET d-0: LET e-0 : IF aS-"s 
" THEN LET d-1 

2050 CLS : GOSUB 1070: BETUBN 



1180 IF D-0 THEN 1110 

1190 AS-INKEYS :IF ASOCHHS(S) T 

BEN 1190 

1200 PP-PP-l.-PRINT #256,MIDS(C3 
,1,PP) :GOTO 1110 
1210 GOTO 1130 

1500 DATA O cachorro manco que 
anda com tres pernas ,E fato qu 
e qualquer um . "Na hora certa . 
o elefante " 

1510 DATA pode arrastar ,sera c 



apaz de sentar sobre ,pode pula 
r por sobre 

1520 DATA a velha caixa esburac 
ada ,a torre inclinada de Pisa 
, qualquer uma das arvores da fa 

1530 DATA e derruba-la 
norne es trondo . . aem me 
uma surpresa ., ate a h 
char o zoológico. 
2000 CLS:P-0:IF AS(0)- 



om um e 
de ter 
a de fe 



10 CLEAfi 2000 
20 CLSjDIM ASÍ2) 

30 PBINT 1101, "QUAL TESTE (1 OU 
2)7" 

40 PRINT €164, "PRESSIONE (0) PA 

50 AS-INKEY$:IF AS<"0" OR AS>"2 
" THEN 50 

60 IF A$-"0" THEN CLS : END 

70 ON VAL (AS) GOSUB 1000,2000 

80 CLS:PRINT 6448 , US ING" PALAVRA 

S POR MINUTO-l»t.##":LEN(CS)*50 

0/TIMER 

90 PRINT 8480, "NUMERO DE ERBOS- 
" :E; 

100 POKE 262,255:GOTO 30 

1000 CLS: PRINT " DESEJA HABILIT 

AR A TECLA DE RE TROCESSO (S/N 

>?" 

1010 AS-INKEY$:IF A3<>"N" AND A 
S<>"S" THEN 1010 

1020 E-0:D-0:IF A3-"S" THEN D-1 

1030 CLS:POKE 282,0 

1040 CS-"":RESTOBE:FOR K-l TO 4 

:R-BND(3) :FOB J-l TO 3 

1050 READ B$:IF J-R THEN C3-CS+ 

BS 

1060 NEXT J.K 
1070 PRINT C3 
1080 PP-0 

1090 AS-INKEYS :IF AS-"" THEN 10 



1 THEN 11 
10 

1120 IF ASOWIDS(C$,PP+l,l) AND 

D-0 THEN 1170 
1130 PRINT «PP+256,AS:PP-PP+1 
1140 IF A$OMIDS(CS,PP,l) THEN 
1170 

1150 SOUND 200,1:IF PP-LEN(CS) 
THEN RETURN 
1160 GOTO 1110 

1170 SCHEEN 0,1:SOUND 10,1:E-E+ 
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(I)-"" AND AS(2)-"" THEN 2090 
2010 PBINT" VOCE QUER USAR UMA 
PASSAGEM JA DIGITADA (S/N) ?" 
2020 A$-INKEYS:IF A$<>"S" AND A 
SO*H" THEN 2020 
2030 IF A$-"S" THEN 2120 
2040 IF A$(P)-"" THEN 2090 
2050 P-P+1:IF P<3 THEN 2040 
2060 PRINT " AS TRES PASSAGENS 
FORAM DIGITA- DAS. QUAL VOCE DE 
SEJA REESCRE- VER (1-3)?" 



2070 AS-INKEYS:IF AS<"1" OR AS> 
■3" THEN 2070 

2060 P-VAL(AS)-1 PRINT AS:PRINT 

2090 POKE 282,0rPRINT "DIGITE U 

MA PASSAGEM: " 

2100 LINE INPUT AS(P> 

2110 GOTO 2150 

2120 CLS:PRINT"QUAL PASSAGEM SE 
RA USADA (1-3) 7" 
2130 A$-INKEY$:IF AS<"1" OR A$> 
"3" THEN 2130 




2140 P-VAL (A$) -1 : IF A$(P)-"" TH 
EN 2120 
2150 CLS 

2160 POKE 282.255:CLS:PRINT " D 
ESEJA HABILITAR A TECLA DE RE 
TROCESSO (S/N) 7" 

2170 AS-INKEY$:IF AS<>"S" AND A 
SO"N" THEN 2170 

2180 D-0:E-O:IF AS-"S" THEN D-l 
2190 CLStPOKE 282 , 0 :CS-AS (P) : GO 
SUB 1070:HETURN 



SM 



10 HOME : DIM AS (2) 
20 HTAB 8 
TESTE? (1 
30 HTAB 6 
E <0> PARA 
40 GET AS 



50 



60 



VTAB 5: PRINT "QUAL 
2)" 

VTAB 7: PRINT "TECL 
TERMINAR." ; 
IF AS < "0" OR AS > 
THEN 40 
IF NOT VAL (AS) THEN HOM 
END 

ON VAL (AS) GOSUB 1000.200 



70 HOME : HTAB 7: VTAB 14: PRI 

NT "NUMERO DE ERROS ->";E 

80 GOTO 20 

1000 HOME :Y - 0 

1010 PRINT "VOCE QUER USAR A T 

ECLA DE RETRO 

CESSO «-)?"; 

1020 GET AS : IF AS < > "S" AN 

D AS < > "ti" THEN 1020 

1030 E - 0:D - 0: IF ASC (AS) 

- 83 THEN D-l 

1040 HOME s IF Y THEN 1080 

1050 CS - "": RESTORE : FOR K - 

1 TO 4:R - INT ( RND (1) * 3) 

+ 1 : FOR J - 1 TO 3 
1060 READ BS: IF J - R THEN CS 

- CS + BS 
1070 NEXT : NEXT 
1080 PRINT CS:PP - O: VTAB 12 
1090 GET AS: IF AS - CHRS (8) 

THEN 1090 
1100 IF AS < > MIDS (CS, PP + 

1.1) AND D - 0 THEN 1140 
1110 PRINT AS; :PP - PP + 1 
1120 IF AS < > MIDS (CS.PP.l 
) THEN 1140 

1130 IF PP - LEN (CS) THEN R 
ETURN 



1 

1150 IF NOT D THEN 1090 
1160 GET AS: IF AS < > CHRS 
(8) THEN 1100 

1170 PRINT AS;:PP - PP - 1 : GO 
TO 1090 

1500 DATA O cachorro manco qu 
« anda com três pernas >! fato 
que qualquer um , "Na hora certa 
, o elefante " 

1510 DATA pode arrastar .será 
capaz de sentar sobre ."pode p 
ular por sobre " 
1520 DATA a velha caixa esbur 
acada ,a torre inclinada de Pis 
a , "qualquer una das arvores da 
fazenda " 
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A APRESENTAÇÃO DE UM TEXTO 

Dada a facilidade com que se pode 
corrigir erros no teclado do computa- 
dor, é possível produzir cartas limpas, 
sem borrões ou letras esbranquiçadas 
□ uso de papel corretor. 
Um documento bem montado apre- 
ita margens de pelo menos trés cen- 
etros de ambos os lados (o texto, 
/iamente, deve estar centralizado no 
sentido vertical), Se você usar um edi- 
de textos, as margens serão defini- 
das automaticamente; mas, num pro- 
grama seu, isso deve ser feito por in- 
Lermédio dos comandos PRINT ou 
PRINT AT. 

Tão importante quanto as margens 
a distribuição correia de parágrafos. 
Estes fazem com que o texto fique cla- 
o e fácil de ser lido. Existem duas for- 
mas de iniciar um parágrafo: a tradicio- 
nal, em que a primeira palavra começa 
a ser escrita alguns espaços para a di- 
reita: e a mais moderna, na qual se pu- 
la uma linha entre um parágrafo e ou- 
tro, sem fazer o recuo no começo da 
frase. Pode-se também, evidentemen- 
te, combinar os dois métodos. 

Se você tiver uma carta muito pe- 
quena para redigir, deixe um bom es- 
paço na parte de cima do papel, antes 
de iniciar a impressão e/ou aumente o 
número de linhas entre os parágrafos. 
Com um pouco de prática, você produ- 
zirá textos bem centralizados e com um 
belo aspecto. 



2085 AS(P) - "" 

2090 PRINT : PHINT "DIGITE UMA p) 

PASSAGEM: " 
2100 FOR I - 1 TO 255 
2110 GET AS: IF AS - CHBS (13 

) THEN 2140 

2115 IF AS - CHRS (8) THEN AS 
(P) - LEFTS (A3(P). LEN (AS(P) 
) - 1): PRINT CHRS <8);: GOTO 
2110 

2120 AS(P) - AS(P) + AS 



2125 HTAB li VTAB 5: PRINT AS ( 

P) ; 

2130 NEXT 
2140 GOTO 2180 

2150 HOME : PRINT "QUAL PASSAG 
EM SERA USADA 7 (1-3) 
2160 GET AS: IF AS < "1" OB AS 

> "3- THEN 2160 
2170 P - VAL (AS) - 1: IF AStP 
) - ■■ THEN 21S0 
2180 HOME 




1530 DATA e derruba-la com en 
orse estrondo. .se» medo de ter 
una surpresa. . ate a hora de fec 
har o zoológico. 

2000 HOME :P - 0: IF AS(0) + A 
S(D + AS (2) - "- THEN 2090 
2010 PRINT "VOCÊ QUER USAR UMA 

PASSAGEM JA DIGITADA? (S/N) " : 
2020 GET AS: IF AS < > "S" AN 
D AS < > "N" THEN 2020 
2030 IF AS - "S" THEN 2150 
2040 IF AS(P) - "" THEN 2090 
2050 P-P+l: IFP<3 THEN 2 
040 

2060 PRINT : PRINT "AS TRES PA 
SSAGENS JA FOBAM DIGITADAS . 

QUAL VOCE DESEJA REESCREVER? 
(1-3)" ; 

2070 GET AS: IF AS < "1" OR AS 
> "3" THEN 2070 
« 2080 P - VAL (AS) - 1: PRINT A 
I 3: PRINT 
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40 LOCATE 8.5:PRINT"Qual teste? 

(1 ou 2)" 
50 LOCATE 6,7:PRINT"Tecle <0> p 
ara terminar." 

60 AS-INKEYS:IFAS-:"0"OHAS>"2"TH 
EH60 

70 IFAS-"0"THENCLS:END 

60 ONVAL (AS I GOSUB1 000 , 2000 

90 CLS:LOCATE5.12:PRINT - Palavra 

a por minuto -> ";USING "Hl l* 

";LEN(C$)*600/TIME 

100 LOCATE7,14:PRINT"NÚoero de 

erros ->";E 

110 GOTO40 

1000 CLS:COLOB 15,6:Y-0 

1010 PRINT"Voc6 quer usar a tec 

la de retrocesso 

K<)7" 

1020 AS-INKEY$:IFAS<>"s"ANDA$<> 
"S"ANDAS<>*n"ANDASO"N"THEN1020 
1030 E-0:D-0:IFA$-"s"ORAS-"S"TH 
END-1 

1040 CtS : I FYTHEN1080 

1050 C$-"":RESTORE:FORK-lT04:R- 

INT(RND(1)"3)+1 :F0RJ-lTO3 

1060 READBS:IFJ-RTHENCS-CS+BS 

1070 NEXT : NEXT 

1060 PRINTCS 

1090 PP-0 

1100 A$-INKEY$:IFAS-""THEN1100 

1110 TIME-0:GOTO1140 

1120 A$-INKEYS:IFAS-""ORAS-CHRS 

(8JTHEN1120 

1130 IFASOKID$(C$,Pp+l,l)ANDD- 
0THEN1170 

1140 VPOKE PP+201,ASC(AS) : PP-PP 
+ 1 

1150 IFA$OMIDS(C$ r PP,l)THEN117 
0 

1160 BEEP:IFPP-LEN(C$)THENCOLOR 

15,4:RETURNELSE1120 
1170 PLAY SS:E-E+1 
1180 IFD-0THEN1120 
1190 A5-INKEYS:IFA$-"'THEN1190 
1200 IFASOCHRS(8)THEN1130 
1210 PP-PP-1:VPOKEPP+201,32;GOT 
O1120 

1500 DATA O cachorro manco que 
anda com três pernas , £ fato qu 
e qualquer um , "Na hora certa, 
o elefante " 

1510 DATApode arrastar .será ca 
paz de sentar sobre ."pode pula 
r por sobre * 

1520 DATAa velha caixa esburaca 
da , a torre incl inada de Pisa , 
"qualquer uma das árvores da fa 
lenda " 

1530 DATAe derrubá-la com enorn 
e estrondo. , sem medo de ter uma 
até a hora de fechar 



o zooldgii 
2000 CLS:P-0:IFA$(0)+AS(1)+AS<2 
)-""THEN2090 

2010 PRiNT"Você quer usar uma p 
assagem já digitada? (S/N)" 
2020 A$-INKEY$:IFA$<>"S"ANDA$<> 
"s' T ANDA$O"n"ANDASO"N"THEN2020 
2030 IFA$-"E"ORAS-"S"THEN2120 
2040 IFAS(P)-""THEN2090 
2050 P-P+1;IFP<3THEN2040 
2060 PRINT:PRINT"As três passag 




Oeve-se seguir alguma regra ao modi- 
ficar as frases do programa? 

Isso depende de sua capacidade co- 
mo dalilógrafo. Se o curso inteiro foi 
bem assimilado, você deve ser capaz 
de digitar corretamente qualquer te 
to, seja este longo ou curto, simples > 
complexo, usando os dez dedos e n, 
apenas dois, como fazem alguns ii 



Os dedos menores, i 

outros. Para isso, certifique-se de que 
suas frases contêm muitos Qs, As, Zs, 
Ps, e Ls. E possível fazer treinamentos 
extra de quaisquer dedos, montando 
um conjunto apropriado de palavras. 

E precisa, contudo, que essas pala- 
vras apareçam misturadas a outras, de 
modo a cobrir todo o teclado. A frase 
"A zebra quase fugiu do zoológico pu- 
lando a grade" é um exemplo, assim 
como "Fique quieto e traga-me i 
caixa com doze litros de uísque" 
você quiser aumentar a destreza dos 
dedos menores, faça novos exercfck 
inventando outras frases como essi 

O programa desta lição combina tr 
(rases para formar um texto que tenha 
algum sentido. Com um pouco de ima- 
ginação, você poderá conseguir o mes- 
mo efeito com suas próprias frases. 



ens foram digitadas. Qual 
você deseja reescrever? (1-3)" 
2070 A$-INKEYS:IFAS<*l"ORAS>"3* 
TBEN2070 

2080 P-VAL(AS)-1;PRINTAS:PRINT 
2090 PRINT"DÍgíte uma passagem: 

2100 LINEINPUTAS(P) 
2110 GOTO2150 

2120 CLS:PRINT"Qual passagem se 
rá usada? (1-3)" 

2130 AS-INKEYS:IFA$<"l"ORAS>"3* 
THEN2130 

2140 P-VAL(A$)-1:IFAS(P)-*"THEN 
2120 

2150 CLS 

2160 COLOR 15,12:C$-AS(P) :Y-1 :G 
OSUB1010:RETURN 
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Os co mpui adores são frequentemente 
relacionados com a Matemática. Embo- 
ra programar em BASIC não exija mui- 
to conhecimento nessa área, a maioria 
dos processos do BASIC é familiar a 
qualquer matemático. Contudo, muitos 
deles são usados não só para fazer cál- 
culos, como também para controlar vá- 
rias ouiras operações. 

Algumas das funções matemáticas 
mais úteis para o programador são 
aquelas que calculam a relação entre ân- 
gulos e distâncias; elas são, aliás, as mais 
indicadas para o trabalho com gráficos. 

Suponhamos, por exemplo, que que- 
remos desenhar um relógio. Poderíamos 
começar pela caixa, usando o comando 
CIRCLE — menos no TRS-80 e no Ap- 
ple — , mas teríamos dificuldade em po- 
sicionar corretamente os números, se 
calculássemos cada posição manualmen- 
te. Ora, um relógio com números em 
posições erradas não serviria para nada. 

Felizmente, as funções matemáticas 
podem ser usadas para fazer esse cálcu- 
lo. No relógio, a distância entre dois nú- 
meros é de um doze avos de volta. Essa 
distância pode ser calculada pelo com- 
putador: basta fornecer-lhe um núme- 
ro em graus ou em radianos. 

Uma volta completa tem, no círculo, 
360 graus, o que equivale a 2xPI radia- 
nos. No relógio, os números estão po- 
sicionados a cada 30 graus (30°), ou a 
cada Pl/6 radianos — ou seja, a cada 
um doze avos de volta. O número PI (le- 
se "pi") é às vezes representado pela le- 
tra grega rt. 

Frequentemente usado para calcular 
vários aspectos de um círculo, lais co- 
mo sua área e comprimento, PI vale 
aproximadamente 22/7 (quase 3, 14). Al- 
guns computadores já têm esse número 
armazenado na memória (como os mi- 
cros da Unha Sinclair). 

É aconselhável familiarizar-se tanto 
com graus como com radianos, pois, se 
os primeiros são a medida mais comum 
para ângulos, é com radianos que os 
computadores trabalham. 

Se calcularmos S1N 30 (seno de 30) 
ao mesmo tempo numa calculadora e 
num computador, os resultados serão 
expressos de maneira diferente, a não 
■ ser que a calculadora esteja no modo 
I RAD (radíano). Isto acontece porque, 



Seno, cosseno, tangente: transformadas 
em comandos do BASIC, essas 
funções trigonométricas são essenciais 
quando se quer desenhar curvas, 
círculos e elipses no computador. 




enquanto esta trabalha com medidas 
graus, o computador opera 
dianos. 



DE GRAUS PARA RADIANOS 



Para passar um número de graus pa- 
ra radianos basta dividi-lo por 180 e de- 
pois multiplicar o resultado por PI. Pa- 
ra efetuar a operação inversa (de radia- 
nos para graus), faz-se o contrário: 
multiplica-se o número por 180 e divide- 
se por PI. 

O programa a seguir o ajudará a 
familiarizar-se com as conversões. Ele 
converte graus em radianos e vice-versa. 
Se você tiver uma calculadora, e quiser 
comparar os resultados, use-a da seguin- 
te maneira: calcule o seno (comando 
SIN), o cosseno (COS) e a tangente 
(TAN) de um número na calculadora e 



anote os resultados; converta esse núme- 
ro em radianos no computador; faça os 
mesmos cálculos na calculadora e com- 
pare os resultados com os obtidos ante- 
riormente — se tudo for feito correta- 
mente, eles deverão ser iguais. 



10 INPUT "DESEJA CONVERTER GB 

AUS PARA RADIANOS (1) OU 

RADIANOS PARA GRAUS (2) ?';a 

20 IF a-2 THEN GOTO 70 

30 IF aOl THEN GOTO 10 

40 INPUT "QUAL E O NUMERO?" ; b 

50 PRINT "E IGUAL A "; b/180* 



ghamacaoí 
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■ CONVERTA GRAUS EM RADIANOS 




COS E TAN 


■ COMO DESENHAR UMA BÚSSOLA 


■ 


OS GRÁFICOS DE SIN E COS 


■ COMO MEDIR ÂNGULOS NUMA 


■ 


USE SIN E COS PARA 


BÚSSOLA 




DESENHAR CÍRCULOS 


■ 0 QUE SIGNIFICAM SIN, 


■ 


UMA ESFERA FEITA DE ELIPSES 




PI;* RADIANOS": GOTO 90 
70 INPUT 'QUAL E O NUMERO?* ;b 
80 PRINT "E IGUAL A "; b*180/ 
PI;" GRAUS* 

90 PBINT "PRESSIONE QUALQUER 
TECLA PARA COMEÇAR NOVAMENT 
E": PAUSE 0: CLS : GOTO 10 



A divisão do círculo em 
(■mus possibilita uma 
grande variedade de 
;i|iln .u ih'-., como os minulos 
e horas de um relógio 
ou os pontos cardeais de 
uma bússola. Lima 
volta completa contém 3611 
graus. No computador, 
contagem é feita por 
de radianos: cada 
volta abriga, neste e 
1 PI radianos (PI é 
a forma ronélica da letra 
grega rt, que designa 

matemática dc 
alor aproximado a 3,14). 

70 PRINT "ISSO E IGUAL A ";B*1 
/180;" RADIANOS" 
80 GOTO 110 

90 INPUT "QUAL E O NUMERO ";B 
100 PRINT "ISSO E IGUAL A ";B*1 
80/PI;" GRAUS" 

110 PRINT "PRESSIONE QUALQUER T 
ECLA PARA EXECUTAR OUTRA VEZ. 



50 PRINT :INPUT"QUAL O NÚMERO "; 
B 

60 PRINT : PRINT"ELE VALE" i 

70 IFA-1THEN PRINT B/1B0*PI:"RA 

DI ANOS" 

80 IFA-2THEN PRINT B*180/PI:"GR 
AUS" 

90 PRINT ; PRINT "QUALQUER TECLA P 
ARA REPETIR" 

100 IF INKEYS-" THEN 100 
110 GOTO 20 



■ ■■■ 



120 AS-INKEYS-IF AS- 
O 120 

130 GOTO 20 



THEN GOT 



10 PI-4*ATN<1) 

20 CLS 

30 INPUT"VOCE QUER CONVERTER GR 

AUS PARA RADIANOS (1) OU RADI 

ANOS PARA GRAUS <2) ";A 

40 IF A-2 THEN GOTO 90 

50 IF AOl THEN GOTO 20 

60 INPUT "QUAL E O NUMERO ";B 



10 PI-4"ATN(1) 
20 CLS 

30 INPUT "CONVERSÃO DE GRAUS PAR 
A RADIANOS (1) OU DE RADIANOS PA 
RA GRAUS (2) ";A 
40 IF A<1 OR A>2 THEN 10 



10 PI - 4 * ATN 11) 
20 HOME 

30 INPUT "CONVERSÃO DE GRAUS P 
ARA RADIANOS (1) OU DE RADIANOS 

PARA GRAUS (2) 7 " ;A 
40 IF A < > 1 AND A < > 2 TH 
EN 20 

50 PRINT : INPUT "QUAL O NUM ER 
O 7 ";B 

60 PRINT : PRINT "ELE VALE 

70 IF A - 1 THEN PRINT B / 18 

0 * PI;" RADIANOS" 

80 IF A - 2 THEN PRINT B * 18 

0 / PI;" GRAUS" 

90 PRINT ; PRINT "QUALQUER TEC 
LA PARA REPETIR* 

100 GET AS: IF AS - "" THEN 10 

0 

110 GOTO 20 

Uma vez rodado, o programa pede 
por 1 ou 2, que especificam se a conver- 
são é de graus em radianos ou de radia 
nos em graus. Depois o programa soli 
cita o número a ser convertido e faz apa 
recer o resultado na tela. Entretanto, vi- 
sualizar um ângulo que é representado 
por um simples número pode às vezes 
ser muito difícil, a nào ser que esteja- 
mos em condições de vê-lo desenhado. 
Uma representação bastante comum de 
todos os ângulos possíveis é encontra- 
da nas bússolas. Poderíamos verificar is- 
so numa bússola de verdade; mas para 
quê, se o computador pode mostrá-lo 
também? 



DESENHE UMA BÚSSOLA 



Como existe uma forte relação entre 
círculos (ou arcos de círculos) e medi- 
das de ângulo, podemos usar essas me- I 
didas para desenhar relógios, bússolas I 
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ou quaisquer outras figuras circulares. 

Os programas mencionados a seguir 
desenham uma bússola e posicionam as 
marcações de graus. O norte correspon- 
de a 0, o leste a 90, o sul a 180 e o oeste 
a 270 graus. Construída a bússola, o 
programa desenhará qualquer ângulo 
que quisermos. 

Somenie a versão para o Sinclair 
Spectrum imprime números em volta da 
bússola. Mais adiante veremos como 
contornar esse problema. 

Quando rodamos o programa, o 
computador pede por um número e tra- 
ça uma linha do centro do circulo até um 
certo ponto, formando um ângulo de 
valor equivalente ao número fornecido. 
Isso quer dizer que, se fornecermos 90, 
a linha desejada partirá do centro em di- 
reção ã direita. Se digitarmos 180, a li- 
nha sairá do centro e irá para baixo, re- 
presentando assim um ângulo de 180 
graus. 

Note que o computador espera que 
forneçamos um número em graus para 
depois convertê-lo em radianos. Se 
olharmos para cada programa, veremos 
que a variável de entrada é dividida por 
180 e multiplicada por PI. Isto nos pou- 
pa o trabalho de fazer a conversão ma- 
nualmente. 



I 10 BORDER 4: PAPER ■ 



CLS 

20 CIBCLE 131,88.60 

30 PLOT 131.84 : DRAW 0,8: 

PLOT 127,88: DHAW 8.0 
40 FOR a-0 TO 2*PI STEP PI/4 
50 PLOT 131+55 * SIN a. 88+55* 
COS a: DRAW 10*SIN a,10*COS a 
60 NEXT a 
70 PRINT AT 2,16;0 
80 FOR b-45 TO 360 STEP 45 
90 PRINT AT 10-10*COS (b/180* 
PI) ,15+10*SIN (b/180*PI);b 
100 NEXT b 

110 INPUT " QUE ANGULO, EM G 
RAUS, VOCE DESEJA VER7'.c 

120 INK 2 

130 PLOT 131.88: DRAW 45*SIN ( 
c/180*PI) ,45*COS <c/180*PI) 
140 INK 0 

150 INPUT " QUER RECOMEÇAR (s/ 
n)7";dS 

160 IF dS-"s - THEN PLOT 131, 

88: DRAW OVER 1;45*SIN (c/180 

*PI),45*COS <e/180*PI) 

170 IF <J3<>"8" THEN BORDER 7: 

PAPER 7: CLS : STOP 

180 PLOT 131,84: DRAW 0,8: 

PLOT 127,88: DRAW 8,0: GOTO 

110 



(X) )-{127+79*SIN(X) ,95-79*COS(X 
) ) , PS ET 
70 NEXT X 

80 CLS: INPUT"QUE ANGULO VOCE Q 

UER " i Z 

90 SCREEN 1,1 

100 X-127+60*SIN(Z*PI/180) -Y-95 

-60*COS(Z*PI/180) 

110 LINE (127,91)- (127,99) ,PSET 

120 LINE (123,95)-<131.9S) , PSET 

130 LINE (127,95)- (X.Y) , PSET 

140 IF INKEYS-"" THEN 140 

150 LINE (127,95)-(X,y) , PRESET 

160 GOTO 80 



D 



10 PMODE 4,1 

20 PCLS 

30 PI-4*ATN(1) 

40 CIRCLE(127,95) .80,5 

50 FOR X-0 TO 2*PI STEP PI/4 

60 LINE(127+72«SIN(X) ,95-72*COS 



10 PI-4*ATN(1) 
20 CLS 

30 INPUT-QUE ANGULO DESEJA VER 

"iZ : Z-Z/1B0*PI 

40 SCREEN 2 : COLORI , 1 5 

50 CIRCLE(128,96) ,80,1, . , 1 
60 FOR X-0 TO 2*PI STEP PI/4 
70 LINE(128+72*SIN(X) ,96-72*COS 
(X) )- (126+79*SIN(X) ,96-79*COS(X 
)) .1 

BO NEXT X 

90 LINE(128,92)-(128,100) .1 

100 LINE(124,96)-(132,96) ,1 

110 FOR 1-0 TO 500:NEXT 

120 X-128+60*SIN(Z) :Y-96-60«COS 

(Z) 

130 LINE(128,96)-(X,Y) ,1 
140 FOR 1-0 TO 3000:NEXT 
150 GOTO 30 
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10 HGR 

20 HCOLOB- 3: HOME 
30 PI - 4 * ATN (1) 
40 FOR X - 0 TO 2 * PI STEP PI 

/ 60 

50 HPLOT 140 + 80 * SIN (X),8 
0 - BO * COS (X) 
60 NEXT X 

70 FOR X - 0 TO 2 * PI STEP PI 
/ 4 

80 HPLOT 140 + 72 * SIN (X).8 
0 - 72 * COS (X) TO 140 + 79 • 

SIN (X) ,80 - 79 • COS (X) 
90 NEXT X 

100 HPLOT 140,76 TO 140,84 
110 HPLOT 136,80 TO 144,80 
120 VTAB 23 

130 INPUT 'QUE ANGULO DESEJA V 

ER ? " :Z:Z - Z / 180 « PI 

140 X - 140 + 60 * SIN (Z) :Y - 

80 - 60 * COS (Z) 
150 HPLOT 140,80 TO X,Y 
160 GET AS: IF A3 - "" THEN 16 
0 

170 BCOLOR- 0 
180 HPLOT 140,80 TO X , Y 
190 HOME i HCOL0R- 3 
200 GOTO 100 

Os programas do Apple e do TRS- 
Coior começam ajustando o modo grá- 
fico adequado na linha 10; depois, eles 
limpam a leia. Como o TRS-Color, o 
MSX e o Apple não têm o número PI 
armazenado na memória; seus progra- 
mas criam uma variável, PI, com o mes- 
mo valor do número PI. 

Todos os programas, exceto o do Ap- 



ple, usam depois o comando CIRCLE 
para desenhar a caixa da bússola (círcu- 
lo) — linha 40 no TRS-Color, linha 20 
no Spectrum e linha 50 no MSX. O Ap- 
ple não possui o comando CIRCLE; por 
isso, nele o círculo é desenhado passo a 
passo nas linhas 40 a 60. 

Os programas desenham então as 
marcações que completam a bússola: pe- 
quenas linhas a cada 45 graus ao redor 
do círculo nos ajudam a saber a exala 
posição de cada marcação (a versão pa- 
ra o Spectrum numera as posições). Tu- 
do isso é posicionado de acordo com a 
abertura de cada ângulo. 

A parle seguinte dos programas, me- 
nos o do MSX, pede que entremos o ân- 
gulo desejado: linha 80 para o TRS- 
Color, 1 10 para o Spectrum e 130 para 
o Apple e o TK-2000. 

Uma pequena cruz no cenlro do cír- 
culo desenhado nos ajudará a verificar 
se os ângulos eslão correios: se entrar- 
mos um ângulo de 90 graus, o iraço la- 
teral direito da cruz será superposto pe- 
la nova linha. A cruz é desenhada por 
meio de duas pequenas linhas. 

Mostrado o ângulo pedido, a versão 
do Specirum pergunta sc queremos ver 
outro ângulo; a versão dos outros mi- 
cros espera que apertemos qualquer te- 
cla. Antes de desenhar um novo ângu- 
lo, o TRS-Color, o Spectrum e o Apple 
apagam primeiramente a linha anterior. 
O MSX apaga todo o desenho e o refaz 
depois com o ângulo novo. 

Para ampliar a analogia com a bús- 
sola basta substituir as marcações de 
graus por N, L, S e O (ou seja, norte, 
leste, sul e oeste), e usar o programa co- 
mo um indicador de direção. Assim, se 
quisermos viajar num ângulo de 270 
graus, devemos enirar o valor 270; o 
compuiador!desenhará então uma linha, 
apontando a direção desejada. 



PONTOS NUM CIRCULO 



Os programas apresentados na seção 
anterior usam SIN e COS, duas funções 
BASIC que correspondem às funções 
trigonométricas "seno" e "cosseno", 
respectivamente. 

Elas se referem à posição de um pon- 
to na circunferência em relação a dois 
eixos que se cortam perpendicularmen- 
te no centro do círculo. O eixo vertical 
é chamado de "Y" e o horizontal, de 
"X". Na ilustração destas páginas, o 
ponco A da circunferência está ligado 
aos dois eixos pelas linhas p e q. 

Neste caso, peq têm o mesmo com- 
primento. Mas, se movermos A para 
baixo, sobre a circunferência, percebe- 
remos que p cresce enquanto q diminui. 



Quando A chegar aosW graus, q vale- 
rá O, enquanto p será igual ao raio df 
circunferência. 

Usando o programa da bússola 
demos visuali?ar melhor o que aconte- 
ce. Entremos os ângulos 0, 30, 45 e 90. 
À medida que as linhas mudam de po- 
sição, podemos imaginar como peq 
embora não desenhadas na tela, variam 
de comprimento. Com uma régua po- 
deríamos medir peq direto da tela. 



Evidentemente, a relação entre peq 
muda à medida que o ângulo aumenta 
ou diminui. Existe ainda uma relação 
entre o raio do círculo e as linhas peq 
(quando A esiiver em 90 graus, p terá 
o mesmo valor do raio do círculo). As- 
sim como a anterior, essa relação entre 
o raio e as linhas peq também pode ser 
calculada, mudando sempre que o ân- 
gulo mudar. 

A relação entre o raio e p è chamada 
de "seno" do ângulo. A relação entre 
o raio e q é o "cosseno" do ângulo. Ou 
seja, se dividirmos as linhas peq pelo 
raio, obteremos, respectivamente, o se- 
no e o cosseno desse ângulo. Assim, se 
o raio for igual a 1. os valores do seno 
e do cosseno serão iguais aos compri- 
mentos de p e de q. 

O triângulo da ilustração abaixo foi 
oblido do diagrama da bússola. Um dos 
seus vértices é formado pelo encontro do 
eixo X com a linha que liga A ao centro 
do círculo. Uma terceira linha, que sai 
de A e encontra o eixo X em ângulo re- 
lo, forma o último lado do Iriângulo. 

O seno do ângulo formado pelo en- 
contro da linha que liga A ao centro do 
círculo com o eixo X é a relação entre 
o lado oposto a esse ângulo e a hipote- 
nusa. A hipotenusa é sempre o lado 
oposto ao ângulo reto. Na iluslração ela 
é formada pela linha branca que liga A 
ao centro do círculo. O terceiro lado do 
triângulo é chamado de adjacente. 

O cosseno também é, como vimos, 
uma relação entre dois lados. Existe ain- 
da uma outra relação entre lados, co- 
nhecida como tangente do ângulo. 

Em resumo, as relações são as seguin- 



seno = lado oposto/hipotenusa 
cosseno ■ lado adjacente/hipotenusa 
tangente = lado oposto/lado adjacente 

As três relações podem ser calculadas 
pelo computador por intermédio das 
funções SIN, COS e TAN. Por exem- 
plo, PRINT SIN. 5 coloca na tela o se- 
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no do ângulo .5 radianos. 

Na ilustração da página 336, à me- 
dida que o ponto se move em senti- 
do horário, partindo do topo do cír- 
culo (ângulo 0), os valores do seno e 
do cosseno aumentam e diminuem res- 
pectivamente, porque p e q mudam de 
tamanho. Depois dos 90 graus o se- 
no começará a diminuir; quando o pon- 
to passar pelos 180 graus tudo mudará 
outra vez. 

Lembremos que o seno mede o quan- 
to um ponto está à direita do eixo Y. As- 
sim, quando ele atingir a metade esquer- 
da do circulo, o seno se tornará nega- 
tivo. 

Do mesmo modo, quando o ponto 
estiver na metade inferior do círculo (e, 
portanto, abaixo do eixo X), o cosseno 
será negativo. 



10 SCREEN2: COLORI, 15 
20 CLS 

30 PI-4*ATN(1) 
40 LINE(7,96)-(256,96) .1 
50 LINE(11,1)-(11,192) ,1 
60 LINE(7.46)-(11.46) ,1 
70 LINE(7,146)-(11.146) .1 
BO FOR X-72 TO 256 STEP 61 
90 LINE(X.93)-(X,96) ,1 
100 NEXTX 

110 FOR X-0 TO 2*PI STEP PI/123 
120 PSET(123"X/PI+11,96-S0*BIN< 
X)) .6 

130 PSET(123*X/PI+11.96-50*COS( 
X)> ,10 
140 NEXTX 

150 IF INKEYS-"" THEN 150 
160 END 



10 HGR2 : HCOLOR- 3 

20 PI - 4 * MN (1) 

30 HPLOT 6,95 TO 255,95 

40 HPLOT 10,0 TO 10,191 

50 HPLOT 6,45 TO 10,45 

60 HPLOT 6,145 TO 10,145 

70 FOR X - 72 TO 255 STEP 61 

80 HPLOT X,92 TO X.95 

90 NEXT X 

100 FOR X - 0 TO 2 * PI STEP 

I / 123 

110 HPLOT 123 * X / PI + 10,9: 

- 50 * SIN (X) 

120 HPLOT 123 « X / PI + 10,9: 

- 50 * COS (X) 
130 NEXT X 

140 GET AS: IF AS - "* THEN l< 
0 

150 HOME ! TEXT 



OS GRÁFICOS DE SENO E COSSENO 




Os programas a seguir mostram as 
mudanças do seno e do cosseno à medi- 
da que o ponto gira pelo círculo. 



10 PLOT 0.88 

20 DRAW 255,0 

30 PLOT 20.0: DRAW 0,175 

40 PLOT 10,158: DRAW 15,0: 

PLOT 10,18: DRAW 15.0 

50 PRINT AT 2.0;1;AT 20,0;-l; 

AT 11,0;0;AT 20,15;180;AT 20. 

29:360 

60 FOR a-0 TO 2«PI STEP .06 
70 PLOT 20+a*35,88+70*SIN a 
60 PLOT INK 2;20+a*35. 88+70* 
COS a 
90 NEXT d 



D 



10 PMODE 3,1 
20 PCLS 

30 PI-4*ATN(1) 
50 LINE(6,95)-(255.95) .PSET 
60 LINE ( 10 , 0} - (10 , 191) , PSET 
70 LINE (6 . 45) - (10 , 45) .PSET 
80 LINE (6, 145) - (10 , 145) .PSET 
90 SCREEN 1,1 

100 FOR X-72 TO 255 STEP 61 
110 LINE (X,92)-(X,95) , PSET 
120 NEXT 

130 FOR X-0 TO 2*PI STEP PI/123 
140 PSET (123*X/PI+10,95-50*SIN 
(X) ,3) 

150 PSET (123*X/PI+10,95-50*COS 
(X) ,2) 
160 NEXT 
170 GOTO 170 

No triângulo retângulo, a relação entre os 
lados é dada pelos dois ângulos não-relos. 
Dependendo dos lados comparados, 
essa relação será chamada de seno 
1(J/íV). cosseno (COS) ou tangente (TAN). 





Como no programa da bússola, o 
MSX, o Apple e o TRS-Color começam 
ajustando o modo gráfico adequado (li- 
nha 10). Mais uma vez, os três criam 
uma variável (PI) para o valor de PI na 
linha 30. Depois, todos traçam os eixos 
para o gráfico. 

Os programas desenham pequenas li- 
nhas que representam intervalos ao lon- 
go dos eixos. A versão para o Spectrum 
numera os traços. As marcas para o ei- 
xo Y (eixo vertical) são 1 e - 1 , as quais 
satisfazem lodos os possíveis valores do 
seno e do cosseno. A numeração para 
o eixo X vai de 0 a 360 graus. 

O computador desenha então os grá- 
ficos, um para o seno e outro para o cos- 
seno. Ele faz isso usando um laço 
FOR...NEXT. 





Inventada na China 
por volta de 
1100. a bússola 
magnética só se 
tornou conhecida na 
Europa um séculn 
mais (arde. Au lado, 
a bússola do 
Sinclair Spectrum 

ângulo de 70 graus. 



Vimos que existem 2xPI radianos 
num circulo; porianto, se quisermos 
compreender todos os ângulos, o laço 
deverá ser FOR T = 0 TO 2*PI. Nesse 
laço existem saltos (STEP) para que o 
computador não faça um desenho a ca- 
da mínima variação de ângulo, mas só 
a cada três ou quatro variações. 

O STEP faz com que o programa se- 
ja mais rápido. Para ter uma ideia de 
sua importância, tente removê-lo e veja 
a diferença. 

As linhas mais importantes para o 
cálculo dos valores do seno e do cosse- 
no (140, 150 no TRS-Color; 70, 80 no 
TK; 120, 130 no MSX e 1 10. 120 no Ap- 
ple e no TK-2000) parecem muito com- 
plicadas, mas na verdade são bem sim- 
ples. Cada linha usa os comandos 
PLOT, PSET ou DRAW para desenhar 
o gráfico. As posições dos pomos são 
determinadas pelo seno e pelo cosseno 
(SIN e COS), que aparecem nessas li- 
nhas. Os outros números que os acom- 
panham servem simplesmente para mu- 
dar os resultados de escala, a fim de 
ajustá-los corretamente na tela; como 
cada computador tem uma disposição 
de tela diferente, esses cálculos são di- 
ferentes para cada um. 



DESENHE CÍHCULOS 



A chave para posicionar caracteres ao 
redor de um círculo, como no progra- 
ma da bússola, consiste, como vimos, 
em conhecer o raio da circunferência e 
também os ângulos que eles formam 
com o eixo X. 

O que precisamos è de um programa 
que forneça o centro e o raio do círculo 
e calcule as coordenadas X e Y de qual- 
quer ângulo dado. Se entrarmos uma sé- 
rie de ângulos, o programa será capaz 
de desenhar uma série de pontos ao 
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dor do circulo escolhido. O segredo es- 
tá em ensinar o computador a calcular 
as coordenadas X e Y. e é aqui que en- 
tram nossos velhos amigos SIN e COS. 
Digile este pequeno programa: 



20 FOR X-0 TO 2*PI STEP PI/30 
30 PLOT 128+50*SIN x. 88+50* 
COS X 
40 NEXT x 



10 SCREEN2 : COLORI , 15 
20 CLS 

30 PI-4*ATN(1> 

40 FOR X-0 TO 2*PI STEP PI/45 
50 PSETU28+80*SIN(X) ,96-80*COS 
(X) J ,1 
60 NEXTX 

70 IF INKEYS- " " THEN 70 
80 END 



linha servem para ajustar o centro do 
círculo em relação à tela gráfica do com- 
putador. O centro da tela de alta reso- 
lução no TRS-Color está em 127,95; no 
Apple, está em 140,96; no MSX, está em 
128,96 e no Spectrum, está em 128,88. 

Tente agora alterar a posição do cen- 
tro ou o tamanho do raio: isso o ajuda- 
rá a entender melhor essas funções. 

Existem ainda outros números que, 
ao serem mudados, alteram o visual do 
circulo. Na primeira linha do laço. o 
STEP comanda a distância entre um 
ponto e outro. Quanto menor o STEP, 
mais continuo será o círculo desenhado. 
Se quisermos maior número de pontos 
no desenho, devemos diminuir o STEP 
(ou dividir PI por um número maior). 



ara 



10 HGR2 : HC0L0R- 3 
20 PI - 4 * ATN (1) 
30 FOR Z - 0 TO 80 STEP 5 
40 FOR X - 0 TO 2 * PI STEP PI 
/ 45 

50 HPLOT 140 + Z * SIN (X),96 

- 80 * COS (X) 
60 NEXT X 
70 NEXf z 

80 GET AS: IF A$ - "" THEN 80 
90 HOME : TEXT 

A tela exibe uma série de pontos que 
adotam a forma de um círculo (essa for- 
ma não é definida por uma linha conti- 
nua porque tal linha levaria muito tem- 
po para ser desenhada). 

Em cada programa, exceto no do 
Spectrum. o computador é ajustado pa- 
ra o modo gráfico adequado. Em segui- 
da, é criado um valor para PI no TRS- 
Color. no MSX e no Apple. Um laço 
FOR.. .NEXT diz então ao computador 
para percorrer uma série de ângulos, que 
vai de 0 a 2*PI (linha 20 no TK 90X, 30 
no TRS-Color. 40 no MSX e no Apple) 
— ou seja, diz para formar um circulo 
completo. O tamanho do salto (STEP) 
é o responsável pela velocidade do pro- 
grama e pelo visual pontilhado. 

Na linha seguinte, o computador é 
instruído a desenhar um ponto para ca- 
da ângulo. A posição do ponto é deter- 
minada pela fórmula: 

PLOT raio*SIN(X), raio*COS(X) 

Como você deve estar lembrado, es- 
sas funções determinam as coordenadas 
para qualquer ângulo dado. Os outros 
números somados ou subtraídos nessa 



10 PMODE 4,1:PCLS;SCREEN 1,1 
20 PI-4*ATN(1) 

30 FOR X-0 TO 2*PI STEP PI/45 
40 PSET (127+80*SIN(X) ,95-80*CO 
S(X) ,5) 
50 NEXT X 
60 GOTO 60 



CONSTRUA UMA ELIPSE 



Uma mudança mais interessante con- 
siste em transformar nosso círculo em 
uma elipse. Para tanto, basta fazermos 
com que o número que multiplica SIN 
seja maior ou menor que aquele que 
multiplica COS. Se o que multiplica SIN 
for maior, teremos uma elipse baixa e 
larga. Se for menor, a elipse será alta e 
estreita. 

O programa a seguir desenha uma sé- 
rie de elipses que, juntas, criam o efeito 
de um globo. 



10 FOR z-0 TO 50 STEP 5 

20 FOR X-0 TO 2*PI STEP PI/15 

30 PLOT 128+z*SIN x. 88+50* 

COS X 

40 NEXT x 

50 NEXT z 



10 PMODE 4.1:PCLS:SCREEN 1,1 

20 PI-4*ATN[1) 

30 FOR Z-0 TO 80 STEP 5 

40 FOR X-0 TO 2*PI STEP PI/45 

50 PSET(127+Z*SIN(X) ,95-80*COSt 

X) ,51 

60 NEXT X 

70 NEXT Z 

80 GOTO 80 




Qual o tamanho do maior círculo dese- 
nhado polo computador? 

Evidentemente, nenhum circulo de- 
senhado pelo computador pode extra- 
vasar os limites de sua teta. De fato, 
o raio do maior círculo deve ser. no má- 
ximo, equivalente à metade do menor 
dos lados da tela. Os maiores raios pa- 
ra cada computador são: 88 para o 
Spectrum, 95 para o TRS-Color e 96 
para o Apple. TK-2000 e MSX. 

Entretanto, para que esses números 
provoquem o efeito desejado, o centro 
do círculo deve ser contido por eles. Se 
o círculo for muito grande, o Spectrum 
imprimirá uma mensagem de erro, en- 
quanto os outros computadores dese- 
nharão o máximo que couber na tela. 



10 SCREEN2:COLORl,15 

20 PI-4*ATN(1) :CLS 

30 FOR Z-0 TO 80 STEP 5 

40 FOR X-0 TO 2*PI STEP PI/45 

50 PSET(128+Z*SIN{X) .96-80*COS{ 

X)) ,1 

60 NEXT X 

70 NEXT Z 

80 IF INKEYS-" - THEN 80 
90 END 



SIN (X).9 



THEN 70 



10 HGR2 
20 HCOLOR- 3 
30 PI - 4 * ATN (1) 
40 FOR X - 0 TO 2 * PI STEP PI 
/ « 

50 HPLOT 140 + 80 
6 - 80 * COS (X) 
60 NEXT X 
70 GET AS: IF AS 1 
BO HOME : TEXT 

Os programas do globo não passam 
de versões adaptadas do programa do 
círculo. Em vez de uma, apenas dese- 
nhamos agora uma série de elipses, 
usando um segundo laço FOR. ..NEXT 
para variar o número pelo qual a coor- 
denada X é multiplicada. Isso faz com 
que o computador trace elipses de tama- 
nhos diferentes. 

Podemos fazer a elipse "crescer" o 
quanto quisermos, mudando o tamanho 
do STEP de Z (variável de controle). 



IIIIIIIHH » CÕDtGO Dl MÁQUINA ,4 1MIIIII lllll 



MOVIMENTE 
F1GUIRAS NATELA 



■ 


COMO CRIAR UMA FIGURA 


MÓVEL NA MEMORIA 


■ 


MOVIMENTOS MAIS RÁPIDOS 


■ 


UM SAPO QUE PULA E 


UM TANQUE QUE ATIRA 



Não é só o programador experiente que 
pode se divertir com linguagem de 
máquina. Utlize alguns programas 
pequenos, escritos em código, para dar 
mais vida a seus programas em BASIC. 



Linguagem de máquina é coisa bem 
complicada. Para a maioria dos usuá- 
rios de micros, ela não passa de um 
amontoado de números sem sentido. 
Porém, se você usar algumas rotinas em 
código dentro de programas BASIC, lo- 
go notará as vantagens da linguagem de 
máquina e ficará mais motivado a en- 
frentar as dificuldades. 

Os programas que aqui apresentamos 
utilizam o BASIC para colocar progra- 
mas em código de máquina na memória 
do micro. Com isto, pode-se movimen- 
tar figuras em alta resolução muito mais 
rapidamente que usando só BASIC. 

Os programas são específicos para 
cada computador. O MSX e o Apple 
dispõem de comandos BASIC com ve- 
locidade satisfatória, e seus programas 
não precisam de linguagem de máquina 
para produzir os mesmos resultados dos 
outros micros. Já publicamos um pro- 
grama desse tipo para o ZX-81. 



Para montar os gráficos das figuras 
I e 2, precisamos fazer três coisas. Pri- 
meiro, criar na memória do Spectrum 
a "grade" ou quadriculado que conte- 
rá o desenho em alta resolução. Esse 
quadriculado será composto por carac- 
teres definidos pelo usuário. Segundo, 
elaborar um programa que movimente 
o desenho na tela. Terceiro, trocar os ca- 
racteres gráficos no quadriculado pela 
figura que queremos mover — no nos- 
so caso, o tanque e o sapo. 



CARACTERES DEFINIDOS PELO USUÁRIO 



O Spectrum permite ao usuário mu- 
dar o formato de determinados carac- 
teres (caracteres definidos pelo usuário, 



ou UDGs). Cada caractere é formado 
por 64 pontos — alguns com a cor do 
fundo (INK) e alguns com a cor da fren- 
te (PAPER) — , num arranjo de oito por 
oito. Desde que não ultrapassemos os li- 
mites deste quadrado, podemos escrever 
um programa que dê ao caractere o for- 
mato que desejarmos. 

Existem 21 caracteres desse tipo: A 
até U, inclusive. Como mostra a figura 
I , é possível juntar os caracteres — con- 
juntos de oito por oito pontos — para 
formar figuras maiores. Pode-se ter, por 
exemplo, duas figuras com três por três 
caracteres ao mesmo tempo (ainda so- 
brarão 2 UDGs), ou cinco figuras com 
dois por dois caracteres. 

Tanto o sapo quanto o tanque apre- 
sentados neste artigo usam uma figura 
de três por três caracteres, mais ou me- 
nos assim: 
ABC 

D E F 

G H I 

Pode-se colocar isto na tela empre- 
gando PR1NT AT, em BASIC; porém, 
a melhor alternativa é usar a rotina em 
linguagem de máquina criada pelo pro- 
grama a seguir. 



Z-0 

20 IF PEEK 23733-255 THEN 
CLEAP. 65199: LET B-65200: LET 
Z-l 

30 FOR N-B TO 8+129: READ A: 
POKE N.A: NEXT N 

40 IF Z-l THEN POKE 65258, 
17B: POKE 65259,254: POKE 
65277,179: POKE 65278,254 

50 SAVE -Padrao"CODE B.130 

60 STOP 

100 DATA 24.55,1,22.0,0.32.32, 

32,22,0,0,32,32.32,22,0,0,32, 

32 

110 DATA 32.22.0,0,144.145.146 
.22.0.0,147.146,149,22,0,0,150 
.151,152,22 

120 DATA 0.0,153.154.155,22,0. 

0. 156.157.158.22.0.0.159.160. 
161,56,146.126 

130 DATA 254,1,1,16.0.40.8,56, 
4,203,33,24,2,14,0,221.33.147. 
126.221 

140 DATA 9.58,137,92.71,62,24, 
144,221,119.1,60,221,119.7,60. 
221.119,13.58 

150 DATA 136,92,71,62,33,144. 

221.119,2.221.119,6,221,119,14 

.221,229,62,2.205 

160 DATA 1,22,209,1,18,0.205. 

60.32,201 

Talvez você ache que esta é uma ma- 
neira complicada de fazer o que alguns 
poucos PRINT AT fariam. Mas existem 
algumas razões para a substituição: 

1. Uma vez digitado e gravado, este pro- 
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grama pode ser usado quantas vezes vo- 
cê quiser. 

2. Quando chamada de dentro de um 
programa BASIC, a rotina criada impri- 
mirá os caracteres numa velocidade mui- 
to maior que os PRINT AT. 

Sem saber código de máquina é im- 
possível compreender o que os números 
de cada linha DATA significam, mas 
tentaremos dar uma idéia de como fun- 
ciona o programa em BASIC. 

As tinhas 10 e 20 determinam onde 
a rotina em código será colocada, de- 
pendendo do tamanho da memória de 
seu Spectrum — 16K ou 48K. Note que 
os comandos podem não funcionar em 
micros de 16K com expansão. Se este for 
o caso, mude a linha 20 para: 



Os números incluídos nas linhas DA- 
TA são transferidos para a memória do 
computador pela linha 30. 

A linha 50 grava o programa. Você 
pode mudar o nome dele, se quiser. 

As linhas 100 a 160 contêm os núme- 
ros que, quando colocados na memória, 
formam a rotina em código. 

Esta rotina é gravada de uma manei- 
ra diferente. Após digitar e rodar o pro- 
grama, o computador pedirá ao usuá- 
rio que ligue o gravador e aperte qual- 
quer tecla, a fim de gravar a rotina em 
linguagem de máquina. 

Já que a rotina em código está den- 
tro da memória — colocada pelo pro- 
grama BASIC ou lida por meio do cas- 
sete — , vamos usá-la. Pressione NEW 
e ENTER, para que o programa antigo 
não atrapalhe o novo. 



20 LET print-32400: LET B- 
32402: IF PEEK 23733-255 THEN 
LET prlnt-65200: LET B-65202 

90 BORDE R 7: PAPER 7: IHK 4: 
CL8 

100 LET Y-8: LET X-15: LET Yl- 

8: LET Xl-15: LET Z-l 

110 LET AS-INKEYS 

120 IF A$-"z" AND X>0 THEN 

LET Xl-X-1: LET Z-l 

130 IF AS-"X" AND X<29 THEN 

LET Xl-X+1 : LET Z-2 

140 IF AS-"P" AND Y>0 THEN 

LET Yl-Y-1 

150 IF AS-"1" AND Y<18 THEN 
LET Yl-Y+1 

170 LET X-Xl : LET Y-Yl 

180 PRINT AT Y.X;: POKE B.Z: 

RAND USR prlnt 

190 GOTO 110 

Note que a palavra "print" em mi- 
núsculas deve ser digitada letra por le- 
tra, ao contrário de PRINT, que fica na 
tecla P. 

Este programa permite a movimen- 
tação de figuras na tela usando as teclas 
Z, X, P e L. Quando ele for rodado, ve- 
remos que foram criadas duas figuras 
com três por três caracteres; a segunda 
é formada por JKLMNOPQR. Pode-se, 
assim, obter duas versões do mesmo grá- 
fico. No caso do tanque, um aponta pa- 
ra a direita, quando vai nesta direção, 
e outro aponta para a esquerda, quan- 
do se movimenta para a esquerda. 

Veremos também que, conforme a fi- 
gura se move, deixa para trás um rastro 
que não foi planejado. Para corrigir is- 
to, acrescente a linha: 

POKE B,0: 



Ela produz uma figura de três por 
três caracteres em branco, que vai apa- 
gando as posições já ocupadas. 



Para transformar os caracteres na fi- 
gura de um tanque, acrescente as próxi- 
mas linhas. Elas montam o tanque apon- 
tando para a direita no quadriculado 1 
é para a esquerda no quadriculado 2. 

10 FOR N-UBR "a" TO USR *r' + 7 
: READ A: POKE N.A: NEXT N 
1000 DATA 0,0,0.0,0.0,0,0,0.0.0 
,0,0.0,0,0 

1010 DATA 0,0.0,0,0.0,0.0,0,0,0 
,0,255,0,1,0 

1020 DATA 0,0,1.63.255,255,255. 
0,0,0,192,224.254,254,224,0 
1030 DATA 63.127,255,122,48.6,0 
,0,255,255,255,235.65.102,0,0 
1040 DATA 255,255.255,174,6,100 
.0,0 

1050 DATA 0,0.0,0.0,0,0.0,0,0,0 
,0,0,0,0,0 

1060 DATA 0,0,0,0,0.0,0,0,0.0.3 
,7,127,127,7,0 

1070 DATA 0,0,128,252,255.255.2 

55,0,0,0,0,0.255,0,128,0 

1080 DATA 255.255,255.117,96,38 

,0,0,255,255,255,215,130,102.0. 

0 

1090 DATA 252,254,255,94,12,96, 
0,0 

Resta criar os dois caracteres que irão 
"armar" o tanque. Aperte BREAK e di- 
gite: 

10 FOR N-USR "a" TO USR 'f + 7 
: READ A: POKE N.A: NEXT N 
115 IF INKEYS-" " THEN GOTO 
200 

200 IF Z-2 THEN GOTO 300 



IIIIIIIIIIIHHI 
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162 

230 PAUSE 1 

240 PRINT AT Y+l.N;" * 

250 NEXT N 

260 GOTO HO 

300 FOR N-X+3 TO 31 

310 PRINT INK 5;AT Y+l.N ;CHR$ 

163 

320 PAUSE 1 

330 PRINT AT Y+l.N;" ■ 

340 NEXT N 

350 GOTO 110 
1100 DATA 0,4,9,2,176,2.9,4,0.3 
2,144.64,13,64,144,32 

Agora a tecla SPACE pode ser usa- 
da para dar tiras. 



Para transformar as figuras em um 
sapo, você precisará livrar-se do tanque. 
Para isso, grave o programa e depois 
pressione <NEW> e <ENTER>. 

O tanque e o programa que o movi- 
mentava serão anulados, mas a rotina 
em código que cuida do quadriculado 
permanecerá na memória até que o mi- 
cro seja desligado. 

Digite CLEAR 32399 no Spectrum de 
16K. ou CLEAR 65199, no de 48K, re- 
servando o topo da memória para a ro- 
tina em código. Digite, depois, LOAD 
"" CODE e ligue o gravador para car- 
regar a rotina em código do cassete. 

Com a rotina na memória do micro, 
digite e rode o programa que cria o sapo. 

30 RESTORE 5000: FOR N-USR " 
a" TO USR "r-+7: READ A: POKE N 
,A: NEXT N 

5000 DATA 0,0,0,0.0,0,0,0.0,0,0 
,0,0,0,0,0 

5010 DATA 0,0.0,0,0,0,0.0.0,0,0 
,0,0,0,1.1 

5020 DATA 0,0.0,0,0,128,192,176 
,0,0,0,0,0.0.0,0 

5030 DATA 4,15,31,63,127.254,24 
8.127,96,240,224,192.64.32.156, 
192 

5040 DATA 0,0,0,0,0,0,0,0 

5050 DATA 0,0,0,0.0,0,0.0,0,0,0 

,0.0.1.3.7 

5060 DATA 8.28.27,70.255.254,25 

2,249,0,0,0,0.0.0,0,0 

5070 DATA 7.7.15.30,54,38,70,70 

,250,196,0,0,0,0,0,0 

5080 DATA 0,0,1,1,3,6,2.0,140,1 

44,16,32.32,48,32,0 

5090 DATA 0,0,0,0,0,0.0,0 

Para controlar o movimento do sa- 
po, digite: 



10 BORDER 0: PAPER 0: INK 4: 
BRIGHT 1: CLS 

20 LET P-32400: IF PEEK 23733 
-255 THEN LET P-65200 
100 PRINT AT 10.0;: RAND USR P 
: IF INKEYS-" THEN GOTO 100 
110 RESTORE 1000: FOR F-l TO 5 
120 READ A.B.C: POKE P+2.A: 
PRINT AT B,C;: RAND USR P 
130 PAUSE 2: CLS ! NEXT F 
150 PRINT AT 10,12;: RAND USR 
P: IF INKEYS-" " THEN GOTO 150 
200 FOR F-l TO 5 
210 READ A.B.C: POKE P+2.A: 
PRINT AT B,C;: RAND USR P 
220 PAUSE 2: CLS : NEXT F 
230 GOTO 100 
1000 DATA 1.10,0,2,7.3,2,5,6,2, 
7,9,1,10.12.1,10.12,2,7,15,2,5, 
18,2,7,21,1,10.24 

O Apple não precisa de linguagem de 
máquina para movimentar uma figura 
em alta resolução: basta criar uma ta- 
bela de figuras na memória do micro e 
usar o comando DRAW. 

Se não dispusermos de um editor de 
figuras, o trabalho poderá ser bem com- 
plicado. Mas você não será obrigado a 
usá-lo, pois o programa a seguir cria o 
tanque e o movimenta. 

10 HOME :E - 35000: HIMEM: E 
20 F - INT (E / 256) : POKE 232 
,E - F * 256: POKE 233, F 
30 FOR I - E TO E + 41 + 14 * 



READ A: POKE I ,A 
NEXT 

HGR : SCALE- 1: ROT- 0:X - 
GOTO 410 



50 
60 
130 
70 LX - X: 
80 GET KS 
90 IF KS 

Y - Y - 2 
100 IF KS 
EN Y 



Y : LF 1 



IF KS - THEN 80 
■P' AND Y > 10 THEN 
GOTO 140 

■ -L" AND Y < 140 TH 
- Y + 2: GOTO 140 
IF KS - "Z" AND X > 12 THE 
NX-X-3:F-0: GOTO 140 
120 IF KS - "X" AND X < 220 TH 
ENX-X+3:F-1: GOTO 140 
130 IF KS - " " THEN 490 
140 IF LX - X AND LY - Y THEN 
80 

150 IF LF - 0 THEN 250 

160 HCOLOR- 0 

170 DRAW 1 AT LX , LY 

180 DRAW 2 AT LX , LY + 8 

190 DRAW 3 AT LX + 8 . LY 

200 DRAW 4 AT LX + 8 , LY + 8 

210 DRAW 5 AT LX + 16, LY 

2 20 DRAW 6 AT LX + 16. LY + 8 

230 IF F - 0 THEN 410 

240 GOTO 330 



250 HCOLOR- 0 

260 DRAW 9 AT LX , LY 

270 DRAW 10 AT LX , LY + 8 

280 DRAW 11 AT LX + 8 . LY 

290 DRAW 12 AT LX + 8.LY + 8 

300 DRAW 13 AT LX + 16, LY 

310 DRAW 14 AT LX + 16, LY + 8 

320 IF F - 0 THEN 410 

330 HCOLOR- 3 

340 DRAW 1 AT X,Y 

350 DRAW 2 AT X.Y + 8 

360 DRAW 3 AT X + 8 , Y 

370 DRAW 4 AT X + 8.Y + 8 

380 DRAW 5 AT X + 16, Y 

390 DRAW 6 AT X + 16, Y + 8 

400 GOTO 70 

410 HCOLOR- 3 

420 DRAW 9 AT X.Y 

430 DRAW 10 AT X.Y + 8 

440 DRAW 11 AT X + 8.Y 

450 DRAW 12 AT X + 8.Y + 8 

460 DRAW 13 AT X + 16, Y 

470 DRAW 14 AT X + 16, Y + 8 

480 GOTO 70 

490 IF F - 0 THEN 560 

500 HCOLOR- 3 

510 DRAW 7 AT X + 24, Y 

520 FOR I - 1 TO 100: NEXT 

530 HCOLOR- 0 

540 DRAW 7 AT X + 24, Y 

550 GOTO 80 

560 HCOLOR- 3 

570 DRAW 8 AT X - 8,Y 

580 FOR 1 - 1 TO 100: NEXT 

590 HCOLOR- 0 

600 DRAW 8 AT X - 8, Y 

610 GOTO 80 

2000 DATA 20 .0 ,42 .0 ,74 ,0 
,106 ,0 ,138 ,0 ,170 ,0 ,202 , 

0 ,234 ,0 ,10 ,1 ,42 .1 ,74 ,1 

,106 ,1 ,138 .1 .170 ,1 ,202 ,1 
,234 .1 ,10 ,2 ,42 ,2 .74 .2 . 

106 ,2 ,136 .2 

2010 DATA 72 ,73 ,73 ,218 . 
219 .219 ,74 ,73 ,41 ,213 ,63 , 
223 ,155 .41 ,45 ,45 ,173 ,59 , 
63 ,63 .191 ,73 ,9 ,45 ,213 .21 
9 .219 .19 ,0 ,0 ,0,0 
2020 DATA 40 .45 .45 .45 , 

213 ,63 ,63 ,63 ,55 ,45 .45 ,45 
,173 ,251 ,31 ,63 ,87 ,109 .73 
,209 ,59 .223 .159 .73 .73 .13 
7 ,219 .219 ,155 .0 .0 ,0 
2030 DATA 72 .73 .73 .216 , 
219 ,219 ,106 .73 ,73 .216 ,59 
,63 ,63 .46 ,45 ,45 ,45 ,213 ,6 
3 ,63 ,63 ,55 ,45 .45 .45 .173 
,219.219 ,155 ,0 ,0, 0 
2040 DATA 40 .45 ,45 ,45 , 

213 .63 ,63 .63 .55 .45 ,45 .45 

,173 ,59 .255 ,31 ,55 ,77 .73 
,141 ,27 ,255 ,59 ,87 ,73 ,73 , 
209 ,219 ,219 ,19 .0 .0 
2050 DATA 72 ,73 .73 ,218 

.219 ,219 .74 ,73 .73 .218 ,219 
.219 .42 .45 .45 ,45 ,213 ,219 
,219 ,19 .77 ,73 .137 .219 .21 
9 ,155 .0 .0 ,0 ,0 .0 ,0 
2060 DATA 40 ,45 .45 .77 , 

218 .63 ,63 ,63 ,46 ,45 ,45 ,45 

,213 ,59 .63 ,31 .87 ,73 .109 I 
,209 ,219 ,27 ,191 ,73 ,73 ,137 | 
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,219 ,219 
2070 DATA 
,219 ,251 , 
19 .27 ,87 



219 

,159 ,0 .0 

2080 DATA 

.251 .219 

,219 ,19 .. 
.219 .74 

.155 ,0 ,0 

2090 DATA 

.219 ,219 .74 
,219 .42 .45 
.219 ,83 ,73 

9 .19 ,0 .0 ,0 

2100 DATA 

.59 ,63 ,63 



,155 ,0 .0 .0 

72 .73 ,73 .218 
106 ,105 .73 .218 ,2 
.'3 .109 ,213 ,219 . 

.77 .137 ,219 ,219 
,0 ,0 ,0 ,0 ,0 

72 ,73 ,73 .218 
74 ,9 ,77 ,213 ,251 
3 ,109 ,73 ,218 ,223 
" 213 ,27 ,223 



.0 .0 .0 



72 



73 .73 ,218 
73 ,218 ,219 
45 .213 ,219 
213 ,219 ,21 



73 .27 



72 ,45 ,45 .173 
191 ,45 .45 .45 
,63 .191 ,9 .109 
,219 .74 ,73 ,73 
0 ,0, 0 

2 .73 .73 ,218 
74 ,73 ,9 .213 .63 . 

.45 ,45 ,45 .213 ,6 
55 ,45 ,45 ,45 .173 
155 ,0 .0 .0 

40 .45 ,45 .45 . 



.218 .255 
8 .219 .219 
2110 DATA 
,219 .219 
63 .255 .4 
3 ,63 ,63 
,219 .219 
2120 DATA 
213 ,63 ,63 

.173 .59 

73 ,213 ,59 ,223 ,191 .73 .73 , 
137 ,219 ,219 ,155 ,0, 0 
2130 DATA 72 ,73 ,73 ,218 

.219 .219 ,42 ,77 ,73 ,209 ,219 

,27 .63 ,46 ,45 ,45 ,109 ,218 
,63 .63 ,63 ,46 ,109 ,73 ,209 , 
219 ,219 .19 .0 .0 ,0 ,0 
2140 DATA 40 .45 ,45 ,45 , 

213 .63 .63 ,63 ,55 ,45 ,45 ,45 

.173 ,27 ,63 ,31 ,31 ,78 ,73 , 
109 .218 .251 ,59 ,87 ,73 ,73 , 
209 ,219 ,219 ,19 ,0 ,0 

A linha 10 reserva o topo da memória 
para a tabela de figuras. O Apple é então 
informado da localização da mesma pela 
linha 20. O FOR...NEXT das linhas 30 a 
50 monta a tabela na memória. 

A linha 60 liga a leia de alta resolu- 
ção, estabelece a escala e a orientação 
do desenho. Além disso, coloca as coor- 
denadas do centro da tela em X e V. Em 
seguida, o programa é desviado para a 
linha 140. para que uma imagem inicial 
do tanque seja feita. 

As linhas 70 a 140 movimentam o 
tanque através das teclas Z, X, P e L. 
Tratam também de não deixá-lo ultra- 
passar os limites da tela. As variáveis F 
e LF são sinalizadores que indicam a di- 
reção atua! e antiga do tanque; dese- 
nham e apagam a figura na orientação 
correta. A linha 140 evita que o tanque 
seja apagado e desenhado, sem sair do 
lugar. A linha 130 verifica se a tecla de 
espaço foi pressionada, saltando para a 
Unha 420, onde começa a porção do 
programa que dispara um tiro — na di- 
reção correta! 
I As linhas 150 a 320 apagam o tanque 
I de sua última posição, conforme o va- 



lor de LF. As linhas 330 a 480 dese- 
nham-no na nova posição, conforme o 
valor de F. 

Note que as linhas DATA 2000 a 
2140 foram geradas com o programa 
editor apresentado no artigo da página 
316. Os blocos do tanque são numera- 
dos de cima para baixo e, depois, da es- 
querda para a direita. 

HCOLOR = 3 desenha o tanque em 
branco. Se utilizarmos HCOLOR=l. 
teremos a cor verde, mas o desenho se- 
rá ligeiramente deformado. Isto ocorre 
devido à maneira como o Apple usa as 
cores em alta resolução. 



O programa a seguir monta uma ta- 
bela correspondente ao sapo da figura 2. 

10 HOME :E - 35000: HIMEM : E 
20 POKE 233, INT <E / 256): PO 
KE 232, E - 256 * PEEK (233) 
30 FOR I - E TO E *- 41 + 10 ■ 
32: READ A: POKE I.A: NEXT I 
40 HGR : SCALE- 1: ROT- 0 
100 GOSUB 1800: GOSUB 1300 
110 GOSUB 1000 

120 GET KS: IF KS < > " " THE 
N 120 

130 GOSUB 1200: GOSUB 1000 
GOSUB 1500: GOSUB 1300 
GOSUB 1040: GOSUB 1400 
GOSUB 1200: GOSUB 1500 



140 
LS0 
160 
170 
180 
190 
200 
210 
220 
230 
240 
1000 
1010 
1020 
1030 
1035 
1040 
1050 
1060 
1070 
1080 



GOSUB 1040: 
GOSUB 1600: 
GOSUB 1400: 
GOSUB 1600: 
GOSUB 1300: 
GOSUB 1000: 



GOSUB 1300 
GOSUB 1040 
GOSUB 1200 
GOSUB 1040 
GOSUB 1700 
GOSUB 1400 



GOSUB 1200: GOSUB 1700 
GOSUB 1000: GOTO 100 

DRAW 1 AT X,V 

DRAW 2 AT X,Y + 8 

DRAW 3 AT X 

DRAW 4ATX+8.Y+8 

RETURN 

DRAW 5 AT X.Y 
DRAW 6 AT X + 8, Y - 16 
DRAW 7ATX*8.Y-8 
DRAW 8 AT X + 8.Y 
DRAW 9 AT X + 16, 



90: RETURN 

1800 X - 30:Y - 90: RETURN 
2000 DATA 20 ,0 ,42 ,0 ,74 , 

0 .106 ,0 ,138 ,0 ,170 ,0 ,202 
,0 .234 .0 .10 ,1 ,42 .1 .74 .1 

.106 .1 ',138 ,1 .170 ,1 ,202 . 

1 .234 ,1 .10 .2 .42 .2 .74 ,2 
,106 ,2 ,138 .2 

2010 DATA 0 ,72 .73 ,73 .21 
8 ,219 ,219 .74 ,73 .73 .218 ,2 
19 ,219 ,74 ,73 .73 ,218 .219 , 
219 ,74 ,73 .9 ,213 ,223 ,219 . 
19 ,0 .0 .0 ,0 ,0 .0 
2020 DATA 0 .72 .73 ,77 ,26 
,63 .255 .155 ,73 ,45 ,45 .213 
.63 ,63 ,255 .10 .45 ,45 ,45 , 
213 ,59 ,63 ,63 ,55 ,45 .45 .77 

,209 ,63 ,63 .63 ,23 
2030 DATA 0 .72 ,73 ,73 ,21 

8 ,219 ,219 ,74 ,73 ,73 .218 ,2 
19 ,219 ,74 ,73 .73 ,218 .219 . 
219 ,46 .77 ,73 ,209 ,219 ,59 , 
31 ,6 ,0 ,0 ,0 .0 ,0 

2040 DATA 0 ,8 ,109 ,73 ,20 

9 ,219 ,59 .63 ,46 ,109 ,73 ,20 
9 ,219 ,219 ,119 .77 .73 .209 . 
219 ,27 ,159 .73 .45 .77 ,218 , 
219 ,219 ,2 ,0 ,0 ,0 .0 

2050 DATA 0 .72 .73 .73 ,21 
8 ,219 ,219 ,74 ,73 ,73 ,26 ,22 
3 ,219 ,83 ,73 ,9 ,173 .27 ,255 
.219 ,74 .73 ,105 ,218 .219 .2 
19 .2 ,0 ,0 .0 ,0 ,0 
2060 DATA 0 ,72 ,73 .73 ,21 

8 ,219 ,219 ,74 ,73 ,73 ,218 ,2 
19 ,219 ,74 .73 ,73 .26 .223 ,2 
19 .83 ,73 .9 ,173 ,59 .255 .21 

9 ,2 ,0 ,0 .0 .0 ,0 

2070 DATA 0 ,72 .73 ,45 ,21 
3 .63 ,223 .155 ,73 .41 .45 ,21 
3 ,59 ,63 ,223 ,74 ,109 ,109 ,2 
18 ,255 ,251 .10 ,77 ,41 ,141 . 
27 ,255 .27 ,23 ,0 ,0 ,0 
2080 DATA 0 ,104 ,9 ,109 ,2 
09 ,219 .251 .51 .77 ,77 ,137 . 
219 ,219 ,159 .9 ,77 ,73 .218 , 
219 ,255 ,74 ,77 ,73 ,218 ,219 



16 

1090 DRAW 10 AT X 
Y - 8 

1100 RETURN 
1200 HCOL0R- 0: 
RETURN 

1300 HCOLOR- 3: 
RETURN 

1400 FOR I - 1 
TO 200: NEXT 1 
1410 RETURN 
1500 X - 90:Y - 
50: RETURN 
1600 X - 160:Y - 
50: RETURN 
1700 X - 230:Y - 




Illlllllllllll 



,219 ,2 ,0 ,0 ,0 ,0 ,0 
2090 DATA 0 ,72 ,9 ,77 ,209 

.27 .63 .223 ,74 .41 ,13 ,173 
,27 ,255 ,27 ,23 .45 .45 ,45 .1 
73 ,27 .63 ,63 ,63 .46 ,45 .45 
.77 ,26 .223 ,63 ,63 
2100 DATA 0 .40 .45 ,109 ,1 
41 ,219 ,223 .63 .78 ,73 .73 ,2 
1B ,219 ,219 .74 ,73 ,73 .218 , 
219 .219 ,74 .73 ,73 ,218 ,219 
,219 .2 .0 .0 .0 ,0 ,0 

Use a barra de espaço para fazer o 
sapo pular. 



Para definir e mover os desenhos das 
figuras 1 e 2, precisamos fazer três coi- 
sas. Primeiro, criar na memória do com- 
putador uma "grade" ou quadriculado 
onde possamos desenhar o que quiser- 
mos. Este quadriculado será composto 
por caracteres definidos pelo usuário. 
Segundo, transferir o padrão do dese- 
nho desejado — representado por nú- 
meros em linha DATA — para o qua- 
driculado. Terceiro, elaborar um pro- 
grama em BASIC que desenhe e movi- 
mente o tanque e o sapo. 

Um caractere definido pelo usuário 
(UDG) é um "quadro", dentro do qual 
se coloca parte de um desenho em alta 
resolução. O quadro é composto por 64 
pontos dispostos num arranjo de 
oito por oito pontos. Cada pon- 
to pode ser preto ou branco em 
PMODE 4,1 (este é o PMODE 
mais flexível; em outros é 
preciso definir dois ou qua- 
tro pontos de cada vez). 

Se colocarmos vários desses caracte- 
res lado a lado, poderemos construir de- 
senhos maiores e mais detalhados. À di- 
ferença de outros computadores, o TRS- 
Color não possui UDGs embutidos. 
Mas porções de sua memória se compor- 
tarão como tal, se fizermos um progra- 
ma para isto. 

Teoricamente, dispomos de espaço 
para criar muitos caracteres, mas seria 
trabalhoso usar vários deles. Na práti- 
ca, quatro ou cinco bastam. 



COMO CRIAR 0 QUADRICULADO 



Para produzir o tanque da figura 1, 
ou o sapo da figura 2, precisamos pri- 
meiro fazer com que uma porção da me- 
mória se comporte como UDGs. Os dois 
desenhos requerem um quadriculado de 
três por três caracteres — 24 por 24 
pontos. 

Se usássemos o BASIC para desenhar 
uma figura destas, precisaríamos de um 




PSET para desenhar cada ponto, ou se- 
ja, 576 PSET ao todo. Assim, um pro- 
grama em linguagem de máquina será * 
mais rápido. 
Digite: 

10 CLEAR 200.32000 
20 FOR 1-32000 TO 32110 
30 READ N 
40 POKE I.N 
50 NEXT 
60 CLS 

90 PRINT "APERTE QUAL 
QUER TECLA PARA 
GRAVAR O PROGRAMA EM 
LINGUAGEM DE MAGUI 
NA" 

100 BS-INKEYS 
11'' IF B$-"" THE 
N 100 

120 CSAVEM 
RPADRAO" . 
32000. 321 
10.32000 



130 DATA 190.127,188,134,3.183, 
125.111.183.125,112.134,8,183.1 
25.113 

140 DATA 182.125,250.39.50.206, 
126.44.74.198,72,61,51,203,166. 
192 

150 DATA 167,132,48,136,32,122, 
125.113.38.244,134,8,183.125.11 
3,48 

160 DATA 137.255,1,122.125,111, 
38.230,134,3.183.125,111,48,137 

.0 

170 DATA 253.122.125,112.38.216 
,57,95,231.132.48,136.32.122,12 
5.113 

180 DATA 38,246,134,8,183.125,1 
13,48.137.255,1,122.125,111,38, 
232 

190 DATA 134.3,183,125,111,48,1 
37.0,253.122.125.112.38.218,57 

Este programa cria um outro, em lin- 
guagem de máquina. Sua gravação deve 



ser feita pelo próprio programa; portan- 
to, tenha o gravador por perto — os pro- 
gramas aqui apresentados não funcionam 
com o drive de disquetes conectado. 

Além de produzir desenhos em alta 
resolução numa velocidade muito n 
o programa em código ocupa bem me- 
nos memória que uma rotina BASIC. 

Se você conhece a linguagem de má- 
quina do 6809, não entenderá o que os 
números nas iinhas DATA significam, 
mas pode ter uma ideia de como funcio- 
na o programa em BASIC. 

A linha 10 reserva a memória n 
sária para acomodar o programa em có- 
digo. As linhas 90 a 120 transferem o 
programa da memória para a fita. 



UM TANQUE DE GUERRA 



Para desenhar o tanque são necessá- 
rias duas figuras de três por três carac- 
teres — uma para o tanque apontando 
para a direita e outra para o tanque que 
aponta para a esquerda. 

Digite NEW para anular o programa 
antigo — o programa em código perma- 
necerá na memória. Este novo progra- 
ma cria o tanque mas, por enquanto, 
não o desenha. 

10 CLEAR 200.32000 

20 FOR 1-32300 TO 32443 

30 READ N 

40 POKE I.N 

50 NEXT 

60 DATA 0.0,0.0,0,0.0.0,0,0,0.0 

,0,0,0,0,0,0,0,0.0,0.0.0 

70 DATA 0.0.3,7.127,127,7.0,0,0 

.12B, 252, 255. 255, 255,0 

80 DATA 0.0.0.0.255.0.128.0,255 

.255,255,117.96.38.0,0 

90 DATA 255,255,255,215,130,102 

,0,0.252,254,255.94.12.96,0.0 

100 DATA 0.0,0,0.0,0.0,0,0,0,0, 

0.0,0.0.0.0.0.0.0.0.0,0.0 

110 DATA 0,0.0,0.255.0,1.0,0.0, 



CÓDIGO DE MAQUINA 



IHIIIIIIIIIII 



1.63,255.255.255,0 

120 DATA 0.0,192,224,254,254,22 

4.0,63.127.255,122,48.6,0,0 

130 DATA 255.255.255,235,65,102 

.0,0,255.255,255,174,6.100,0,0 

Para desenhar e mover o tanque, 
acrescente as próximas linhas ao progra 
ma anterior: 

5 POLEAR 5 

170 PMODE 4,1 

180 PCLS 

290 PCLS 

300 SCREEN 1.1 

310 T-l 

320 TP-3500 

330 POKE 32700. INT(TP/256) 

340 POKE 32701, TP-256MNT (TP/25 

6) 

350 POKE 32250, T 
360 EXEC 32000 
370 LP-TP 

380 IF PEEK(338)-251 THEN TP-TP 
-32:GOTO 440 

390 IF PEEX<342)-253 THEN TP-TP 
+32: GOTO 440 

400 IF PEEK<340)-247 THEN TP-TP 
-l:T-2:GOTO 440 

410 IF PEEK(338)-247 THEN TP-TP 
+l:T-l:G0TO 440 
430 GOTO 380 

440 IF TP<1536 OR TP>6941 THEN 
TP-LP 

470 GOTO 330 

Agora digite RUN; usando as teclas 
P, L, Z e X, você poderá mover o tan- 
que. Este deixará um rastro atrás de si. 
Para evitar o problema, digite: 



Estas linhas usam o programa em có- 
digo para imprimir uma figura compos- 
ta por caracteres em branco. 

Para que o canhão atire, acrescente 
mais algumas linhas ao programa. Vo- 
cê poderá fazê-lo por meio da barra de 
espaço. 

160 DIM A{2) ,B(2) ,C(2) 

190 FOR 1-1536 TO 1760 STEP 32 

190 FOR 1-1536 TO 1760 STEP 32 

200 READ N 

210 POKE I,N 

220 NEXT 

230 GET (0,0)-(7,7) ,A 

240 FOR 1-1536 TO 1760 STEP 32 

250 READ N 

260 POKE I.N:NEXT 

280 GET (0.0)-{7,7) . B 

420 IF PEEK(345)-247 GOSUB 500 

480 DATA 0,32,144,64,13,64.144, 

32 

490 DATA 0.4.9,2,176.2,9,4 
500 IF T-2 THEN 560 
510 yp-INT((TP-1536)/32)+8 
520 XP-8*(TP-1533-(YP-8)*32) 
530 IF XP>255 THEN 620 

■ 540 PUT (XP. YP)-(XP+7,YP+7) ,A 

I 550 GOTO 600 





2. Desenho do sapo. A figura pula quando se pressiona a tecla de espaço. 



560 YP-INT{(TP-1536)/32)+8 

570 XP-8*(TP-1537-(YP-8)«32) 

580 IF XP<0 THEN 620 

590 PUT (XP,YP)-(XP+7.YP+7) ,B 

600 FOR 1-1 TO IOOiNEXT 

610 PUT (XF,YP)-(XP+7,YP+7) ,C 

620 RETURN 



A figura 2 mostra o desenho de um 
sapo. Depois que ele for transferido pa- 
ra o quadriculado da memória e puder 
ser controlado pelo programa em BA- 
SIC, sairá pulando tela afora. 

Para transferir o desenho do sapo pa- 
ra o quadriculado, utilize o programa a 
seguir. Antes, porém, use NEW para 
limpar a memória ocupada pelo BASIC. 

10 CLEAR 200,32000 

20 FOR 1-32300 TO 32443 

30 READ N 

40 POKE I.N:NEXT 

60 DATA 0,0,0.0.0.0,0.0,0.0.0,0 

,0,0.0,0,0,0,0,0.0.0,0.0 

70 DATA 0.0,0,0.0.0,1,1.0,0.0.0 

,0,128,192,176 

80 DATA 0.0,0,0.0,0,0,0.4,15,31 

.63,127,254,248,127 

90 DATA 96,240,224,192.64,32.15 

6,192,0.0.0.0,0,0,0,0 

100 DATA 0.0,0,0.0,0,0,0.0,0.0. 

0.0,1,3.7,8,28.27,70.255,254.25 

2,249 

110 DATA 0.0,0.0,0,0,0,0,7.7,15 
,30,62,54, 70, 70 

120 DATA 250.196,0,0.0.0,0.0,0, 
0.1,1.3,6,2,0 

130 DATA 140.144,16,32,32.48.32 
,0,0,0,0.0,0,0.0.0 

Para fazer o sapo pular, digite NEW 
e, em seguida, este programa: 

10 PCLEAR 5 

20 PMODE 4,1 

30 PCLS 

40 SCREEN 1,1 

50 FP-4487 

60 POKE 32700,17 



70 POKE 32701.135 
80 POKE 32250,1 
90 EXEC 32000 

100 IF PEEK[345)<>247 THEN 100 

110 RESTORE 

120 FOR 1-1 TO 5 

130 READ F.FD 

140 POKE 32700. INTÍFP/256) 

150 POKE 32701, FP-256*INT (FP/25 

6) 

160 POKE 32250 , F 

170 EXEC 32000 

180 FOR J-l TO 70:NEXT 

190 POKE 32250.0 

200 EXEC 32000 

210 FP-FP+FD 

220 NEXT 

230 GOTO 80 

240 DATA 1,-287,2,-253,2.256,2. 
291,1.0 

Os números da linha DATA no final 
do programa fazem o sapo descrever um 
arco quando pressionamos a barra de es- 
paço. 



O BASIC do MSX dispensa o uso de 
linguagem de máquina, pois dispõe de 
comandos gráficos poderosos e é sufi- 
cientemente rápido para criar e movi- 
mentar figuras em alta resolução. 

O programa a seguir cria e movimen- 
ta o tanque da figura 1. 
5 CLEAR 300:COLOR 12,15.12 
10 SCREEN 1.3:KEY OFF 
20 FOR 1-1 TO 16*8 
30 READ A:AS-AS+CHRSIA) 
40 NEXT I 

50 SPRITESt0)-LEFTS(AS.32) 
60 SPRITES(1)-MIDS(AS.33,32) 
70 SPRITE$(2)-HIDS(A$,6S.32) 
80 SPRITES(3)-HID3(AS.97.32) 
90 SPRITE$(4)-MID$(AS, 33,16) 
100 SPRITES(5)-STRINGS(16,0)+HI 
DS (AS. 81, 16) 

110 X-100:Y-90:F-2 

111 PUT SPRITE 0, (X-16.Y) ,12,5 

112 PUT SPRITE 1. (X+16.Y) .12.3 



Illlllllll 



llllllllll 



120 KS-INKEYS:IF KS-"" THEN 120 

130 1F ASC1KSÍ-29 AND X>0 THEN 

X-X-l:F-2:GOTO 200 

140 IF ASC(KS)-28 AND X<210 THE 

N X-X+l:F-l:OOTO 200 

150 IF ASC(K$)-30 AND Y>0 THEN 

Y-y-l:OOTO 200 

160 IF ASC(K$)-31 AND Y<160 THE 

N Y-Y+1:G0T0 200 

200 ON F GOSUB 500,600 

210 GOTO 120 

500 PUT SPRITE 0.(X,Y),12,0 
510 PUT SPRITE 1 , (X+32.Y) .12,4 
520 RETURN 

600 PUT SPRITE 0 , (X-16 . Y) .12.5 
610 PUT SPRITE 1, (X+16.Y) ,12.3 
620 RETURN 

5000 DATA 0 , 0 , 3 , 7 , 127 

255 . 255 , 255 



117 



96 



38 



128 . 252 . 255 . 255 . 255 
, 0 . 255 , 255 . 255 . 215 , 
130 , 102 . 0 , 0 
5010 DATA 0 , 0 . 0 , 0 . 255 
, 0 , 128 , 0 . 252 , 254 . 255 
, 94 . 12 . 96 , 0 , 0 . 0 , 3 
2 , 144 , 64 , 13 , 64 , 144 , 
32, 0,0. 0,0. 0.0. O 
. 0 

5020 DATA 0 , 4 . 9 . 2 . 176 



255 , 0 . 1 , 0 , 63 , 127 , 25 

5 , 122 . 48 , 6 . 0 , 0 

5030 DATA 0 . 0 . 1 , 63 , 255 

, 255 , 255 , 0 , 255 , 25S , 
2S5 . 235 . 65 . 102 , 0 . 0 . 
0 , 0 , 192 . 224 , 254 , 254 , 

224 . 0 . 255 . 255 . 255 . 17 
4 . 6 . 100 . 0 , 0 

A linha 5 estabelece as cores da tela 
— COLOR — e reserva espaço na me- 
mória para acomodar o cordão AS.que 
é muito longo — CLEAR 300. 

A linha 10 seleciona a tela de 32 co- 
lunas, com sprites grandes e em baixa 
resolução (32 por 32 pontos). Além dis- 
so, desativa a impressão das teclas de 
função na parte inferior da tela. 

O FOR... N EXT das linhas 20 a 40 lê 
as linhas DATA do final do programa, 
onde está definido o padrão do tanque. 
Estes valores são transferidos para o 
cordão AS (veja página 188). 

As tinhas 50 a 100 criam os sprites 
que montam o tanque. Observe que o 
cordão AS é "recortado" pelas funções 
Ml DS e LEFTS. Os sprites criados são: 
0. parte posterior do tanque da direita 
da figura 2; I , pane dianteira atirando; 
2, parte dianteira do tanque da esquer- 
da atirando; 3, parte traseira. Os spri- 
tes 4 e 5 contêm a parte dianteira do tan- 
que, cada uma apontada para um lado, 
sem o tiro. 

As linhas 1 10 a 1 12 desenham o tan- 
que em sua posição inicial. As linhas 120 
a 160 mudam o valor de X e Y, confor- 
me a tecla do cursor pressionada, mo- 



vimentando o Ianque. As condições que 
se seguem á conjunção AND evitam que 
o tanque ultrapasse os limites da tela. F 
é um sinalizador da direção em que o 
tanque aponta. 

A linha 200 utiliza F para decidir em 
que direção desenhar o tanque. O dese- 
nho propriamente dito é feito pelas sub- 
rotinas 500 e 600. 

Note que os sprites da parte diantei- 
ra e traseira são desenhados em níveis 
de prioridade diferentes. Se ambos esti- 
vessem no mesmo nível, o segundo a ser 
desenhado faria o primeiro desaparecer. 
Esta mesma propriedade responde pelo 
desaparecimento do tanque de sua an- 
tiga posição, quando a nova é desenha- 
da. 

As próximas linhas farão o tanque 
atirar ao toque da barra de espaço. 

170 IF ASC(KS)-32 THEN IF F-l T 
HEN F-3 ELSE F-4 
200 ON F GOSUB 500.600,700,600 
700 PUT SPRITE 0,(X,Y),12,0 
710 PUT SPRITE 1. (X+32.Y) ,12,1 
720 FOR 1-1 TO 50:NEXT 
730 F-F-2:G0SUB 500:RETURN 
800 PUT SPRITE 0 , (X-16 . Y) ,12,2 
810 PUT SPRITE 1, (X+16.Y) .12,3 
820 FOR 1-1 TO 50:NEXT 
830 F-F-2:G0SUB 600:RETURN 

Para produzir o tiro, o programa usa 
o sinalizador F. Conforme se tenha pres- 
sionado a barra de espaço, também são 
utilizados os sprites I e2, corresponden- 
tes à parte dianteira dando tiro — nos 
dois sentidos. 

Se você quiser sprites grandes em al- 
ta resolução, faça as seguintes modifi- 
cações: 

10 SCREEN 1,2:KEY OFF 

111 PUT SPRITE 0, (X-8.Y) ,12,5 

112 PUT SPRITE 1, (X+8.Y) ,12,3 
500 PUT SPRITE 0,(X,Y),12,0 
510 PUT SPRITE 1. (X+16.Y) ,12.4 
600 PUT SPRITE 0 , (X~8 . Y) ,12,5 
610 PUT SPRITE 1, (X+8.Y) ,12,3 
700 PUT SPRITE 0,(X,Y).12,0 
710 PUT SPRITE 1, (X+16.Y) .12, l 
800 PUT SPRITE 0 , <X~8 , Y) .12,2 
810 PUT SPRITE 1, (X+8.Y) ,12,3 



O programa a seguir cria o sapo da 
figura 2 e o faz pular ao toque da barra 
de espaço. 

5 CLEAR 300:COLOR 12,15,12 

10 SCREEN 1.3:KEY OFF 

20 FOR 1-1 TO 12*B 

30 READ A:AS-A3+CHRS (A) 

40 NEXT I 

50 SPRITES (0) -LEFTS (AS . 32) 
60 SPRITES(D-HID$(A$. 33,32) 
70 SPRITES(2)-MIDS(AS.65,32) 
110 X-50:Y-120 



111 PUT SPRITE 0.(X,Y),12.0 
120 KS-INKEYS:IF KS-" THEN 120 
170 IF ASC(K$)-32 THEN GOSUB 50 



510 PUT SPRITE 1. (X+16.Y-32) ,12 



540 PUT SPRITE 1 . (X+48 , Y-32) , 12 
.2 

550 FOR 1-1 TO 100:NEXT 

560 PUT SPRITE 0 . tX+96 , Y) ,12,0 

570 PUT SPRITE 1, (X+48, 209) ,12, 

2 

580 X-X+96 
590 RETURN 

5000 DATA 0,0,0.0.0. 
0 . 1 . 1 . 4 . 15 , 31 , 63 , 
127 . 254 , 248 . 127 , 0 . 0 . 

0 , 0 , 0 , 128 , 192 , 176 , 
96 . 240 . 224 . 192 . 192 . 32 



5010 DATA 



0 , 0 



4 . 38 , 70 . 70 . 8 , 28 . 27 
. 70 , 255 . 254 , 252 . 249 , 
250 , 196 , 0 , 0 . 0 . 0 , 0 . 
0 

5020 DATA 0,0.0,1,3. 
6,2,0,0.0,0,0,0, 

0,0,0, 140 , 144 , 144 , 
32 , 32 . 48 , 32 . 0 . 0 . 0 . 

0.0,0,0,0,0 

A preparação do computador £ a 
criação dos sprites a partir das Unhas 
DATA são muito parecidas com o pro- 
grama do tanque, só que o laço 
FOR.. .NEXT é mais curto. 

A diferença é que não precisamos 
mover o sapo, apenas fazê-lo saltar 
quando a tecla de espaço for pressiona- 
da. As linhas 120 e 170 detectam a ocor- 
rência de pressão na tecla. 

A sub-rotina 500 é responsável pela 
trajetória que o sapo descreve. Para en- 
tender como os sprites foram montados, 
use PUT SPRITE no modo imediato, 
após ter parado o programa com 
< CNTRL > <STOP>. 

Para obter o mesmo efeito com spri- 
tes de alta resolução, faça as seguintes 
modificações: 



510 PUT SPRITE 1, (X+8.Y-16) .12, 

2 

530 PUT SPRITE 0. (X+32.Y-32) ,12 
,1 

540 PUT SPRITE 1 , (X+24.Y-16) ,12 
,2 
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PAR A JOYSTICKS 



Os joysticks tornam seus jogos muito 
mais profissionais. E não se preocupe: 
você não precisa saber linguagem 
de máquina para utilizá-lo - 
o BASIC é suficiente. 



Os jogos vendidos no comércio e os 
produzidos em casa apresentam, em ge- 
ra], uma diferença evidente: os primei- 
ros oferecem ao usuário a opção de usar 
um joystick; os segundos, não. Todavia, 
não é necessário mergulhar nas profun- 
dezas da programação em código para 
incluir este periférico nos programas de 
jogos. 

Você verá neste artigo como utilizar 
um joystick em programas BASIC, tor- 
nando seus jogos mais profissionais e, 
sobretudo, muito mais divertidos. 

Antes de fazer um programa que o 
inclua, é preciso obter um joystick com- 
patível com o micro em questão. Os pro- 
gramas que- aqui apresentamos devem 
ser utilizados com o joystick padrão dis- 
ponível para cada computador. Obser- 
vações a respeito se encontram antes de 
cada programa. Mais informações sobre 
joysticks em geral podem ser obtidas no 
artigo da página 287. 



Existem vários tipos de joystick com- 
patíveis com o Spectrum. Não é possí- 
vel escrever um programa que funcione 
com todos eles, pois cada um tem sua 
própria maneira de se comunicar com 
a máquina. Assim, optamos por um 
programa que funcione com o tipo mais 
comum de joystick: Atari. 



UMA ALÇA DE MIRA ANIMADA 



A primeira parte ao programa permi- 
te a movimentação de uma alça de mira 
na tela do Spectrum. 

100 BORDE R 1: PAPER 1: INK 7: 

OVER 1: CLS : INK B 

110 FOR n-USR "a" TO USR "h"+7 

: READ a: POKE n.a: NEXT n 

130 LET B-0: LET X-15: LET Y- 

10 

140 PftlNT OVER 1;AT y,x;CHR$ 
146;CBRS 149iAT y+l,Jt;CHRS 150 
;CHRS 151 
200 GOSUB 500 
460 GOTO 200 

500 LET íS-INKEYS: IF i$-"" 

THEN RETURN 
I 505 LET i-CODE i$ 
! 510 PRItJT OVER 1:AT y,x;CHR3 
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UM TESTE PARA SEU 




EM PROGRAMAS BASIC 




JOYSTICK 




148;CHRS 149 ; AT yH,x;CHRS 150 
;CHRS 151 

520 IF i-57 AND y>l THEN LET 

y-y-1 

530 IF i-56 AND y<20 THEN LET 
y-y+1 

540 IF i-55 AND x<30 THEN LET 
550 IF i-54 AND x>0 TREN LET 

560 PRIMT OVER 1;AT y,x;CHRS 

148;CHRS 149;AT y+l.x;CHR3 150 

;CHRS 151 

570 HETURN 
1000 DATA 14,27.127.31.15.7,15, 
31 

1010 DATA 0.0.0,0.0.192,112.188 
1020 DATA 31,29,30,15.3.1.1.3 
1030 DATA 206,30,124.248,224.64 
,64,224 

1040 DATA 12,12.12,12,252,252,0 



.0 



12 



1070 DATA 0,0,63,63,48,48.48.48 

O programa começa estabelecendo as 
cores do vídeo. Em seguida, utilizando 
os valores das linhas DATA 1000 a 
1070, cria oito caracteres definidos pe- 
lo usuário. O programa não usa todos 
os caracteres, pois eles desenham não só 
a alça de mira, mas também um pato. 
Este será utilizado pela parte restante do 
programa, que apresentaremos num 
próximo artigo. 

Criados os caracteres, a linha 130 
acerta a posição inicial da mira na tela. 
Além disso, zera o contador de pontos 
— ou escore — , que também aguarda 
a próxima parte do programa para ser 
utilizado. 

A linha 140 usa o comando PRINT 
para colocar na leia a metade superior 
da mira, usando dois caracteres defini- 
dos pelo usuário. Depois, coloca a me- 
tade inferior, usando dois outros carac- 
teres. A alça de mira é controlada pela 
sub-rotina que começa na linha 500, 
chamada linha 200. 

A sub-rotina que controla o joystick 
usa a função INKEV$ para saber em 
que direção o bastão está virado. Isto é 
possível porque o joystick envia carac- 
teres ao micro, como se fizesse parte do 
teclado. Os códigos desses caracteres es- 
tão na figura 2. As quatro direçôes prin- i 
cipais dão os valores 57, 56, 55 e 54. | 
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1. A função STICK(n) do MSX assume 
valores diferentes conforme a direção 
dada pelo bastão do joystick. 

A primeira linha da sub-rotina — li- 
nha 500 — verifica se o joystick está na 
posição central. Nenhum caractere será 
enviado se o bastão ocupar esta posição. 
Em seguida, a linha 505 guarda o códi- 
go do caractere na variável i. usando a 
função CODE. 

A linha 5 10 apaga a mira, pois é a se- 
gunda vez que PRINT OVER 1 foi usa- 
do (a primeira foi na linha 140). OVER 
1 faz com que o gráfico impresso na pri- 
meira vez desapareça quando è usado 
pela segunda vez. 

Agora que a posição antiga foi apa- 
gada, a nova pode ser calculada. Ela vai 
depender da direção em que o bastão do 
joystick for empurrado pelo jogador. A 
linha 520 percebe o movimento para ci- 
ma; a linha 530 percebe os movimentos 
para baixo; e as linhas 540 e 550 perce- 
bem os movimentos laterais. 

A sub-rotina termina colocando a al- 
ça de mira em sua nova posição. Obser- 
ve que, como é a primeira vez que a fi- 
gura é desenhada nesta posição, ela apa- 
rece normalmente. 

Para permitir um movimento contí- 
nuo da mira, a linha 480 traz um GO- 
TO 200, fazendo com que a sub-rotina 
do joystick seja chamada repetidamen- 



Como o ZX-81 não permite a movi- 
mentação de figuras usando só o BA- 
SIC, a mira desenhada pelo programa 
a seguir é apenas um ponto gráfico (um 
quarto de caractere). 

O programa deve ser utilizado com 
o joystick do TK-85 da Microdigital. 

|l0 LET x-37 



d 



2. O joystick do Atari envia caracteres 
ao Spectrum. Os códigos mudam conforme 
a direção. 

20 LET Y-20 

30 GOTO 170 

40 LET LX-X 

50 LET LY-Y 
100 LET AS-INKEYS 
110 IF AS-"" THEN GOTO 100 
115 LET A-CODE AS 
120 IF A-33 AND X>0 THEN LET X- 
X-l 

130 IF A-36 AND X<63 THEN LET X 
-X+l 

140 IF A-34 AND Y>0 THEN LET Y- 
Y-l 

150 IF A-35 AND Y<40 THEN LET Y 
-Y+l 

160 UNPLOT LX , LY 
170 PLOT X.Y 
180 GOTO 40 

As linhas 10 e 20 armazenam a posi- 
ção central da tela gráfica em X e V. A 
linha 30 desvia o programa para a linha 
170, para que o primeiro ponto seja im- 
presso. Se ela for suprimida, o primei- 
ro ponto só aparecerá após algum mo- 
vimento do joystick. 

As linhas 40 e 50 guardam os últimos 
valores assumidos por X e V em LX e 
LY, para que o programa saiba onde 
apagar a última posição do ponto. 

As linhas de 100 a 150 controlam o 
joystick. A linha 100 promove uma 
"varredura" do teclado. Isto é necessá- 
rio porque o joystick envia caracteres ao 
micro, como se fizesse parte do teclado. 
A linha 110 repete a linha 100 até que 
algum movimento seja feito no joystick. 
Ao ocorrer o movimento, a linha 115 
guarda o código do caractere enviado na 
variável A, usando CODE. 

Os códigos dos caracteres enviados 
pelo joystick são 35 (para cima), 34 (pa- 
ra baixo), 33 (esquerda) e 36 (direita) 
(veja a figura 3). As linhas 150, 140, 120 
e 130 detectam, respectivamente, estes 
movimentos. As condições sobre X e V, 



3. Estes são os códigos dos caracteres 
enviados ao computador pelo 
joystick do TK-85. 

que se seguem à conjunção AND nes- 
tas mesmas linhas, evitam que o ponto 
ultrapasse os limites da tela. 

Finalmente, a linha 160 apaga o pon- 
to de sua última posição, usando UN- 
PLOT. e a linha 170 coloca-o em sua 
nova posição com PLOT. A linha 180 
volta ao princípio. 



O MSX tem uma função especial — 
STICK (N) — , que facilita muito o con- 
trole de joysticks por programas em BA- 
SIC. Além disso, essa função permite 
que nosso programa seja utilizado mes- 
mo por quem não possui um joystick. 



COMO MOVER SPRITES COM 0 JOYSTICK 



O programa a seguir foi feito para 
funcionar com o joystick do HOTB1T 
conectado ã tomada frontal direita. 

10 SCREEN 1,2:KEY OFF 

20 FOR 1-1 TO 32 

30 READ A:AS-AS+CHRS(A) 

40 NEXT 1 

50 SPRITES (0) -AS 

60 PUT SPRITE 0, (115.85) ,15 

170 X-115:Y-85 

200 GOSUB 1000 

210 GOTO 200 

1000 A-STICK(l) 

1010 ON A GOTO 1030.1040,1050,1 

060 , 1070 , 1080 . 1090 , 1100 

1020 RETURN 

1030 Y-Y-l :G0TO 1110 

1040 X-X+l: Y-Y-l :GOTO 1110 

1050 X-X+l:GOTO 1110 

1060 X-X+1:Y-Y+1:G0T0 1110 

1070 Y-Y+l:GOTO 1110 

1080 X-X-l :Y-Y+1 :GOTO 1110 
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4. Cada direção corresponde a um 
caractere no joystick do TK-2000. 
Estes são seus códigos. 



1090 X-X-1:G0T0 1110 
1100 X-X-1:X-Y-1:G0T0 1110 
1110 PUT SPRITE 0,(X,Y),15 
1120 RETURN 

5000 DATA 3 , 12 . 16 . 32 . 3 
2 . 64 . 64 , 127 , 64 , 64 , 3 
2 . 32 , 16 . 12 , 3 , 0 . 224 
. 152 , 132 , 130 , 130 . 129 . 

129 . 255 , 129 , 129 , 130 . 
130 , 132 , 152 . 224 , 0 

A linha 10 ativa a tela de 32 colunas, 
com sprites grandes em alta resolução 
— SCREEN 1,2. Além disso, impede 
que o conteúdo das teclas de função se- 
ja impresso na parte inferior da leia, 
usando KEY O FF. 

As linhas 20 a 50 criam um sprite 
grande — dezesseis por dezesseis — pa- 
ra a alça de mira. Os números que defi- 
nem o padrão do sprite são lidos na li- 
nha 5000 (veja página 188). A mira é en- 
tão desenhada em sua posição inicial pe- 
la linha 60. A tinha 170 guarda esta po- 
sição em X e Y. 

A linha 200 chama a sub-rotina de 
controle do joystick, que movimentará 
o sprite uma vez. A linha 210 faz com 
que o processo se repita, possibilitando 
o movimento contínuo. 

As linhas 1000 a 1 120 controlam o 
joystick, por meio da função especial 
STICK (1). Esta assume diferentes va- 
lores, conforme a posição do joystick 
número 1 (veja a figura 1). STICK (2) 
é usada com o joystick 2; STICK (0) 
possibilita a substituição do joystick pe- 
las teclas do cursor. 

A linha 1000 armazena o valor cor- 
respondente à posição do joystick em A. 
A linha 1010 usa ON A GOTO para des- 
viar o programa conforme o valor de A 
(veja página 76). Isto pode ser feito por- 
que os números que o joystick envia são: 
0, em repouso; 1, norte; 2, nordeste; 3, 




5. O joystick do TRS-Color é analógico; 
cada um dos seus dois potenciómetros 
fornece um valor entre 0 e 63. 




6. A leitura do joystick analógico do 
Apple só pode ser feita por um programa 
em linguagem de máquina. 



leste; 4, sudeste; 5, sul; 6, sudoeste; 7, 
oeste e 8, noroeste. As linhas para onde 
o programa é desviado calculam os no- 
vos valores de X e V — linhas 1030 a 
1 100. Quando A é igual a zero, o pro- 
grama vai para a linha 1020. 

Depois que a nova posição foi calcu- 
lada, a linha 1 110 desenha o sprite ne- 
la. A linha 1120 provoca o retorno da 
sub-rotina. 




Por meio do comando PDL (paddle 
— em inglês, raquete) controla-se ade- 
quadamente o joystick do Apple. Este 
micro possui uma entrada de joystick 
que, na verdade, é uma tomada, onde 
quase todo tipo de aparelho analógico 
ou digital pode ser conectado sem maio- 
res dificuldades. 

O programa a seguir foi feito total- 
mente em BASIC; por isso, não controla 
muito bem o joystick analógico. 




DESCUBRA OS CÓDIGOS 



Se seu joystick é de outra marca, 
experimente este pequeno programa 
para descobrir quais são os códigos dos 
caracteres enviados por ele. 

Caso você tenha um Apple, não uti- 
lize nenhum programa. Pode ser que 
seu joystick utilize outro byte analógi- 
co. Existem qu3tro desses bytes, en- 
dereços -16284 a -16281. Tente to- 
das as combinações possíveis nas li- 
nhas 510 e 520. 




10 LET AS - INKEYS 

20 IF AS - "" THEN GOTO 10 

30 PR I NT CODE AS 

40 GOTO 10 



Conecte o joystick na tomada direi- 
ta do HOTBIT. Se não funcionar no seu 
MSX, troque a tomada ou substitua o 
número 1 por 2 na função STICK: 



10 PRINTSTICKU) ; :GOTO 10 



10 GET AS 

20 PRINT ASC(AS) 

30 GOTO 10 



10 HOME :E - 35000: HIMEM : E 
20 F - IKT (E / 256) : POKE 232 
,E - F « 256: POKE 233, F 
30 FOR I ■ E TO E + 41 + 5 « 3 

2 

40 READ A: POKE I.A 
50 NEXT 

60 HGR : SCALE- 1: ROT- 0:X - 

130:Y - 90 

200 GOSUB 500 

210 GOTO 200 

500 LX - X:LY - Y 

510 A - PDL (1) :B - PDL (0) 

530 IF A - 0 AND Y > 8 THEN Y 

- Y - B: GOTO 580 

540 IF A ■ 255 AND Y < 144 THE 

N Y ■ Y + 8: GOTO 580 

550 IF B - 0 AND X > 8 THEN X 

- X - B: GOTO 580 

560 IF B - 255 AND X < 266 THE 

N X - X + B: GOTO 580 

580 HC0LOR- 0 

590 DRAW 5 AT LX, LY 

600 HCOLOR- 3 

610 DRAW 5 AT X.Y 
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Podemos usar joysticks nos outros 
programas de jogos já publicados am 
INPUT? 

A parte principal do programa forne- 
cido neste artigo pode ser adicionada 
á maioria dos programas que usam 
GETS ou INKEYS para "ler" o teclado. 
Assim, você poderá aperfeiçoar seus jo- 
gos, pois é muito mais conveniente e 
divertido usar joysticks do que teclado. 

As tinhas importantes destes pro- 
gramas são: para o Spectrum, linhas 
520 a 550; para o ZX81, linhas 100 a 
150; paraoMSX, linhas 1000a 1120; 
para o TK-2000 e Apple, linhas 500 a 
530; e para o TRS-Color, as linhas 
1000 a 1070, chamadas como sub- 
rotina lalguns valores terão que ser mo- 
dificados, conforme o tamanho da fi- 
gura). 



620 RETURN 

2000 DATA 20 ,0 .42 .0 .74 .0 
,106 .0 .138 ,0 .170 .0 ,202 , 

0 .234 .0 .10 ,1 ,42 .1 .74 .1 

.106 .1 ,138 .1 .170 .1 .202 .1 
.234 .1 ,10 ,2 ,42 ,2 .74 .2 . 

106 ,2 .138 .2 

2010 DATA 0 ,72 .9 .45 ,141 
.59 ,31 .255 .83 ,45 .45 .45 .2 
13 ,63 ,63 .223 ,74 ,9 .45 ,173 

.59 ,255 ,219 .74 .9 .45 .173 
,59 .63 ,255 .19 .0 
2020 DATA 0 .72 ,41 .45 ,173 
.251 .63 .223 ,74 .41 ,4S ,141 
.59 ,63 .223 ,83 .73 .73 .213 
.219 .219 .83 .7.1 .73 ,209 ,255 

.219 .19 ,0 .0 ,0 ,0 
2030 DATA 0 .72 ,73 ,73 .218 
.219 .219 .74 ,73 ,73 ,218 .21 
9 ,219 ,74 .73 .73 ,218 ,219 ,2 
7 .119 .45 .77 .137 ,219 .63 .2 
55 .6 ,0 .0 .0 .0 .0 
2040 DATA 0 ,40 ,77 ,45 .141 
,27 .63 ,255 .83 .45 .45 .77 . 
218 .27 .63 .63 ,46 .109 ,73 .2 
09 .219 ,27 .31 .110 .77 ,73 .2 
18 .219 .63 .55 .0 ,0 
2050 DATA 0 .72 .73 .73 ,!1B 
.27 .22J ,83 .73 ,77 .209 ,219 
.223 ,83 .45 .45 ,45 .211 .219 
.223 ,83 .73 .77 ,209 .219 ,22 
3 ,19 ,0 ,0 ,0 ,0 ,0 

As linhas 10 a 50 criam uma tabela 
de figuras a pari ir das linhas DATA cal- 
culadas com o editor da página 316. 

A linha 60 estabelece as condições ini- 
ciais de posição, cor e escala na tela grá- 
fica. 



A sub-rotina SOO controla o joystick. 
A linha 210 chama repetidamente a sub- 
rotina, possibilitando um movimento 
contínuo, 

As linhas 510 e 520 lêem o status dos 
dois puddles conectados ao joystick, por 
meio dos comandos PDL(O) e PDL(l). 

As linhas 530 a 560 deslocam a mira 
continuamente para a esquerda e para 
cima, a menos que um movimento para 
baixo ou para a direita seja executado. 
Isto é o máximo que se pode fazer utili- 
zando apenas o BASIC. 

As condições que se seguem às con- 
junções AND evitam que a mira ultra- 
passe os limites da tela. 

As linhas 580 e 590 apagam a mira 
de sua última posição; as linhas 600 e 
610 refazem o desenho na nova. 

A tabela de figuras criada a partir das 
linhas DATA inclui um pato, alem da 
mira. Ele será utilizado num próximo 
artigo. 



no 




O programa anterior não funciona- 
rá no TK-2000. Faça as modificações in- 
dicadas a seguir c use o joystick da Mi- 
crodigital ou as setas do teclado. 

510 oet A9 

520 A - ASC (AS) 

530 IF A - 112 AND Y > 8 THEN 

Y - y - B: GOTO 570 

540 IF A - 113 AND Y < 144 THE 

N V - Y + 8: GOTO 570 

5S0 IF A - 8 AND X > 8 THEN X 

- X - 8: GOTO 570 

560 IF A - 21 AND X < 266 THEN 

X ■ X + 9: GOTO 570 
570 BEM 

O joystick envia caracteres ao micro, 
como se fizesse pane de seu teclado; as- 
sim, a linha 510 utiliza GETS AS para 
obter a nova posição do joystick. A li- 
nha 120 guarda o código do caractere 
enviado em A. 

Os códigos correspondentes aos mo- 
vimentos do joystick estão na figura 4. 
Esses códigos são os mesmos das setas 
do teclado, motivo pelo qual não é ne- 
cessário dispor de um joystick para usar 
o programa. 

A linha 530 detecta o movimento pa- 
ra cima; a 540, para baixo; a 550 para 
a esquerda e a 560 para a direita. As 
condições que se seguem à conjunção 
AND nestas linhas evitam que a mira ul- 
trapasse os limites da tela. 

As operações após THEN calculam 
as novas coordenadas. 

Note que o joystick do TK-2000 não 
é auto-repetitivo . A tecla REPEAT con- 
torna parcialmente o problema. 




O TRS-Colbr tem uma função em 
BASIC para controlar o joystick — 
JOYSTK — que facilita muito em- 
prego deste periférico. O computador 
admite a utilização de dois joysticks, 
mas o programa abaixo só usa um. 

Antes de passar ao programa, conec- 
te seu joystick na tomada traseira mar- 
cada com JOY-DIR. O programa não 
funcionará se o drive de disquetes esti- 
ver conectado. 

■ ^'""^M 

Digite a primeira seção do programa 
e depois rode-a. Você verá uma alça de 
mira surgir na tela. 

10 PMODE 3.1 

20 FOB K-1536 TO 1B68 STEP 32 

30 FOR J-0 TO 2 

40 READ A:POKE K+J.A 

50 NEXT J.K 

160 SCREEN 1,0 

170 GOTO 170 

4000 DATA 252.15.192.192.0.192. 

48.3.0,12.12,0.3,48,0 

4010 DATA 0.0.0.3.48.0,12.12.0, 

46,3,0.192.0.192.251.15.192 

Esta parte do programa é bem sim- 
ples. As linhas 20 e 50 usam POKE para 
colocar a mira na tela, com os valores da- 
dos pelas linhas DATA 4000 e 4010. 

A Unha 160 ativa a tela de alta reso- 
lução. A linha 170 é temporária e serve 
para manter a tela gráfica ligada. 

Depois de digitar a segunda parte do 
programa, você poderá movimentar a 
mira pela tela usando o joystick. 
60 D IH S(5) .B(5) ,D(4) ,H<4) 
70 GET (0,0)-(17.11) ,S,G 
130 PCLS 

140 LINE(0,0)-(255.191) .PSET.B 
170 X-127:Y-9S 
200 GOSUB 1000 
210 GOTO 200 

1000 JO-JOYSTK(O) :Jl-JOYSTK(l> 
1010 IF J0>58 THEN JO-58 
1020 IF Jl>59 THEN Jl-59 
1030 IF X-JOM+10 AND Y-Jl*3+6 
THEN 1070 

1040 PUT{X-8,Y-5)-<X+9.Y+S) ,B,P 
SET 

1050 X-JO*4*10:Y-Jl*3+6 

1060 PUT (X-8,Y-5)-(X+9.Y+5) ,S. 

OB 

1070 RETURN 

Embora o programa empregue ape- 
nas duas matrizes para armazenar dese- 
nhos, a linha 60 dimensiona quatro de- 
las — duas para uso futuro. A linha 70, 
com GET. armazena o desenho da mi- 
ra na matriz S. Esta matriz é usada jun- 
tamente com a matriz B — em branco 
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-— para animar o desenho. 

A linha 130 limpa a tela para que, 
quando ela for ligada, o desenho origi- 
nal da mira não apareça. A linha 140 de- 
senha uma moldura para tornar o jogo 
mais bonito. 

Antes da sub-rotina de controle do 
joystick ser chamada pelo GOSUB da 
linha 200, a posição inicial da mira é 
acertada pelos valores de X c V da li- 
nha 170. 

Trataremos agora da parte mais im- 
portante do programa: a sub-rotina que 
com que a posição da mira na tela 




Dependendo do computador, pode -se criar 

a alça de mira animada a partir de 
caracteres definidos pelo usuário, 
dos caracteres gráficos da ROM oi 
do conjunto de caracteres padrão. 



corresponda à posição do joystick. Ela 
vai da linha 1000 à linha 1070. 

A linha 1000 usa a função JOYSTK. 
JOYSTK (0) verifica a posição horizon- 
tal do joystick direito, enquanto 
JOYSTK (1) verifica a posição vertical 
do mesmo joystick. JOYSTK (2) e 
JOYSTK (3) fazem o mesmo para o 
joystick esquerdo. 

Cada uma destas quatro funções po- 
de assumir um valor que vai de 0 a 63, 
de acordo com a posição dos joysticks. 

Na sub-rotina, a linha 1000 usa as va- 
riáveis Jl e J0 para armazenar o valor 
de JOYSTK (1) e JOYSTK (0): assim, 
não é preciso escrever o nome todo da 
função ao longo do programa. Este pro- 
- cedimento é bem comum. Em INPUT, 
utilizamos KS para armazenar o valor 
de INKEYS. por exemplo. 

As linhas 1010 a 1020 impedem que 
a mira saia fora dos limites da tela, le- 
vando em conta o tamanho do desenho. 

As linhas 1040 a 1060 são responsá- 
veis pela animação. Primeiro, apagam 
a mira da sua última posição; depois, 
calculam a nova posição e nela situam 
a mira, usando PUT. 

A linha 1040 apaga o desenho em sua 
última posição colocando a matriz em 
branco B, com PUT. A nova posição é 
calculada a partir de JI e J0 (veja a li- 
nha 1050). X e Y são as novas coorde- 
nadas do centro da mira. Observe que, 
enquanto J0 é multiplicado por 4, Jl é 
multiplicado por 3. Esses fatores de 
multiplicação são determinados peia re- 
solução da tela que se utilizou. No nos- 
so caso, ela é de 0 a 255 pontos na hori- 
ntal, edeOa 190 na vertical. Quando 
multiplicamos os valores dos JOYSTK, 
estamos adaptando o intervalo de 0 a 63 
do joystick aos intervalos de 0 a 255 e 
0 a 191 da tela. Esses valores são os mes- 
mos para qualquer PMODE. Você só 
precisará alterá-los se quiser considerar 
o tamanho de outra figura que estiver 
utilizando. O uso de fatores menores 
deixa mais espaço para movimentar fi- 
guras grandes. 

Calculada a nova posição da mira, a 
linha 1060 coloca o desenho na tela, 
I usando PUT...OR para não prejudicar 
| o que estiver desenhado naquelas posi- 
ções. 

A sub-rotina funcionará como já foi 
explicado após a adição do RETURN da 
linha 1070. Se o joystick não mudasse 
Ide posições, a mira ficaria piscando na 
I tela, uma vez que estaria sendo constan- 
temente apagada e desenhada de novo. 
Para evitar que isso ocorra, a Unha 1030 
verifica se a posição mudou. Caso o 
joystick não tenha se movido, o progra- 
ma continua na linha 1070, evitando as 
linhas de animação. 1 
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MAE IR1QUINTE 



Já aprendemos a usar funções 
matemáticas para fazer gráficos 
circulares. Veremos agora como 
empregar SIN e COS na elaboração 
de desenhos mais sofisticados. 



Em artigo anterior, na página 334, vi- 
mos algumas das funções matemáticas 
existentes nos computadores, bem como 
sua utilidade enquanto ferramentas grá- 
ficas. Agora, examinaremos mais de 
perto sua atuação e indicaremos outros 
usos para elas. \ 

As funções que nos interessam no 
momento são o seno e o cosseno; caso 
ainda não esteja familiarizado com elas, 
aconselhamos consultar o artigo citado. 
Nele, você verá como estas funções es- 
tão relacionadas com a posição de um 
ponto ao redor de urh círculo, e como 
usá-las para calcular as coordenadas de 
qualquer ponto. O programa da bússo- 
la, no artigo da página 334, utiliza o se- 
no e o cosseno para posicionar as mar- 
cações de número em seus devidos lu- 
gares, ao redor da bússola. 



COMO DESENHAR UM RELÓGIO 



Os programas apresentados até ago- 
ra não têm muita utilidade prática. Po- 
rém, cQmo veremos detalhadamente nos 
próximos artigos, as funções trigonomé- 
tricas oferecem variadas possibilidades 
de uso. Por enquanto, vamos nos con- : , 
centrar no desenho de um relógio. Vo- 
cê já deve ter pelo menos uma idéia de 
como faz£-lo, com base no primeiro ar- 
tigo da série. 

O principio é o mesmo que orientou 
o desenho da bússola, com uma diferen- 
ça: em vez de fornecermos um ângulo, 
o computador precisará selecionar sozi- 
nho os ângulos a serem mostrados, 
aumentando-os com o tempo. 

Os programas a seguir calculam as 
posições dos ponteiros, usando SIN e 
COS, para que mostrem a hora certa. 

Embora seja fácil montar um relógio 
de doze horas, este programa desenha 
um relógio de 24 horas, com numeração 
de 1 a 24 era seu mostrador . Dessa ma- 
neira, poderemos examinar melhor as 
rotinas que imprimem os números. De- 
pois de digitar e rodar o programa, ve- 
remos o que SIN e COS fazem exata- 
mente. 

No programa da bússola, os núme- 
ros ao redor do aparelho marcavam os 

I vários graus; no relógio, marcam as ho- 
ras. Os números de 1 a 24 são selecio- 
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nados por um laço FOR...NEXT c im- 
pressos na tela em coordenadas deter- 
minadas por SIN e COS. 

Parte do programa para o TRS- 
Color e o MSX parecerão familiares 
a quem usou a rotina para desenhar ca- 
racteres na tela de alta resolução, dada 
no artigo da página 232. Repetimos es- 
ta rotina no programa dado a seguir 
porque o computador não imprime ca- 
racteres na tela em PMODE 4 ou 
SCREEN 2 e 3, mas com ela podemos 
colocar os números ao redor do marca- 
dor do relógio. 

Se você salvou a rotina citada, carre- 
gue-a no seu computador para não pre- 
cisar digitá-la novamente. Depois, acres- 
cente essas linhas ao programa abaixo. 

A mesma rotina também serve para 
colocar números no programa da bús- 
sola visto anteriormente; basta adaptá- 
lo para isso. Quando o marcador é de- 
senhado, o computador automaticamen- 
te desenha o ponteiro de segundos do re- 
lógio; este funciona como o ponteiro de 
segundos de um relógio real. O ângulo 
inicial, no topo do circulo, é de 0 graus, 
e aumenta gradualmente até chegar nos 
360 graus, novamente no topo. A velo- 
cidade do ponteiro de segundos é deter- 
minada por um comando PAUSE ou pe- 
lo temporizador no computador. 

Os ponteiros do relógio são movi- 
mentados por meio de um laço 
FOR...NEXT, no Spectrum. O progra- 
ma do TRS-Color usa uma variável 
que é atuaiizada pelo temporizador ca- 
da vez que se roda o programa (este é 
um laço contínuo). O ponteiro de segun- 
dos movimenta-se sempre que a variá- 
vel acusa que já se passou um segundo. 



5 CIRCLE 134,92,70 

6 LET q— 1 

10 FOR n-1 TO 24 

20 PRINT AT 10-10*COE (n/12' 

PI) , 16+10*SIN (n/12"PI);n 

30 NEXT n / 

40 FOR t-0 TO 20000 

50 LET a-t/30*PI 

60 LET SX-«5*SIN â: LET sy-65 

•cos a 

70 PLOT 134,92: DRAW OVER 1; 
80 PAUSE 42 



90 PLOT 134,92: DRAW OVER 1 ; 
sx.ay 
100 SEXT t 



D 



A 



10 PMODE • 
20 DIM LES(26] 
30 PCLS 

40 FOR K»0 TO 26 : READ LES (K) :NE 
XT 

50 FOR K-0 TO 9 : READ NUS(K):NEX 
T 

60 DATA BR2.ND4R3D2NL3ND2BE2.ND 
4R3DGNL2FDNL3BU4BR2 ,NR3D4R3BU4B 
R2 , ND4R2FD2GL2BE4BR , NR3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NR2D2BE4BR , NR3D4R3 

U2LBE2BR , D4BR3U2NL3U2BR2 , ND4BR2 

. BD4REU3L2R3BR2 , D2ND2NF2E2BR2 

80 DATA D4R3BU4BR2 ,ND4FREND4BR2 

, ND4F3DU4BR2 . NR3D4R3U4BR2 , ND4R3 

D2NL3BE2 , NR3D4R3NHU4BR2 

90 DATA ND4R3D2L2F2BU4BR2 , BD4R3 

U2L3U2R3BR2 , RND4RBR2 , D4R2U4BR2 , 

D3FEU3BR2 . D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2 , DFND2EU 

BR 2 , R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BR2 , BDEND4BR2 

. R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R 

2U4BR2 . D2R2D2U4BR2 , NR2D2R2D2L2B 

E4 , D4R2U2L2BE2BR2 . R2ND4BR2 , NR2D 

4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 

200 MX-127:SX-127:MY-95:SY-95 

210 SCREEN 1,1 

220 CIRCLE (127,95) ,60, 1 

230 PI-ATN(1)/15 

240 FOR K-5 TO 120 STEP 5 

250 LINE(127+55*SIN(K*PI) ,95-55 

•COS ÍK*PI) ) - (127+59*SIN(K*PI) ,9 

5-59*C0S (K*PI) ) , PSET 

260 AS-MIDS (STR3 ÍK/5) , 2) :DRAW"B 

M-+STRS (INT(123+68*SIN(K"PI)) )+ 

" , " + STRS (INT (92~68*COS (K«PI) ) ) + 

-C5S6" :G0SUB 1000 

270 NEXT K 

280 IF TIMER<50 THEN 280 

290 TIMER«0:T-T+1 

300 IF T=86400 THEN T-0 

310 H-T/3600 

320 M-T/60-INT(H)*60 

330 S-T-INTtM)*60-INT(K)*3600 

340 LX-SX:LY-SY 

350 SX-127+45«SIN(S*PI*2) :SY-95 

-45*COS (S*PI«2) \ 

360 LINE (127.95) - (SX,SY) .PSET 

370 LINE (127,95)-(LX,LY) , PHESET 

360 LINE ( 127 , 95) - (MX , MY) , PRESET 

390 MX-127+30*SIN(M"PI*2) :MY-95 

-30*COS(M«PI*2) 

400 LINE (127 , 95) - (MX , MY) , PSET 



XII 
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XXIV 
XXIII XIII 



XXII 



\ 



XV III 



VIII xx xvi , v 

XIX XVII 

VII XVI " V 
VI 



410 LINE (127,95) - (HX.HY) , PRESET 

420 HX-127+20*SIN(H*PI*5) : HY-95 

-20*COS (**PI*5) \ 

430 LINE (127, 95)- (HX , HY) .P3ET 

440 GQtO 280 

1000 FOR M-l TO LENIAS) 

1O10/B9-MID$(A3.M,1) \ / 
1020 IF B3>-"0" AND BS<-"9" THE 
N DRAW NUS (VAL ÍBS) ) :GOTO 1050 
1030 IF BS-" THEN N-0 ELSE N-A 

■ SC(B9)-64 \- 

| 1040 DRAW LESIN) 



mi 



/ 



20 DIM LES(26) / 
30 CLS 

40 FOR K-0 TO 26:HEAD LES(K):NE 

XT >^X. 

50 FOR K-0 TO 9 : READ NUS(K):NEX 



60 DATA BR2.ND4R3D2NL3ND2BE2.ND 
4R3DGNL2FDNL3BU4BR2 .NR3D4R3BU4B 
R2 , ND4R2FD2GL2BE4BR . NR3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NR2D2BE4BR ,NR3D4R3 
U2LBE2BR . D4BR3U2NL3U2BR2 .ND4BR2 

, BD4REU3L2R3BR2 , D2ND2NF2E2BR2 
80 DATA D4R3BU4BR2 . ND4FREND4BR2 

. ND4F3DU4BR2 . NR3D4R3U4BR2 . ND4R3 
D2NL3BE2 , NR.3D4R3NHU4BR2 
90 DATA ND4R3D2L2F2BU4BR2 , BD4R3 
U2L3U2R3BR2 , RND4RBR2 . D4R2U4BR2 . 
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D3FEU3BR2 .D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2 . DFND2EU 

BR2 , R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BR2 . BDEND4BR2 

. R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R 

2U4BR2 , D2R2D2U4BR2 . NR2D2R2D2L2B 

E4 . D4B2U2L2BE2BR2 , R2ND4BR2 , NR2D 

4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 

200 HX-127:SX-12?:MY-95:SY-95 

210 SCREEN2 

220 CIRCLEU27.95) ,60,1, , ,1 
■ '.230 PI-ATN[1)715 

240 FOR K-5 TO 120 STEP5 

LINE{127-<-55"SIN(K'PI) .95-55 
*C0S(K*PI))-(127+S9*SIN(K*PI) .9 
í 5-59*COS(K*PI)) ,1 

260 AS-MIDS(STRS(K/5) .2) : DRAWB 
M-+fiTRS(INT(123 + 68*SIN{K*PI) ) ] + 
" ./+STRSXINT t92-68*C0S (K«PI1 ) ) + 
"C1S6" :G0SUB 1000 
270 NEXT It 
> £60 IF TIMK<S0 THEN 280 
290 TIME-0 :T"T+1 
300 IF T-B6400! THEN T- 
310 H-T/36001 
320 M-T/60-I«T(H)*60 
330 S-T-INT[H)"60-INT(H>*3600 
340 LX-SX:LY J pY 

350 SX-127+4S1»SIN(S*PI*2) :SY-95 
-45*COS (£*PI«2> 
360 LINE(127.95)- (SX.3Y) .1 
370 L1NE(127,95)-(LX.11Y) ,4 
360 LINEU27.95)- (MX.NJY) .4 
390 MX-127+30«SIN(M"PJ*2) :MY-95 
-30*COS (M*PI"2>) 
400 LINE(127,95)-(MX.NY) ,1 
410 LIME (127,95)- (HX.HY) .4 
420 HX-127+20*SIN(H*PE«5) : HY-95 
-20*COS[H*PI*3) 
430 LINE(127.95)-(HX,Rir) ,1 
440 GOTO 280 I 
1000 FOR M-l .TO LEN(ASí 
1010 BS-MIDSÍAS.M.l) 

1 20 IFBS>-"0" AND BS<-\9" THEN 
DRAW NUStVAL(BS) ) :GOTO 1050 
1030 IFBS""' THEN N-0 ELSE N-AS 
l C(BS)-64 / 
.040 DRAW LES(N) \ 



O ZX-81 não possui o comando 
DRAW; assim, para fazer o relógio, 
precisaríamos desenhar os ponteiros 
ponto por ponto, via comando PLOT. 
Além disso, sua tela gráfica não é de al- 
ta resolução, como nos outros compu- 
ladores. Por ambos os motivos, uma 
versão para ele não ficaria muito " 
portanto, não a fizemos. 

O capitulo 19 do manual do ZX-81 
contém um programa de relógio que po- 
deríamos tomar como exemplo, mas esie 
relógio não tem ponteiros. )io contrá- 
( rio dos que aqui apresertrarnos\é forma- 
ndo apenas por números que marcam 
flora, sem o círculo domo corp. 

\0 Apple tambén/ não possuí«o co- 
mando DRAW; por/sso, uma rotima pa- 
ra desenhar letras e/números em teja de 
alta\ resolução ficaria extremar 
complicada. 

Cada versão emprega uma rotir 
recida para imprimir os números 
suas posições cometas ao redor do m r- 
cador do relógio. Esta rotina mostra c a- 
ramerie como SIN e COS são usad >s 
para controlar as operações de impre 
são na leia. Ela se resume mais ou m ■■ 
nos ao seguintej 

10 FOR n-l TO 24 

20 PRINT ATÍcoordenada x do 
centro da tela + 10*SIN{2* 
PS/n) , coordenada y do ce i- 
tio da teli - 10*COS<2«PI7 

30 NEXT n \ 

\ maneira de manipular esta rotina 
varp de computador para computa/dor, 
je a faz parecerynaís complicada do 
realmente é. Determinada máquina 



pode, por exemplo, ajustar uma variá- 
vel extra para o ângulo, em vez de usar 
(2*PI/n) no PRINT AT. 

A rotina do Spectrum segue a mes- 
ma fórmula das outras, mas parece di- 
ferente, porque utiliza um método dis- 
tinto para o PRINT AT numa posição 
da tela: em vez do primeiro número de- 
pois do comando ser a coordenada x, é 
ydenada y. Além dissercvatar^O 
para acaprdenada y njkJcorrespondeÍK, 
parte inferior da telayfnas ao topo desta. 
Tente istrX no Spectrum: 

PRINT AT 0,1 

O "a" deve aparecer no canto supe- 
rior esqui 

Devido/a esta peculiaridade do 
PRINT A/T do Spectíum, nele o COS é , 
a primeira função daninha, já que de- / 
terminaya posição vertkal do ponto ao/ 
redor dp círculo. \ 

ampararmos o sxemplo acima 
com os programas, veremos que o lado 
FOR./.NEXT que controla o comando 
PRINT é diferente para cada versão. Ma 
verdade, qualquer laço funcionaria em 
qualcjuer computador; as diferenças sT 
manadas por conveniéncií , conform ; o 
sistema operacional de ca la um. 
olobjetivo da rotina é mprimi: 
de 1 a 24 ao redo do reli 
marcando as horas. O laçi ■ para O pro- 

. do Spectrum é: 
FOR h-1 TO 24 
NEXTi n 

rotina calcula a posição parai o 
PRINB" AT cada vez que/passa pelo la- 
ço, diiidindo o círculo «m 24 segmen- 

Ò T1S-COLOR e o IwSX funcionarA 
como o Spectrum mas, pmo usam uma 
pecial para desenhar letras na\ 



mu 



tela gráfica, seus programas são um 
pouco diferentes. Na verdade, eles não 
imprimem um número relacionado com 
o STEP que controla suas posições an- 
gulares. O que imprimem é acessado — 
ou chamado — pelo comando STRS, na 
Unha que controla a impressão. STRS 
simplesmente consulta a rotina que de- 
senha letras; não está relacionado com 
a posição onde os números são desenha- 
dos, a qual è determinada pela variável 
K. 

Como o circulo tem 360 graus, para 
se imprimir 24 números ao redor do re- 
lógio, em intervalos iguais, eles devem 
ser posicionados a cada 360/24 (15) 
graus. Do mesmo modo, como há 2"PI 
radianos num circulo completo, os nú- 
meros estão posicionados a cada 
2'PI/24, ou PI/12 radianos. 

Observe que em todos os laços o pri- 
meiro número é o primeiro salto, e não 

0 0 (1 no Spectrum, 5 no TRS-Color e 
MSX). Por isso, o primeiro número im- 
presso — ou desenhado, como é o caso 
do TRS-Color e do MSX — estará em 

1 hora e não em 24 horas. 

O restante do programa usa SIN e 
COS para calcular as posições dos pon- 
teiros, e uma variável ou o temporiza- 
dor interno do computador para acom- 
panhar o tempo, garantindo, assim, que 
o ponteiro de segundos se movimente a 
cada segundo. 



COMO ACESSAR 05 DADOS 



O método para dizer ao computador 
o que ele deve imprimir não precisa ser 
aquele utilizado no exemplo do relógio. 
Poderíamos armazenar os números em 
DATA e depois ler (READ) estes núme- 
ros, um de cada vez, à medida que 



o computador passasse pelo laço 
FOR...NEXT. 

Pode parecer um desperdício de me- 
mória mas, na verdade, este método nos 
permite fazer mudanças interessantes. 
Por exemplo: existem relógios com alga- 
rismos romanos no lugar dos números 
convencionais. Usando uma variável de 
cadeia, e armazenando em DATA as le- 
tras, e não os números, poderemos so- 
fisticar ainda mais nosso relógio. 

Talvez seja preciso mudar o tamanho' 
e/ou a posição do circulo para que os 
algarismos romanos caibam na tela (o 
número 8, por exemplo, é VIII, o que to- 
ma bastante espaço!). 

Também poderíamos fazer um reló- 
gio de 24 horas em algarismos romanos. 
E é fácil, usando este método, mudar 
um relógio de 12 para um de 24 horas. 

Adicionar um alarme ao programa 
também não será difícil. Para isso, pre- 
cisaríamos calcular, usando SIN e COS, 
a posição exata em que o ponteiro vai 
estar na hora ajustada para o disparo do 
alarme. Uma nova linha com um 
D7...THEN avisaria ao computador que 
a variável que ajusta a posição do pon- 
teiro é igual à calculada para o alarme 
e, então, o computador emitiria algum 

Usando os mesmos princípios, seria 
possível não só fazer um relógio de 12 
horas ou de um dia, mas de uma sema- 
na, um mês ou até mesmo um ano. O 
único limite é a quantidade de informa- 
ção que podemos colocar na tela. 



DESENHOS ABSTRATOS 



Até agora, empregamos SIN e COS 
para coisas úteis como relógios, bússo- 
las e gráficos. Mas talvez seu uso mais 




Espiral no Spectrum. 



Flor no MSX. 
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interessante esteja na elaboração de grá- 
ficos abstratos, obtidos com a manipu- 
lação adequada das duas funções. 

Desenhando séries de círculos e elip- 
ses, já produzimos algumas figuras in- 
teressantes. Se, por exemplo, movêsse- 
mos o centro do círculo ou, então, au- 
mentássemos seu raio a cada volta, o re- 
sultado seria ainda melhor. Essas mu- 
danças são muito fáceis de fazer: preci- 
saremos apenas acrescentar algumas li- 
nhas às rotinas conhecidas. 



COMO FAZER UMA ESPIRAL 



No artigo anterior, apresentamos 
uma rotina que desenha um círculo pon- 
to a pomo. Com algumas mudanças — 
por exemplo, o aumento gradativo do 
raio — , poderemos obter uma espiral. 



em vez de um círculo. As versões a se- 
guir fazem exatamente isto. 



10 let z-0 

50 FOR n-0 TO 8*PI STEP PI/10 
60 PLOT 128+(5+z)*SIN n,88+(5 
+z)*COS n 
70 LET z-2+1 
80 NEXT n 



10 PNODE 4.1 
20 PCLS 
30 SCREEN 1,1 
40 PI-4*ATN<1) 

50 FOR N-0 TO 10*PI STEP PI/10 
60 FSET(127+(5+Z)*SIN<N) ,95+(5+ 
Z) *COS{N) .5) 



70 2-Z+l 
BO NEXT N 
90 GOTO 90 

mia 

10 HGR2 
20 HCOLOR- 
30 PI - 4 « 
40 FOR N - 

/ 10 
50 HPLOT 140 ■ 
(N) ,80 + (5 + : 
60 Z - Z + 1 
70 NEXT N 
80 GOTO 80 



10 SCREEN 2 
20 COLOR 1,15 
30 CLS 
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40 PI-4*ATN(1) 

50 FOR N-0 TO 10*PI STEP PI/10 
60 PSET(128+(5+Z)*SIN<N> ,96+{5+ 
Z)*C0S(N)) ,1 
70 Z-Z+l 
60 NEXT N 
90 GOTO 90 

A diferença entre este programa e o 
que desenha um círculo é a variável Z. 
Esta começa em 0, aumentando cada 
vez que o computador passa pelo laço. 
A mudança que eia traz está nos cálcu- 
los da linha 60 no Sinclair, TRS-Color 
e MSX e da linha 50 no Apple. 

O ponto desenhado é controlado, co- 
mo no círculo, pelo SIN e COS da va- 
riável de controle no laço. O aumento 
do número que multiplica o SIN e COS, 
quando o computador passa pelo laço, 
faz com que os pontos sejam desenha- 
dos cada vez mais longe do centro. A va- 
riável Z é responsável pelos consecuti- 
vos aumentos, que resultam na espiral 
crescendo para fora. 

Como no programa do circulo, po- 
demos obter resultados diferentes se mu- 
darmos o salto (STEP) — linha 40 no 
Apple e 50 nos outros — ou a dimen- 
são do aumento de Z. Alguns STEP in- 
teressantes são 2, 5, PI e 2*PI. Experi- 
mente-os e descubra porque os resulta- 
dos são diferentes (lembre-se de que os 
computadores trabalham com radianos, 
e que um círculo tem 2*PI radianos). 

Podemos fazer espirais elípticas do 
mesmo modo que fizemos elipses na pri- 
meira versão deste programa: basta mu- 
dar o número dentro dos parênteses na 
linha 60 (linha 50 no Apple). 



SOFISTIQUE OS DESENHOS 



Existe um brinquedo infantil que uti- 
liza rodas de plástico para desenhar. A 
criança coloca uma roda menor dentro 
de uma maior, e a ponta de uma caneta 
num dos furos da roda menor; moven- 
do a roda menor pelo lado interno da 
maior, a caneta gira. O desenho obtido 
é muito interessante. 

O centro da roda menor está sempre 
se movendo quando a criança está de- 
senhando, o que resulta numa série de 
espirais contínuas. O computador con- 
segue um efeito semelhante, desenhan- 
do círculos cujos centros estão em cons- 
tante movimento. 

Os programas que se seguem fazem 
isso, sendo que, para o Spectrum, a es- 
colha da cor é aleatória. 



LET X-Or LET | 



20 LET I-INT (RND*7) : INK z: 

LET a-INT (RND'50) 

30 LET b-INT (RND*S0> 

40 FOR n-0 TO 200«PI STEP b/ 

100 

50 IF INKEYSO" THEN GOTO 
10 

60 LET p-128+(a-b)"SIN n: LET 
q-88+(a-b)"COS n 
70 PLOT p+b*SIN X,<I+b"COS X 
80 LET x-x-a/1074 
90 NEXT n 
110 GOTO 20 



El 



10 PMODE 4.1: PCLS : SCBEEN 1,1 

20 PI-4*ATN(1) 

30 A-RND(50)-1:B-RND(50)-1 

40 FOR N-0 TO 200*PI STEP B/100 

50 1F INKEYSO"" THEN 10 

60 P-128+(A-B)*SIN(N) :Q-95+(A-B 

) *C0S(N) 

70 PSET (P+B*SINIX) ,Q+B*COS(X) , 
5) 

80 X-X-A/1074 
90 NEXT 
100 GOTO 30 



tigo que usam SIN e COS, essas duas 
funções também estão inclusas no laço. 
Elas calculam a posição do próximo 
ponto a ser desenhado, embora, é cla- 
ro, os cálculos sejam um pouco mais 
complicados do que um simples "SIN 
N" ou "COS N". 

Os demais cálculos nesta linha servem 
para incrementar o resultado da expres- 
são do SIN ou COS, para que ele possa 
representar uma posição na tela. Por es- 
sa razão, o centro da tela gráfica de ca- 
da computador também faz parte dos 
cálculos. Se olharmos com atenção, en- 
contraremos o centro da coordenada 
"X" numa metade da linha e o centro 
da coordenada "Y" na outra. 

O cálculo envolve ainda duas variá- 
veis; como elas recebem valores aleató- 
rios no início de cada programa, este 
sempre executa desenhos diferentes ao 
ser rodado. Tente mudar o valor dessas 
s e observe a diferença. 



BO 



10 HGR2 : HCOLOR- 3 

20 PI - 4 * ATN (1) 

30 A - INT ( RND (1) * 100 > 

40 B - INT ( RND (1) * 40) 

S0 FOR N - 0 TO 200 * PI STEP 

B / 100 

60 W - PEEK ( - 16384) 

70 POKE - 16368,0 

80 IF W > 127 THEN 10 

90 P - 140 + B * SIN (N) :Q - 6 

0 + B * COS (N) 

100 HPLOT P + B * SIN (X) ,Q + 

B * COS (X) 
110 X - X - A / 1000 
120 NEXT N 
130 GOTO 30 



10 SCREEN2:COLORl,15:CLS 

20 PI-4*ATN<1) 

30 A-INT(RNDU)*200)+20 

40 B-INT(RND{1)"40)+10 

50 FOR N-0 TO 200*PI STEP B/100 

60 IF INKEYSO" " THEN 10 

70 P-128+B*SIN(N) :Q-96+B*C0S (N) 

80 PSET(P+B*SIN(X) ,Q+B*COS(X) ) . 

1 

90 X-X-A/1000 
100 NEXT N 
110 GOTO 30 

Nota-se facilmente que o laço 
FOR.. .NEXT é uma rotina criadora de 
círculos: os laços para cada computador 



FOR N-0 TO 200*PI 

Como nos outros programas deste ar- 



Podemos fazer outro tipo de alte- 
ração: mudar o STEP do laço 
FOR.. .NEXT. O resultado será o au- 
mento ou a diminuição da densidade dos 
pontos, conforme o STEP seja aumen- 
tado ou diminuído. Para a obtenção do 
desenho, o centro do circulo deve mu- 
dar cada vez que um ponto é desenha- 
do. Para isso, colocamos o próprio cen- 
tro do círculo num outro circulo, que gi- 
ra a cada passo do laço. O efeito é pro- 
duzido pelo segundo grupo de cálculos 
do SIN e COS, baseado em x. Essa va- 
riável decresce levemente cada vez que 
o computador passa pelo laço. 

Tente alterar o tanto que a variável 
(x) diminui e veja o que acontece com 
os desenhos. Estes seis valores trazem 
resultados interessantes' A/IOJAZ-IO, 
A/-50, A/0.5, A/0.1, A/0.001. 

Todas as versões permitem que rei- 
niciemos o programa a qualquer hora, 
bastando apertar uma tecla. O Spec- 
trum, o TRS-Color e o MSX usam o 
1NKEYS para verificar se alguma tecla 
foi pressionada, enquanto o Apple bus- 
ca essa informação na memória (linhas 
60 a 80, já comentadas em artigos ante- 
riores sobre PEEK e POKE). 

Examinaremos ainda diferentes usos 
para funções trigonométricas e angula- 
res. No próximo artigo desta série, tra- 
taremos de quadrados, cubos, raízes 
quadradas e outras ferramentas podero- 
sas para controlar o comportamento das 
variáveis. Você terá, assim, novas opor- 
tunidades de dar às funções empregos 
que, à primeira vista, não parecem es- 
tar relacionados com a matemática. 



IIIIIIIIIHHH 



■■■■■■lllllllll 



TF 

C< 



■ 


0 QUE É 0 CÓDIGO ASCII? 


■ 


USE NÚMEROS EM VEZ 


DE CARACTERES 


■ 


UM PROGRAMA PARA CODIFICAR 


E DECODIFICAR MENSAGENS 






Conjunto de códigos alfanuméricos 

padronizados, o código ASCII 

foi concebido com o objetivo de tornar 

possível a transferência de 

dados de um computador para outro. 



Cada (ecla ou combinação de teclas 
do seu micro corresponde a um código 
eletrônico deniro do computador. Em 
BASIC, códigos desse tipo são represen- 
tados por valores decimais enlre Ôe 255. 



A leira A, por exemplo, tem o código 
decimal 65, B é 66, e assim por diante. 
Toda vez que uma letra ou palavra é di- 
gitada, o computador armazena os có- 
digos correspondentes. 

Os valores e caracteres corresponden- 
tes não são, porém, os mesmos em to- 
dos os computadores; mas felizmente 
existe alguma padronização no modo 
com que eles são usados. 

Os valores de código são referidos pe- 
la sigla ASCII (que vem de American 
Standard Code for Information fnter- 
change, ou seja, Código Padrão Ame- 
ricano para Troca de Informação). Es- 



se código foi montado com o objetivo 
de possibilitar a transferência de dados 
de um computador para outro. Os mi- 
cros TRS, MSX, Apple e Spectrum cos- 
tumam empregá-lo, pelo menos em par- 
te. ApenasoZX-81 tem um código com- 
pletamente diferente. 



O conjunto completo de caracteres 
ASCII não se apresenta do mesmo mo- 
do em todos os computadores. Mas há ■ 
semelhanças entre os diversos conjun- | 




ios. A maior delas está na faixa de 33 
a 90, que cobre os símbolos mais co- 
muns — pontuação, números e letras 
maiúsculas. Existe um modo muito sim- 
ples de descobrir o código ASCII de um 
caractere: basta digitar PR1NT ASC 
("X") (ou PRINT CODE "X" no Spec- 
trum). Você terá, assim, o código de X 
ou de qualquer outro caractere que for 
colocado em seu lugar. O próximo pro- 
grama facilita as coisas para você: 

10 PRINT-DIGITE QUALQUER LETRA. 



NUMERO OU CARACTER" 
20 INPUT AS 

30 PRINT-0 CÓDIGO ASCII PARA 
ASi" E "iASCtAS) 
40 GOTO 20 



No Speetrum, mude a linha 30 parf 



O oposto de ASC ou CODE é CHRS, 
que converte o número de código para 
o caractere correspondente. O próximo 



programa converte todos os códigos AS- 
CII de 33 a 90 em caracteres: 



10 PRINT-CODIGO ASCII" 



"CARACTE 



20 FOR N-33 TO 90 

30 PRINT N, CHRS ÍN) ■ 

40 FOR D-l TO 500:NEXT D 

50 NEXT N 

As letras minúsculas estão na faixa de 
97 a 122 e podem ser vistas mudando- 
se o último número da linha 20 para 122. 
Ao substituirmos este último por 25S, 



IIIIIIIIIHMH 
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120 IF F>90 THEN LET F-F-26 
130 LET DS-DS+CHRS F 
140 GOTO 60 

ISO IF FS<"0" OR F$>-9" THEN 

LET DS-D3+FS: GOTO 70 

160 LET F-CODE FS+CODE CS (CP) - 

48 

170 IF F>57 THEN LET F-F-10 : 
GOTO 170 

180 LET DS-DS+CHRS F 
190 GOTO 60 

200 PRINT '"A MENSAGEM CODIFIC 

ADA E : ' 

210 PRINT 'DS 

220 STOP 

QQ 

1.0 CLEAR 300 

20 CLS 

30 LINEINPUT"QUAL E A SENHA?" ; C 

9 

i0 PRINT "INTRODUZA A MENSAGEM" 
50 LINEINPUT MSS 

50 CP-CP+1:IF CP>LENICS)THEN CP 
■1 

70 PM-PM+1 

30 IF PM>LEN (MSS) THEN 200 

Í0 FS-MIDS(MSS.PM.l) 

100 IF FS<"A" OR FS>"Z" THEN 15 

3 

110 F-ASC(FS)+ASC(MIDS(CS.CP,1) 
)-65 

120 IF F>90 THEN F-F-26 
130 CDS-CDS+CHRS(F) 
140 GOTO 60 



170 IF F > 57 THEN F-F-10- 

GOTO 170 
180 CDS = CDS + CHRS (F> 
190 GOTO 60 

200 PRINT : PRINT "A mensagem 

codificada e: " 

210 PRINT : PRINT CDS 

220 END 

Wi 

20 CLS 

30 LINEINPUT" Pai avr a de código? 
" iCS 

40 PRINT"Di gi te a mensagem:" 
50 LINEINPUT MSS 

60 CP-CP+1:IFCP>LEN(CS)THENCP=I 
70 PM-PM+1 

60 IFPM>LEN (MSS) THEN200 

90 FS=MIDS(MSS,PM.l) 

100 IFF$<"A"OP.FS>"Z"THEN150 

110 F-ASC (FS) +ASC [MIDS (CS.CP, l ) 

)-65 

120 IFF>9DTHENF-F-26 
130 CDS=CD5+CHRS(F) 
140 GOT060 

150 IFFS<"0"ORFS>"9"THENCD5-CDS 
+ F5:C,OTO/0 

160 F=ASC(FS)+ASCfMIDSfCS,CP,l) 
J-4B 

170 IFF>57THENF-F-10:GOTO170 
180 CDS-CDS+CHRS(F) 
190 GOTO60 

200 PRINT : PRINT"A mensagem codi 

ficada é;" 

210 PRINT:PRINTCD$ 

220 END 



teremos uma visão do conjunto comple- 
to de caracteres. A listagem dos carac- 
teres e códigos correspondentes está no 
manual do seu micro. 

No TRS-Color, os caracteres minús- 
culos aparecerão na tela iguais aos 
maiúsculos, só que invertidos. A impres- 
sora ligada ao micro provavelmente in- 
terpretará esses caracteres como minús- 
culos de verdade. O TK-2000 não pos- 
sui leiras minúsculas, 



COMO USAR 0 CÓDIGO ASCII 



A vantagem de se usar um número 
em lugar de uma letra é que se pode 
alterá-lo matematicamente de várias ma- 
neiras. Então, ao se imprimir o CHRS 
do novo número, o que se obtém é uma 
letra diferente. Base para muitos progra- 
mas codificadores, essa possibilidade de 
conversão é muito interessante, visto 
que não se pode manipular uma letra 
por meio de regras matemáticas. 

Códigos simples apenas adicionam 
um valor constante a cada número, de 
modo a fazer com que a letra "viaje" 
pelo alfabeto. Por exemplo, a letra A vi- 
ra G, o B torna-se H, etc. Um códi- 
^ go desse tipo é tão fácil de mon- 
tar quanto de decifrar. Assim, 
^—W um programa bem simples po- 
^m de tentar as 26 combinações 
W possíveis; um rápido exame 

f determinará qual dessas combi- 
nações é a correia. 
Para ser útil, contudo, o programa 
deve fazer coisas mais complicadas. O 
programa abaixo, por exemplo, usa uma 
palavra de código que funciona como 
chave. Assim, cada letra da mensagem 
é modificada de uma forma diferente. 
Muilo mais difícil de ser decifrado, es- 
se código exige que se conheça a pala- 
vra-chave. 




Ir FS<."v" OR FS> 9" THEN CD 

S-CD$+FS:GOTO 70 

160 F-ASC(FS)+ASC(MIDS(CS,CP,1) 
)-48 

170 IF F>57 THEN F-F-10:G0TO 17 
0 

180 CDS-CDS+CHRS(F) 
190 GOTO 60 

200 PRINT :PRINT"A MENSAGEM CODI 

FICADA Et " 

210 PRINT : PRINT CDS 

220 END 

ao Ei 

10 HOME 



Depois de pedir que sejam digitadas 
a palavra-chave e a mensagem, o pro- 
grama faz a codificação, mostrando-a 
na tela. A mensagem ficará então pre- 
servada (ou seja. somente alguém que 
conheça o código poderá decifrá-la). 

O modo como isso funciona é bastan- 
te simples, assemelhando-se muito ao 
método descrito anteriormente. A dife- 
rença está no fato de que, em vez de adi- 
cionar um valor fixo a cada leira, o có- 
digo ASCII da primeira letra da palavra- 
chave é acrescentado à primeira letra da 
mensagem; a segunda letra da palavra- 
chave é adicionada à segunda da men- 
sagem, e assim por diante. Quando o 
fim da palavra-código é encontrado, o 
ciclo recomeça. 

Se o resultado de algumas das adições 
for maior do que 90 (o que significa que 
a letra correspondente ficará situada 
além do Z), devemos subtrair 26, de mo- 
do a trazer o caractere para dentro do 
alfabeto. Os números são manipulados 
separadamente nas linhas 1 50 a 1 80 pa- 
ra manter o código enire 48 e 57, que 
corresponde a 0 e 9. 

O programa decodificador é muilo 
semelhante ao primeiro, diferindo ape- 
nas em alguns sinais + e - que foram 
mudados, além de certos valores. Os nú- mm 
meros das linhas não coincidem; assim . 



10 POKE 23658.8: LET CP-0: 
LET PM-0: LET DS-"" 
20 CLS 

30 INPUT "QUAL E A SENHA? "; 
LINE CS 

40 PRINT "INTRODUZA A MENSAGE 
M " 

50 INPUT LINE MS 

60 LET CP-CP+1: IF CP>LEN CS 

THEN LET CP-1 

70 LET PM-PM+1 

80 IF PM>LEN MS THEN GOTO 

200 

90 LET FS-MS(PM) 
100 IF FS<"A" OR FS>*Z" THEN 
GOTO 150 

110 LET F-CODE FS+CODE CS (CP) - 
65 



30 INPUT "Palavra chave? ";CS 
40 PRINT "Digite a mensagem : " 
50 INPUT MSS 

60 CP - CP + 1 : IF CP > LEN (C 
S) THEN CP-1 
70 PM - PM + 1 

80 IF PM > LEN (MSS) THEN 200 
90 FS - MIDS (MSS, PM, 1) 
100 IF FS < "A" OR FS > "Z" TH 
EN 150 

110 F = ASC (FS) + ASC ( MIDS 

(CS.CP.l) > - 65 
120 IF F > 90 THEN F - F - 26 
130 CDS - CDS + CHRS (F) 
140 GOTO 60 

150 IF FS < "0* OR FS > "9" TH 
EN CDS - CDS + FS I GOTO 70 
160 F - ASC (FS) + ASC ( MIDS 
(CS. CP, 1) ) - 48 



Ill 
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pode-se usar o programa combinado 
com o anterior. Algumas linhas foram 
colocadas de modo que se possa esco- 
lher entre codificar e decodificar uma 
mensagem. 

Se você está familiarizado com os co- 
mandos de remuneração e edição de li- 
nhas do seu computador, tente usá-los 
para transformar o programa anterior 
no programa que apresentamos agora. 
Depois, junte-os (MERGE). 



12 INPUT ' (C)ODIFICAR OU (D) E 
CODIFICAR?": LINE AS 
14 IF AS-"D" THEN GOTO 400 
16 IF AS<>"C* THEN GOTO 12 
400 CLS 

410 INPUT "QUAL E A SENHA? "; 
LINE CS 

420 PHINT "INTRODUZA A MENSAGE 

M CODIFICADA - 

430 INPUT LINE MS 

440 LET CP=CP+1: IF CP>LEN CS 

THEN LET CP-1 

450 LET PM=PM+1 

460 IF PM>LEN MS THEN GOTO 

580 

470 LET FS-MS(PM) 

480 IF FS<"A- OR FS>"Z" THEN 

GOTO 530 

490 LET F=CODE FS"C0DE CS(CP)+ 
65 

500 IF F<65 THEN LET F-F+26 
510 LET DS-DS+CHRS F 
520 GOTO 440 

530 IF FS<"0" OR FS>"9" THEN 

LET DS-DS+FS: GOTO 450 

540 LET F-CODE FS-CODE CS(CP)+ 

48 

550 IF F<48 THEN LET F-F+10 : 
GOTO 550 

560 LET DS-DS+CHRS F 
5 70 GOTO 440 

580 PRINT '"A MENSAGEM DECODIF 
IÇADA E " 
590 PRINT 'DS 
600 STOP 



DD 



12 INPUT (OODIFICAR OU (D) ECOD 

IFICARPRINT;AS 

14 IF AS-"D" THEN GOTO 400 

16 IF ASO"C" THEN GOTO 12 

400 CLS 

410 LI NE INPUT "QUAL E A SENHA?" t 
C9 

420 PRINT" INTRODUZA A MENSAGEM 

CODIFICADA" 

430 LINEINPUT MSS 

440 CP-CP+1:IF CP>LEN{CS) THEN 

CP-1 

450 PM-PM+1 

460 IF PM>LEN (MSS) THEN 580 

470 FS-MIDS(MS3.PM.l) 

460 IF FS<"A" OR FS>"Z* THEN 53 

0 

490 F-ASC(FS)-ASC(MIDS(CS.CP.l) 
I )+65 

| 500 IF F<65 THEN F-F+26 
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510 CDS-CDS+CHRS(F) 
520 GOTO 440 

530 IF FS<*0" OB FS>"9" THEN CD 

S-CDS+FS:GOTO 450 

540 F-ASC(FS)-ASC<MIDS(CS,CP.l} 

)+4fl 

550 IF F<48 THEN F-F+10:GOTO 55 

0 

560 CDS-CDS+CHBS(F) 
570 GOTO 440 

580 PRINT"A MENSAGEM DECODIFICA 
DA E: " 

590 PRINT : PRINT CDS 
600 END 

\am 

12 INPUT "[ClodiEicar ou [D]ec 
odificar ";AS 

14 IF AS - "D" THEN 410 
16 IF A3 < > "C" THEN 12 
400 HOME 

410 INPUT "Palavra chave? " ; CS 
420 PRINT "Digite a mensagem:" 
430 INPUT MSS 

440 CP • CP + 1: IF CP > LEN < 
CS) THEN CP - 1 
450 PM - PM + 1 

460 IF PM > LEN (MSS) THEN 58 
0 

470 FS = MIDS (MSS, PM, 1) 

460 IF FS < "A" OB FS > "Z" TH 

EN 530 

490 F - ASC (FS) - ASC { MIDS 

[CS, CP, 1) ) +65 
500 IF F < 65 THEN F = F + 26 
510 CDS ■ CDS + CHBS ÍF) 
520 GOTO 440 

530 IF FS < "0" OR FS > "9" TH 
EN CDS = CDS + FS: GOTO 450 
540 F - ASC (FS) - ASC { MIDS 

(CS. CP. D) + 48 
550 IF F < 48 THEN F = F + 10- 

GOTO 550 
560 CDS - CDS ♦ CHRS (F) 
570 GOTO 440 

580 PBINT : PBINT "A mensagem 

decodificada e: " 

590 PRINT : PRINT CDS 

600 END 



12 INPUT'(C)odificar ou (D)ecod 

ificar? "iA3 

14 IF AS-"D"THEN400 

16 IF AS<>"CTHEN12 

400 CLS 

410 LINEINPUT" Pa lavra de cddigo 
? "iCS 

420 PBINT-Digite a mensagem:" 

430 LINEINPUT MSS 

440 CP-CP+1 : IFCP>LEN(CS)THENCP- 

1 

450 PM-PM+1 

460 IFPM>LEN (MSS) THEN580 

470 FS-MIDS(MSS.PM.l) 

480 IFFS<"A"ORFS>"Z"THEN530 

490 F-ASC(FS>-ASC(MIDS(CS,Ct-,l) 
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)+65 

500 IFF<65THENF=F+26 
510 CDS=CDS+CHRS (F) 
520 GOTO440 

530 IFF3<"0-OBFS>"9"THENCDS-CDS 
+FS:GOTO450 

540 F-ASCÍFS)-ASC(MIDSÍCS.CP.l) 
)+4B 

550 IFF<48THENF-F+10:GOTO5S0 
560 CDS-CD3+CHH3 (F) 
570 GOTO440 

580 PUI NT . PB I NT "A menaagem deco 

dificada é:" 

590 PRINT :PRINTCDS 

600 END 

Se você quer que o seu código seja 
realmente indecifrável, codifique a men- 
sagem usando uma segunda palavra- 
chave. Desse modo, ele se tornará à pro- 
va de espiões. Mas tenha o cuidado de 
não trocar a ordem das duas palavras- 
chave na hora de decodificar. Do con- 
trário, você poderá causar uma confu- 
são monumental. 



Uma das funções mais importantes 
do código ASCI I consiste em facilitar a 
comparação de palavras (veja página 
241 e seguintes). 

Essa operação é feita letra por letra 
pelo computador. 

Suponhamos, por exemplo, que se 
queira comparar as palavras COSMO- 
NAUTA e COSMOPOLITA. O com- 
putador começará confrontando os dois 
C; em seguida, ele passará sucessiva- 
mente para os dois O, os dois S, os dois 
M, os dois O, até chegar ao N e ao P. 

Vale lembrar que o que está sendo 
comparado não são posições alfabéticas 
arbitrárias, mas os códigos ASCII de ca- 
da caractere. 

Como P tem um valor ASCII maior 
que N, nesta comparação, a palavra 
COSMOPOLITA tem um valor maior 
do que a expressão COSMONAUTA. 
Note que nem a soma dos códigos nem 
o número de letras são levados em 
conta. 

Cada leira é comparada individual- 
mente com a sua correspondente (para 
um aprofundamento do tema, veja ou- 
tros exemplos de comparações de pala- 
vras e cordões no artigo Cadeia de Ca- 
racteres, página 241). 

A seguir, apresentamos alguns exem- 
plos de comparações de vários valores 
possíveis para AS e BS, juntamente com 
os códigos ASCII envolvidos. É impor- 
tante comparar os valores do código de 
cada caractere aos pares: o primeiro ca- 
ractere de AS com o primeiro de BS e 

■assim por diante, até o fim da palavra 

|mais curta. 



AS ASCII BS ASCII RELAÇÃO 

ABC 65,66,67 ABC 65.66,67 AS = B$ 
ABD 65,66,68 ABCD 65,66,67 A$ > BS 
ABD 65,66,68 ABCD 65.66,67 
ASoBS 

ABC 65,66,67 Abe 65,97.98 A$<B$ 
COSM1 67,79,83 COSMO 67,79,83 
AS<B$ 
77,73 77,79 

SI 36,49 $1.0 36,49,46 A$<B$ 

Note que no segundo e terceiro exem- 
plos é possível escrever a relação de vá- 
rias maneiras. No último exemplo, co- 
mo todos os caracteres são iguais, a pa- 
lavra mais longa é a de maior valor. 



VERIFIQUE AS ENTRADAS 



As funções ASC c CODE 
apenas no primeiro caractere de uma va- 
riável alfanumérica. Assim, PRINT 
ASC ("BRASIL") — ou PRINT CO- 
DE "BRASIL", no Spectrum — mos- 
trará 65, o código de B. Isto é muito útil 
para se checar comandos INPUT do 
programa. Veja, por exemplo, o progra- 
ma anterior. A linha 12 pede que você 
digite um "C" para codificar, ou um 
"D" para decodificar. As duas linhas 
seguintes direcionam o programa da for- 
ma adequada. Mas, para evitar que o 
computador não aceite as entradas CO- 
DIFICAR ou DECODIFICAR, escritas 
por extenso, pode-se reescrever as linhas 
14 e 16 como se segue: 



Este programa permite ver os códi- 
gos de controle: 



5 AS-INKEYS:IF AS- 
10 PRINT ASC CAS) 
20 GOTO 10 



QD! 



IMjBE] 



14 IF CODE AS-68 THEN GOTO 
400 

16 IF CODE AS<>67 THEN GOTO 



CÓDIGOS DE CONTROLE 



Alguns códigos ASCI) não têm ca- 
racteres associados. Quando você tecla 
<ENTER> ou < RETURN > o micro 
identifica o valor 13; mas, em vez de im- 
primir um caractere na tela, o cursor é 
colocado no início da linha seguinte; ou, 
como acontece no Spectrum, o progra- 
ma é listado. O código 1 3 é chamado de 
código de retorno do carro {Carriage 
Return; daí o <CR> dos modelos Ap- 
ple). Experimente colocar no computa- 
dor PRINT "A"; CHRS (13); "B". O 
"B" será impresso na linha abaixo do 
*'A". 



S C ET AS 

10 PRINT ASC (AS) 
20 GOTO 5 

Tente teclar <ENTER> ou <ESC> 
ou pressionar a tecla de retrocesso, ou 
qualquer outra do teclado, sozinha ou 
simultaneamente com <SHIFT> ou 
<CTRL>, e vá descobrindo os códigos 
que seu micro utiliza. 

Alguns computadores usam mais es- 
ses códigos do que outros. Afinal, exis- 
tem muitos números disponíveis entre 0 
e 31 e alguns acima de 90. Tais códigos 
foram originalmente definidos quando 
os computadores trabalhavam apenas 
com as antigas impressoras. Atualmen- 
le, o computador é ligado a um televi- 
sor ou monitor de vídeo e muitos des- 
ses códigos tornaram-se obsoletos. 



O Spectrum teve muitos de seus an- 
tigos códigos redefinidos, de forma a 
trabalhar com a tela de TV. A instru- 
ção PAPER tem código 17 e INK,, 16. 
Assim, para escrever a palavra "TÍTU- 
LO" em vermelho sobre fundo verde, 
é preciso digitar o seguinte: 
10 LET AS-CHRS 17+CHRS 4+CHRS 
16+CHRS 2+"TITUL0" 
20 PRINT AS 

Usado muilas vezes em um progra- 
ma, esse cabeçalho precisa ser definido 
apenas uma vez. Sempre que se quiser 
usá-lo basta digitar PRINT A$. 



O Apple também usa caracteres de 
controle, tanto a nível operacional co- 
mo a nível de programas. Assim, você 
deve conhecer muito bem o CTRL-S, o 
CTRL-C ou o CTRL-D. Nesse compu- 
tador, os códigos dos caracteres de con- 
trole de CTRL-A até CTRL-Z ocupam 
os números de I a 26. Desta forma, 
CHRS (1) equivale a CTRL-A; CHRS 
(2), a CTRL-B, etc. 



mu 



HOGRAMACÀO BASIC 
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OQUE SAO OS CÓDIGOS 


DE CONTROLE 


■ 


COMO UTILIZA-LOS 


EM PROGRAMAS BASIC 


■ 


MENSAGENS COM SONS 



Muito úteis para uma série de truques 
de programação, os códigos 
de controle ocupam o espaço que vai 
de 0 a 31 no código ASCII. 
Aprenda a usá-los nos micros MSX. 



Os códigos de controle correspon- 
dem, na maioria dos microcomputado- 
res, aos números entre O e 31 no siste- 
ma ASCII, e servem para realizar uma 
série de funções relacionadas principal- 
mente com o controle do vídeo. Em ar- 
tigos anteriores desta série, mostramos 
como os diferentes fabricantes de micros 
aproveitam a faixa de códigos de 0 a 31 
para implementar essas funções de con- 
trole. Ao contrário do espaço de códi- 
go ASCII que vai de 32 em diante, não 
há nessa faixa qualquer padronização 
entre os diversos modelos de computa- 
dores. Vejamos agora como os usuários 
de micros da linha MSX podem explo- 
rar os seus códigos de controle. 



Embora o MSX disponha de uma te- 
cla < CONTROL > , que serve para ge- 
rar os códigos de 0 a 31 (por exemplo, 
pressionando-se as teclas < CON- 
TROL > e < A > simultaneamente 
obtém-se o código 1), um programa BA- 
SIC só pode acionar os códigos de con- 
trole por intermédio da função CHRS 
(abreviatura de characler). Essa função 
permite converter um código numérico 
inteiro entre 0 e 255 em seu caractere 
correspondente. Por exemplo, PRINT 
CHRS (65) escreverá na tela a letra A. 

Usando o PRINT CHRS dessa for- 
ma, podemos controlar diversas funções 
do vídeo, por meio dos códigos de 0 a 
31. A seguir, apresentamos os códigos 
que proporcionam os efeitos mais inte- 
ressantes no MSX: 
I - determina caractere gráfico 

7 • aciona o alarma sonoro 

8 - apaga o caractere antes do cursor 

9 - tabula 

10 - pula uma linha (LINEFEED) 

11 - coloca o cursor na posição 1,1 

(HOME) 



12 • equivale ao CLS 

13 ■ retorno de carro (RETURN). 

Ao contrário dos códigos ASCII de 
32 em diante, a função CHRS associa- 
da aos códigos de 0 a 3 1 não imprime 
qualquer caractere visível na tela, cau- 
sando apenas um efeito imediato. 

O programa a seguir mostra uma 
aplicação interessante dos códigos de 
controle. Ele está estruturado de tal mo- 
do que, toda vez que uma mensagem de 
erro for mostrada na tela, o computa- 
dor acionará o alarma sonoro interno 
(bipe) e pulará uma linha em branco an- 
tes da mensagem. Em vez de repetir a 
mesma sequência de comandos para ca- 
da mensagem de erro, definimos uma 
variável C$, que contém os códigos 7 e 
10. Depois, basta usar o PRINT da 
mensagem, precedendo-a com essa va- 
riável. 

10 C$=CHR3U0)+CHRS(7)+"*«* ERR 

O: " 

20 CLS:PRINT "Cálculo da raiz q 
uadrada" 
30 PRINT 
35 XS-"" 

40 LINE INPUT "ENTRE UM NUMERO: 

45 IF XS-" - THEN END 
50 X-VAL(XS) 

60 IF X-0 THEN PRINT CS;"Entrad 
a deve ser um núnero" :G0TO 40 
70 IF X<0 THEN PRINT CS: "Numero 
deve aer maior do que zero":GO 
TO 40 
80 PRINT 

90 PRINT "A raiz quadrada de*;X 
;"é igual a";SQR(X) 
100 PRINT 
110 GOTO 40 



COMO PASSEAR PELO VÍDEO 



Outra aplicação interessante dos có- 
digos de controle é a manipulação do 
cursor de texto. Assim, os códigos 28 a 
31 movimentam o cursor da seguinte 



28 • move o cursor para a direita 

29 - move o cursor para a esquerda 

30 - move o cursor para cima 

31 - move o cursor para baixo. 

Um pequeno programa, que ilustra 
bem o uso destes códigos é mostrado a 
seguir: 



5 CLS 

10 LOCATE 10,15 

20 FOR 1-1 TO 1000 

30 R-INT(RND(1)*4) 

35 PRINT CHR3(Z8+R> i" . ' T CHR3(29 

) : 

40 NEXT I 

Este é um curtíssimo exemplo do cha- 
mado "passeio aleatório em duas di- 
mensões". Com a execução do progra- 
ma, o cursor passará a se deslocar pela 
tela nas quatro direçÕes possíveis. 

As linhas 5 e 10 limpam a tela e co- 
locam o cursor em seu centro. O laço 
que vai das linhas 20 a 40 coloca 1 000 
pontos aleatoriamente na tela. A linha 
30 sorteia um número entre 0 e 3. A li- 
nha 35 movimenta o cursor com a aju- 
da da função CHRS(28 + R) (que gera 
um número entre 28 c 3 1 ), imprime um 
ponto e recua o cursor de novo com a 
função CHRS(29). 



A TECLA DE CONTROLE 



Como foi explicado, a tecla < CON- 
TROL > serve apenas para acionar os 
códigos de controle diretamente a par- 
tir do teclado (ou seja, não é possível 
"enxertar" códigos de controle dentro 
de mensagens entre aspas, como é feito 
com os micros da linha Apple). Por ou- 
tro lado, diversas teclas já existentes no 
MSX para limpeza de tela, controle do 
cursor, etc. são duplicadas por uma com- 
binação de < CONTROL > com outra 
tecla. Por exemplo, < CONTROL > 
<I> avança uma posição de tabulação 
na tela, e equivale à tecla <TAB>. 

Entretanto, algumas funções — co- 
mo o apagamento total ou parcial de 
uma linha, o avanço do cursor até a pa- 
lavra seguinte, etc. — não têm teclas 
correspondentes, e podem ser usadas 
com vantagem na edição de programas. 

Para gerar um código de controle por 
meio da tecla < CONTROL >, basta 
lembrar-se da seguinte relação: o códi- 
go 1 corresponde à letra' A, o código 2 
corresponde à letra B, e assim por dian- 
te. Por exemplo, para fazer o cursor des- 
cer uma linha (caractere de controle cha- 
mado LINEFEED, LF, ou "alimenta- 
çào de linha"), basta pressionar conjun- ■ 
tamente as teclas <CONTROL> eJ. I 
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Pratique tiro ao alvo, caçando patos 
... no computador. Mas, na vida 
real, respeite o direito dos bichinhos 
à existência, deixando-os 
saborear os doces frutos da liberdade 



Se você leu o artigo anterior de Pro- 
gramação de Jogos, já deve ter grava- 
do em fita o programa que movimenta 
uma alça de mira pela leia com auxílio 
do joystick. No entanto, embora seja in- 
teressante ver como se faz isso em BA- 
SIC, o programa não terá muito senti- 
do se não houver um alvo. 

Agora, mostraremos como incluir a 
sub-rotina de controle do joystick em 
programas de jogos. Isso é feito acres- 
centando-se ao programa original os 
subprogramas | apresentados a seguir. 
Dessa forma, obteremos um jogo de ti- 
ro ao pato. 

Um de cada vez, dez patos aparece- 
rão por um breve momento na tela, O 
objetivo do jogo é alvejá-los antes que 
eles desapareçam. A contagem de pon- 
tos depende da velocidade e da ponta- 
ria do jogador; a cada tiro perdido são 
descontados alguns pontos. A esse des- 
conto daremos o nome de multa. 

Carregue ou digite o programa ante- 
rior no computador e acrescente as li- 
nhas a seguir (evidentemente, estas va- 
riarão de acordo com o tipo de compu- 
tador ao qual estão destinadas). 



Acrescente as próximas linhas ao pro- 
grama que movimenta o joystick. 
120 LET ha-0 

125 LET 1-0: PBINT PAPER 2: 
INK 7;" SCORE*;TAB 14 ; "RECORDE 
*;TAB 31;* " 

135 PRINT PAPER 3; OVER 0 ; AT 
0,23;ha 
145 LET 9-0 
150 FOR n-1 TO 10 
160 LET dx-INT IRND*31) 
170 LET dy-INT <RND*20)+1 
180 PRINT INK 6;AT dy,dx;CHRS 
144;CHR9 145; AT dy+l,dx;CHRS 
146;CHR5 147 

190 POKE 23672,0: POKE 23673,0 
205 PRINT OVER 0; PAPER 3;AT 
0.B;B; ' " 

210 IF 1<>48 THEN GOTO 400 
220 IF ATTR (y,x)-14 AND ATTR 
(y+l.x+l)-14 THEN LET B-B+260 
- (PEEK 23672): SOUND .02.30: 
GOTO 410 

230 LET s-B-20: LET 1-0 
400 IF PEEK 23572+256*PEEK 
23673<240 THEN GOTO 200 
S 410 PRINT INK 7;AT dy.dX;CHRS 



144;CHR$ 145;AT dy-H.dx;CHR$ 
146;CHRS 147 
420 NEXT n 

430 IF a>hs THEN LET ha-s 

440 PRINT OVER 0; PAPER 3;AT 

0.8:s;AT 0,23:ha 

450 PRINT OVER 0: PAPER 3; 

FLASH 1;AT 10,2; "QUALQUER TECL 

A PARA RECOMEÇAR" 

460 FOR n-1 TO 100: NEXT n 

470 IF INKEYS-"" THEN GOTO 

470 

480 CLS : GOTO 125 

As linhas 120. 125 e 135 cuidam da 
contagem de pontos. Como o jogo ape- 
nas começou, o recorde do momento é 
zero; ele é mostrado junto com o score. 
A variável i, de entrada do joystick. 
também torna-se zero. 
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COMO USAR A SUB ROTINA DE 



COMO SABER SE O BOTÃO DO 





CONTROLE DO JOYSTICK 




JOYSTICK FOI PRESSIONADO 


■ 


0 DESENHO DO PATO 


■ 


COMO SABER SE 0 TIRO 


■ 


MOSTRE OS PATOS NA TELA 




ATINGIU 0 ALVO 


■ 


MARQUE 0 TEMPO 


■ 


CONTE PONTOS E RECORDES 




O laço FOR...NEXT enlre as linhas 
1 50 e 420 coloca na tela uma série de dez 
patos que o jogador tentará acertar. A 
cada volta do laço, as linhas 160 e 170 
escolhem uma nova posição para o pa- 
to. A linha 1 80 coloca a ave na tela, im- 
primindo os quatro caracteres (UDG) 
que formam o desenho. 

A linha 190 coloca o valor zero no 
contador de tempo. Esie será usado pa- 
ra medir os segundos que o pato perma- 
necerá na tela. Quando esse tempo se es- 
gotar, o pato será desenhado em outra 
posição. 

Depois que o programa retornar da 
sub-rotina de controle do joystick , 
a linha 205 apagará o primeiro 
caractere do score. Esta é uma 
precaução para quando o score esti- 
ver diminuindo; assim, nenhuma parte 
do score anterior permanecerá na tela. 

O joystick do Atari tem um botão pa- 
ra atirar; quando acionado, esse botão 
envia ao computador o caractere de có- 
digo 48. A linha 210 detecta o tiro, mas 
só com a mira parada. É possível veri- 
ficar se foi dado um tiro com a mira em 
movimento, mas isto ocuparia mais qua- 
tro comandos 1F — um para cada dire- 
ção. Não é aconselhável fazer isso em 
BASIC porque diminuiríamos a veloci- 
dade do programa. 

Caso um tiro tenha sido disparado, 
o programa verificará se o pato foi atin- 
gido, usando ATTR na linha 220. 
ATTR verifica a cor de determinada 
porção da tela. Se a cor for a do pato, 
o tiro será considerado certeiro, e o jo- 
ganhará pontos. O cálculo desses 
pontos é baseado no tempo gasto pelo 
jogador para acertar o pato. Cada tiro 
bem-sucedido é anunciado por um bip 
do computador. 
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Se ATTR não fornecer a cor do pa- 
io, o programa continuará na linha 230, 
onde uma multa de vinte pontos será 
subtraída do total, e o valor de i, igua- 
lado a zero para que a multa não seja 
cobrada novamente (o que só acontece- 
rá quando outro tiro for desperdiçado). 
A linha 400 verifica se o limite de tem- 
po foi ultrapassado, saltando para a li- 
nha 200, se isto ainda não tiver aconte- 
cido. Caso mais de cinco segundos te- 
nham se passado, a linha 410 fará o pa- 
to desaparecer, 

Depois que os dez patos forem colo- 
cados na tela, o programa alcançará a 



linha 430, que fará a comparação entre 
o score do jogador e o recorde atual. Se 
for o caso, o recorde será atualizado. O 
recorde e o score são mostrados pela li- 
nha 440. O programa termina com a fra- 
se usual: "Qualquer tecla para re- 
começar". 

O nível de dificuldade do jogo pode 
ser alterado modificando-se, na linha 
400, o limite de tempo que o jogador 
tem para acertar o pato. Valores com- 
patíveis para a conquista de pontos e pa- 
ra a multa devem ser colocados nas li- 
nhas 220 e 230. 




Não há programa de tiro ao pato pa- 
ra o ZX-81, mas as modificações que se 
seguem permitirão que você movimen- 
te o monstro do programa da página 316 
usando o joystick. O botão do joystick 
provoca a inversão da tela (você deve 
usar a versão completa do programa). 
115 LET A-CODE A$ 
120 1F A-33 AND X>0 THEN LET X- 
X-l 

130 IF A-36 AND X<28 THEN LET X 
-X+l 

140 IF A-35 AND Y>0 THEN LET Y- 
Y-l 

150 IF A- 34 AND Y<20 THEN LET Y 
-Y+l 

155 IF A-28 THEN RAND USH 16606 




Illlllllllll 
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28 é o código enviado ao computador 
pelo botão do joystick. 

m 

O programa do MSX é completado 
pelas seguintes linhas e modificações. 

10 SCREEN 1,2:KEY 0FF:COLOR 15. 

1,10:R-RND(-TIKE) 

20 FOR 1-1 TO 64 

55 SPRITES(1)-BIC3HTS(AS.32 Í 

70 FOR 1-4 TO 10 

80 VPOKE BASE(6)+I, 15*16+1 

90 NEXT 

100 VPOKE BASE (6)+30. 1*16+1 
105 VPOKE BASEt6)+31, 6*16+6 
110 CLS:STRIG(1) ON:SC-0 
120 GOSUB 1000 

130 FOR 1-0 TO 32:VPOKE BASE(5) 
+I,255:NEXT 

140 FOR 1=1 TO 22:VPOKE BASE (5) 
+31+1*32, 255:VPOKE BASE(5)+32+I 
•32.255:NEXT 

150 FOR 1-0 TO 31:VPOKE BASE(5) 
+23*32+1. 255 :NEXT 
160 GOSUB 3000 
180 D=10 
190 TIME-0 

210 PUT SPRITE 1. (DX.DY) .10 

220 ON STRIG GOSUB 2000,2000.20 

O0,200O.2O00:IF D<1 THEN 250 

230 IF TIME<500 THEN 200 

240 D=D-1:IF D>0 THEN GOSUB 300 

0:GOTO 190 

250 GOSUB 4000 

260 FOR 1=257 TO 2B6:VPOKE BASE 
(5)+I,245:NEXT 

2B0 LOCATE 1,2: PRINT "QUER JOGA 

R NOVAMENTE (S/N) ?" 

290 A3-INKEYS:IF AS<>"S" AND AS 

O-N- THEN 290 

300 IF A5-"S- THEN 110 

310 SCREEN 0:COLOR 15,4,4:END 

2000 IF ABS(X~DX)>1 AND ABS {Y-D 

Y)>1 THEN 2070 

2010 PUT SPRITE l.(DX,209) 

2020 PLAY "T25506CL32EG" 

2030 GOSUB 3000 

2040 SOSC+550-TIME :GOSUB 4000 

2050 D-D-l:TIME-0 

2060 RETURN 

2070 PLAY -T25501DDE- 

2080 SC-SC-25:GOSUB 4000 

2090 RETURN 

3000 DX-INT{RND(1)*220+10) :DY-I 

NT(RND(l)*145+25) : RETURN 

4000 FOR 1-33 TO 62:VPOKE BASE ( 

5)+I,245:NEXT 



4010 LOCATE 0,1: PRINT -SCORE:"; 
: LOCATE 7,1:PRINTSC; 
4020 IF SOHI THEN HI-SC 
4030 LOCATE 14,1: PRINT "RECORDE 
:";:LOCATE 24,1:PRINT Hl: 
4040 RETURN 
5000 DATA 3 , 12 



64 

32 



127 
12 , 
130 



64 , 3 
, 224 
. 129 , 
130 . 



, 152 , 132 

129 , 255 , 129 , 12Í 
130 , 132 , 152 , 224 . 0 
5010 DATA 14, 27. 127. 31. 15, 

7, 15, 31. 31. 29, 30, 15, 3, 

1, 1, 3, 0, 0, 0. 0. 0. 192, 11 

2. 1B8, 206, 30, 124. 248, 224, 
64, 64, 224 

A linha 10 foi modificada para mu- 
dar as cores da tela e iniciar o gerador 
de números aleatórios. 

A linha 20 foi alterada para poder ler 
os ciados adicionais da linha 5010. O 
sprite do pato é criado pela linha 55. 

As linhas 70 a 105 mudam a tabela 
de cores — BASE (6) — com o objetivo 
de aíterar as cores dos caracteres. Isto 
não é essencial ao nosso programa, mas 
permitirá que você modifique os valo- 
res P e T do comando VPOKE BASE 
(6) + I, T * 16,P (P é a cor de fundo 
e T, a cor de frente). 

A linha 1 10 apaga a tela e liga a fun- 
ção STRIG (1) que permite a detecção 
de um liro {ela também reduz o score a 
zero). Quando o botão de tiro do joys- 
tick 1 é pressionado, a função STRIG 
(N> ON desvia o curso do programa pa- 
ra o endereço do comando ON STRIG 
GOSUB. N determina o joystick: I e 3, 
joystick da direita; 2 e 4, joystick da es- 
querda. O número 0 permite à tecla de 
espaços disparar tiros. 

A linha 120 chama a sub-rotina 4000, 
que coloca o score e o recorde na tela. 

As linhas 130 a 150 desenham uma 
moldura vermelha, colocando na tela 
uma série de caracteres com VPOKE. A 
cor da moldura é determinada pela li 
nha 105. 

A posição em que o pato vai 
cer é escolhida ao acaso pela linha 160, 
As linhas 180e 190 estabelecem as con- 
dições iniciais: dez patos na variável I>, 
score zero e contador de tempo — TI- 
ME, uma variável interna do MSX — 



também igual a zero. 

A linha 210 desenha o pato. A linha 
220 diz ao programa para onde ir, caso 
o botão de tiro seja pressionado. São ne- 
cessários cinco endereços após ON 
STRIG para cobrir os valores de 0 a 4. 
Se, ao retornar da sub-rotina 2000, on- 
de é verificado se o tiro atingiu o alvo, 
não houver mais patos — ou seja, D< I 
— o programa irá para a linha 250. 

A linha 230 verifica se o tempo que 
cada pato pode ficar na tela foi ultra- 
passado. Se isto ainda não aconteceu, 
o programa voltará à linha 200. 

Caso o pato não seja atingido den- 
tro do prazo, a linha 240 diminuirá o nú- 
mero de aves. Se ainda houver patos, a 
nova posição será calculada pela sub- 
rotina 3000 e o programa voltará para 
a linha 190. 

Quando não houver mais patos, a li- 
nha 250 chamará a sub-rotina 4000, que 
mostrará o placar. 

A linha 280 faz então a velha pergun- 
ta: "Quer jogar novamente?" (a linha 
260 apaga a região onde é escrita a men- 
sagem). Caso a resposta seja afirmati- 
va, a linha 300 recomeçará o jogo. Ca- 
so seja negativa, a linha 310 terminará 
com ele. A linha 290 cuida das outras 
respostas. 

A sub-rotina 2000 verifica se o tiro 
dado acertou o pato. Na linha 2000, as 
condições ABS (X-DX)>1 e ABS (¥• 
DY) > 1 dão uma certa margem de erro 
à posição da mira. Se exigirmos que as 
coordenadas do pato — DX, DY — se- 
jam exatamente iguais às coordenadas 
da mira — X, Y — , o jogo ficará muito 
difícil. 

A linha 2010 faz com que o sprite do 
pato desapareça da tela, pois torna sua 
coordenada vertical igual a 209. Uma 
pequena melodia celebra o sucesso do 
jogador, na linha 2020. A linha 2030 
chama a sub-rotina 3000 que calcula 
uma nova posição para o pato. 

Os pontos a que o jogador fez jus são 
calculados pela linha 2040 com base no 
tempo que ele levou para acertar o pa- 
to. A sub-rotina 4000 mostra o novo 
placar. A linha 2050 reduz em 1 o nú- 
mero de patos e faz o contador de tem- 
po começar novamente do 0. 
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Caso o jogador erre o tiro, a linha 
2070 produzirá algumas notas dissonan- 
tes. Uma multa de 25 pontos será então 
cobrada e o placar, modificado e mos- 
trado ao jogador. 

A linha 3000 chamada como sub- 
rotina calcula ao acaso a nova posição 
do pato. 

A sub-rotina que começa na linha 
4000 mostra na tela o score, atualizan- 
do e exibindo o recorde. 

Os valores da linha 5010 contêm o 
padrão do sprite do pato. 

O nível de dificuldade do jogo pode 
ser modificado alterando-se o prazo 
que o jogador tem para acertar o pato. 
Isso é feito na linha 230. Acompanhan- 
do essa alteração, o cálculo dos pontos 
(na linha 2040) e da multa (na linha 
2080) deve sofrer modificações pro- 
porcionais. 



Complete o programa anterior com 
as linhas: 

60 HOME : HGR : SCALE- li ROT- 

0:X - 130:Y - 90 
100 DX - INT ( RND (1) * 256): 
DY - INT ( RND (1) * 136) 
110 D - 10;SC - 0 
120 CV - 0 

210 HCOLOR- 3: GOSUB 700 
220 IF PEEK ( - 16287) > 127 
OH PEEK (16286) > 127 THEN GO 
SUB 1000: IF D < 1 THEN 250 
230 IF CV < 40 THEN 200 
240 D - D - 1: IFD>0 THEN G 
OSUB 1500: GOTO 120 
250 : HOME : HTAB 5: VTAB 23: P 
RINT "SCORE - " iSC; 
260 IF SC > Hl THEN Hl - SC 
270 PRINT TAB ( 20) ; "RECORDE - 
":HI 

280 PRINT TAB í 5); "QUER JOGAR 

NOVAMENTE (S/N) 7 " 
290 GET AS: IF AS < > "S" AND 

AS < > "N" THEN 290 
300 IF AS - "S" THEN 60 
310 HOME : TEXT : END 
500 LX - X:LY - Y : CV - CV + 1 
700 DRAW 1 AT DX . DY 
710 DRAW 2 AT DX , DY + 8 
720 DRAW 3 AT DX + 8, DY 
7 30 DRAW 4 AT DX + 8, DY + 8 
740 RETURN 



1000 IF ABS (X - DX - 4) > 8 
OR ABS (Y - DY - 4) > 6 THEN 1 
070 

1010 FOR I - 1 TO 20 

1020 P - PEEK ( - 16336): NEXT 

1030 GOSUB 1500 

1040 SC - SC + 50 - CV 

1050 D - D - 1:CV - 0 

1060 RETURN 

1070 FOR I - 1 TO 3 

1080 P - PEEK ( - 16336) : NEXT 

1090 SC - SC - 5 
1100 RETURN 

1500 HCOLOR- 0: GOSUB 700 
1510 HCOLOR- 3: DRAW 5 AT X,Y 
1520 DX - INT { RND (1) * 256) 
:DY - INT { RND (1) * 136) 
1530 RETURN 



O HOME da linha 60 foi acrescenta- 
do para que o placar pudesse ser mos- 
trado. A linha 1 10 calcula ao acaso uma 
posição para o pato. As linhas 120 e 130 
estabelecem condições iniciais para o 
número de patos (D), para o score (S) 
e para o contador de tempo (CV). 

A linha 210 desenha o pato. A linha 
220 verifica se o botão do joystick foi 
pressionado — neste caso, o valor de um 
dos endereços dos comandos PEEK se 
torna maior que 127. Caso o programa 
não funcione, o joystick pode vir a uti- 
lizar o endereço - 16285. 

A linha 230 verifica se o prazo que 
o jogador tem para acertar o pato se es- 
gotou, voltando para a linha 200, se is- 
to ainda não aconteceu. 

Caso um dos patos não tenha sido 
abatido dentro do limite de tempo, seu 
número diminuirá em um. Se ainda so- 
brarem patos, a sub-rotina 1500 dese- 
nhará um deles na tela e o jogo conti- 
nuará na linha 190. 

Se os dez patos já foram desenhados, 
o jogo terminará e o score será exibido 
na porção inferior do vídeo. A linha 260 
atualiza o recorde, que é impresso pela 
linha 270. Uma opção de jogar nova- 
mente é então oferecida ao jogador. 

A linha 500 foi modificada para in- 
cluir um contador de tempo. A sub- 
rotina 700 desenha ou apaga o pato da 
tela, conforme a definição de cor atual. 

As linhas de 1000a 1 100 verificam se 



o tiro foi certeiro. As condições do IF 
da linha 1000 permitem uma certa mar- 
gem de erro ao tiro. Se exigirmos que 
as coordenadas do pato coincidam com 
as da mira, o jogo se tornará muito difí- 
cil (lembre-se de que não conseguimos 
controlar totalmente o cursor em BA- 
SIC; além disso, a mira se move de oito 
em oito pontos). 

As linhas 1020 e 1030 produzem uma 
série de vinte "cliques" no alto-falante, 
informando o sucesso do tiro. Um no- 
vo pato é gerado pela linha 1030. Os 
pontos ganhos são então calculados, 
com base no tempo gasto pelo jogador 
para abater a ave. O número de patos 
é diminuído e o contador de tempo vol- 
ta a zero. 

Se o tiro não atingir o paio, as linhas 
1070 e 1080 emitirão três "cliques" e 
uma multa de cinco pontos será cobra- 
da. 

A sub-rotina 1500 apaga o pato de 
sua antiga posição — linha 1 500 — e de- 
senha a mira nesse lugar, calculando ao 
acaso uma nova posição. 

O nível de dificuldade do jogo pode 
ser alterado, modificando-se o limite de 
tempo na linha 230. A contagem de pon- 
tos e a multa devem ser alteradas pro- 
porcionalmente, nas linhas 1040e 1090. 



GO 



Para o TK-2000, acrescente as linhas 
válidas para o Apple, com as seguintes 
modificações: 

220 IF A - 46 OR A - 76 THEN 
GOSUB 1000: IF D < 1 THEN 250 
570 IF A - 46 OR A - 76 THEN 
RETURN 

Essas linhas verificam se um dos bo- 
tões de tiro do joystick da microdigital 
foi pressionado. 46 e 76 são os códigos 
que os botões de tiro enviam ao micro. 



D 



Ao adicionar as próximas linhas, vo- 
cê terá o jogo completo. 
80 FOR K-1536 TO 2272 STEP 32 
90 READ A.B:POKE K . A : POKE K+l.B 
100 NEXT 
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110 GET(0.0)-<13.11) ,D.G 

120 G ET (0.121 - (13. 2 3) . H r G 

150 DX-RND(239)+1:DY-RND(178)+1 

180 D-10rSC-0 

190 TIMER-0 

210 PUT(DX,DY)-<DX+13,DY+11) ,D, 
OR 

220 IF (PEEK (65280] AND1 ) -0 GOSU 

B 2000 :IF D<1 THEN 250 

230 IF TIMER<200 THEN 200 

240 D-D-1:IF D>0 GOSUB 3000 :GOT 

O 190 

250 CLS:PRIHT í 139 , "SCORE"" ; SC 

260 IF SOHI THEN HI-SC 

270 PRINT g234."RECORDE-";HI 

280 PRINT 0389 , "QUER RECOMEÇAR 

(S/N)?" 

290 AS-INKEYS:IF AS<>"S* AND AS 

0"N" THEN 290 

300 IF A$-"S" THEN 130 

310 END 

2000 IF PPOINT{X.Y)-l THEN 2070 
2010 PUT{X-6,Y-5)-(X+7.Y+5) .H.P 
SET 

2020 PLAY "T50O4CEEEG" 

2030 GOSUB 3000 

2040 SC-SC+250-TIMER 

2050 D-D-l:TIMER-0 

2060 RETURN 

2070 PLAY "T25001DDE" 

2080 SC-SC-10 

2090 RETURN 

3000 PUT(DX,DY)-(DX+13,DY+11) ,B 
.PSET 

3010 PUT(X-8.Y-5)-(X+9.Y+5) ,S,P 

3020 DX-RND(239)+1:DY-RND(178)+ 
1 : RETURN 

4020 DATA 4,0.25,0,149,0,21,0,5 
.0,5.64.5,80,21,148,22,148,22,8 
4,21.84.5.60 

4030 DATA 48,48,0,0.195,12,51,4 
8.15,192.51,48.204,204,15.192,5 
1,48.192.12.0,0.51,48 



Dois desenhos estão contidos nas li- 
nhas DATA 4020 e 4030: o pato e o que 
restou dele após ser atingido pelo tiro. 
Os números são lidos e colocados na tela 
pelas linhas 80 a 1 00 com auxílio de. co- 
mandos POKE. Dois comandos GET 
são usados para colocar o pato na ma- 
triz D e o efeito do tiro em H. 

A linha 150 seleciona ao acaso uma 
posição para o pato, enquanto a linha 
210 utiliza os valores de DX e DY para 
desenhá-lo na (ela. 

Os valores iniciais do número de pa- 



ios, do score e do contador de tempo são 
estabelecidos pelas linhas 180 e 190. 

Os tiros são deteciados pela linha 
220. Se o botão da direita for pressio- 
nado, o bit 0 do endereço 65280 da me- 
mória mudará de 1 para 0; se o botão 
pressionado for o da esquerda, o bit mu- 
dará de 0 para 1 . A linha 220 mostra co- 
mo verificar essas mudanças em 65280. 
Se utilizarmos os comandos PEEK e 
AIMD1 e pressionarmos o botão da di- 
reita, teremos o valor zero. PEEK e 
AND2 verificam o botão da esquerda. 
Tal como está, a linha 220 se refere ao 
botão da direita. Se ele for pressionado, 
o programa será desviado para a sub- 
rotina 2000, que verificará se o tiro acer- 
tou o alvo. 

A parte final da linha 220 averigua 
se os dez patos já foram desenhados; se 
a resposta for positiva, o programa irá 
para a linha 250. 

Uma vez pressionado o botão do 
joystick, a linha 2000 verifica a cor do 
ponto que está no centro da mira. Se a 
função PPOINT sugerir que a cor é ver- 
de, isso significa que o jogador errou o 
alvo, e o programa irá para a linha 2070, 
que produzirá um som de erro. Uma 
multa de de? pontos será cobrada e a 
sub-rotina terminará na linha 2090. 

Se a cor no centro da mira não for 
verde, isso quer dizer que o tiro atingiu 
o alvo. Um desenho será colocado so- 
bre o pato, e se ouvirá um som de su- 
cesso. A seguir, é chamada a sub-rotina 
3000. Sua função é apagar o que restou 
do pato e desenhar a mira no mesmo lo- 
cal. A linha 3020 calcula ao acaso a no- 
va posição do pato. 

A linha 2040 calcula o score. Este de- 
pende do tempo levado para acertar o 
pato. O número de aves é diminuído de 
um a cada exemplar abatido e o conta- 
dor de tempo recomeça de zero. 

Após completar a sub-rotina, o pro- 
grama retorna à linha 230, onde é veri- 
ficado o prazo para o pato ser atingido. 
Se a variável TIMER for menor que 
200, o programa voltará à linha 200. Ca- 
so contrário, a linha 240 diminuirá o nú- 
mero de patos, verificando se sobrou al- 
gum. Em caso positivo, a sub-rotina 
3000 apagará a ave restanle e a linha 
3020 desenhará um novo pato. 



Se os patos tiverem acabado, o score 
e o recorde serão mostrados pelas linhas 
250 a 270. Estas também atualizam o 
recorde. 

As linhas 280 a 3 1 0 oferecem ao jo- 
gador a possibilidade de jogar no- 
vamente. 




O que fazer para transformar o dese- 
nho do pato em um alvo diferente? 

A resposta depende do computador 
que estamos usando. Basicamente, de- 
vemos alterar as linhas DATA e, talvez, 
as linhas que colocam caracteres 
(UDG) na tela. 

O programa do Spectrum usa um 
conjunto de quatro UOG definidos nas 
linhas 1000 a 1030. Para conjuntos 
maiores, a linha 1 80, que coloca o de- 
senho na tela, usando PRINT. deve ser 
modificada. 

Usuários do MSX também precisa- 
rão mudar as linhas DATA. Se usarem 
mais de um sprite, o tamanho do FOR 
da linha 20 deverá ser alterado e no- 
vos PUT SPRITE, acrescentados. Ê 
possível também que sejam necessá- 
rias algumas modificações nos coman- 
dos que contêm coordenadas. O pro- 
grama editor de sprites que fornecemos 
pode ser úlil como ponto de referência. 

A chave da modificação das linhas 
DATA do Apple e do TK-2000 está no 
programa editor de tabelas de figuras. 
A sub-rotina 700 deve ser alterada em 
caso de modificação do tamanho da fi- 
gura. Neste caso, todos os comandos 
que lidam com coordenadas devem ser 
igualmente alterados. 

Já no TRS-Color é muito simples 
criar caracteres UDG de qualquer tama- 
nho. Mude as linhas DATA e os 
FOR...NEXT que as lêem. Talvez seja 
necessário mudar também as coorde- 
nadas dos comandos PUT e GET. 
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CONVERSÔE! 



Você tem dificuldade para descobrir 
quantas polegadas há em um 
metro ou quantos litros contém um 
galão? 0 programa conversor 
de INPUT resolve esse problema. 



Adotado pela maioria dos países do 
mundo ocidental, o sistema métrico de- 
cimal de pesos e medidas tem contribuí- 
do, desde o seu surgimento no século 
XVIII, para facilitar as relações comer- 
ciais e o intercâmbio cultural entre o- 
povos. Os Estados Unidos e a Gri 
Bretanha, porém, permanecem 
a ele, preferindo empregar 
sistemas. Essa divergência de 
tem criado não poucos problemi 
nicos, pois grande parte das máguma! 
e ferramentas em circulação nomerca 
do mundial é produzida nessewoís pai 
ses, exigindo constantes conjersòes 
medidas, como, por exempjp, de pole- 
gadas para centímetros ou#ntào, deli- 



piogramaa seguir faz conversões 
lipo, incluindo até mesmo medi- 
lenos fijKjiienies, como ;i de pres- 
m milímetros de mercúrio (abrevia- 
para mmHG). 

:nte, digite o programa e exe- 
menu de opções aparecerá 
lente. A primeira delas (SAIR) 
permite que você retorne ao BASÍC, en- 
quanto as outras se referem aos tipos de 
unidades que podem ser convertidas. A.s 
CBgphas possíveis são: comprimento, 
volume, massa (ou peso), pressão 
emperatura. 

As opções são precedidas por 
os situados ã sua esquerda. Para sele- 
cionar uma delas, pressione a tecla com 
o número correspondente. Para conver- 
ter, por exemplo, unidades de compri- 




mento, pressione a tecla "1". Não im- 
porta, por enquanto, se a conversão se- 
rá do sistema métrico decimal para o sis- 
tema britânico ou vice-versa. 



Depois de fazer sua escolha a respei- 
to do género de conversão, pressione a 
tecla com o número correspondente. O 
computador mostrará então um segun- 
do menu, que lhe permitirá definir a un' 
dade a ser convertida. 

Assim, se você pressionou a tecla "1 
para converter unidades de comprimen 
to. tem agora uma lista de todas as 
dades possíveis (polegadas, pés, milíme- 
tros, centímetros, metros, etc). Se qui- 
ser converter polegadas em unidades de- 
cimais, pressione "I" novamente e^dL 
gite o número de polegadas. Não se es 
ruieç-a de teclar <KNTER> ou <RE 
JTUKN > depois disso. 



EnCOMTRE AS RESPOSTAS 



O computador faz as conversões e a 
iguir mostra os resultados em todas as 
nd.uk--. de um dos sistemas de medi- 
(métrico decimal ou britânico). Dcs- 
t forma, se você digitar um valor em 
olegadas, terá a resposta em milime- 
os, centímetros, metros e quilómetros. 
Depois de mostrar todos os valores, 
computador esperará até que uma te- 
seja pressionada para prosseguir. Se 
lt for <ENTER> ou < RETURN > . 
programa voltará a mostrar o menu 
irincipal. Se você quiser continuar a 
onvener o mesmo tipo de unidade, 
ualquer outra tecla o levará ao menu 
Menor . 



10 APLICAÇÕES 10 



■ 


CONVERSÃO DO SISTEMA 


AREA, PESO, COMPRIMENTO. 




MÉTRICO PARA 0 SISTEMA 


VOLUME, PRESSÃO E 




BRITÂNICO E VICE-VERSA 


TEMPERATURA 


■ 


COMO USAR 0 PROGRAMA ■ 


CONVERSÃO DE UNIDADES 


■ 


COMO CONVERTER VALORES DE 


MISTAS E FRACÕES 



Para interromper o programa, retor- 
ne ao menu principal e tecle '"O" para 
a opção SAIR. 



É possível ainda que você precise con- 
verter o valor de uma medida briiânica 
em que haja unidades e subunidades. 
Tomemos, por exemplo, dois pés e seis 
polegadas. Há duas maneiras de resol- 
ver o problema, 

O programa aceita números que não 
sejam inteiros; assim, se você souber 
quantas polegadas há em um pé, pode 
calcular a fração decimal corresponden- 
te e digitá-la no computador. Neste ca- 
so não há dificuldade, visto que seis po- 
legadas são exatamente meio pé. Assim, 
você digitaria 2.5. 

O segundo método (mais empregado 
jio caso de fracões de cálculo difícil) 
jsje em converter o valor em duas 
^Bfessa forma, passe para o sis- 
tema decimal, cm primeiro lugar, o va- 
lor expresso em pés; convert 
valor em polegadas. Em segi 
o que você tem a fazer é somar os doi 
resultados (tembre-se de somar semprt 
valores da mesma unidade decimal). 

Se ocorrer o contrário, ou seja, se 
numero não inteiro for do sistema deci- 



ETROS. 39370. KILOMETROS 

40 FOR K-0 TO 6 : READ MK).AS(K) 

.- NEXT 

50 DATA 1, POLEGADAS QUADRADAS , 1 
44.PES QUADRADOS, 6272640, ACRES, 
4. 0145E9, MILHAS QUADRADAS .. 155 , 
CENTÍMETROS QUADRADOS , 1550 ,METR 
OS QUADRADOS. 1.55E7, HECTARES 
60 FOR K-0 TO 6 : READ V(K).VS(K) 
: NEXT 

70 DATA 1. POLEGADAS CUBICAS, 172 
6,PES CÚBICOS. 34. 67, PINTAS, 277. 
36, GALÕES. .06102, CENTÍMETROS CU 
BICOS, 61. 024, LITROS. 61024, METRO 
S CÚBICOS 

80 FOR K-0 TO 5 : READ MtK).MS(K) 
: NEXT 

90 DATA 1, ONÇAS, 16, LIBRAS, 35840 
, TON . INGLESAS. .03527. GRAMAS, 35 
. 27, KILOGRAMAS, 35270, TON. METRI 
CAS 

100 FOR K-0 TO 4: READ P(K),PS< 
K) :NEXT 



110 DATA 1.PSI.51.73.MM HG, 6895 
.N/METRO QUADRADO, .0681, ATMOSFE 
RAS , 68 . 95 , MI LI BARES 
120 CLS:PRINT" QUAL CATEGOR 

IA (0-6)?" 

130 PRINT #72.-0- SAÍDA" : PRINT 
«136, "1- COMPRIMENTO": PRINT 620 
0."2- AREA" : PRINT 6264, * 3- VOLU 
ME" : PRINf «32B,"4- PESO":PRINT 
§392. "5- PRESSÃO" : PRINT «456, "6 
- TEMPERATURA" 

140 AS-INKEYS:IF AS<"0" OR AS>" 
6" THEN 140 

150 IF AS-"0" THEN CLS : END 

160 CLS:0N VAL (AS) GOSUB 1000,1 

500.2000,2500.3000,3500 

170 GOTO 120 

1000 PRINT ê9,"compriniento-:PRI 
NT #34. "SELECIONE UNIDADE ORIGI 
NAL" : FOR K-0 TO 7: PRINT «136+32 
*K,K+1;"- ";LS(K1 : NEXT 
1010 BS-INKEYS:IF BS<"1" OR BS> 
"8" THEN 1010 



mal, calcule a fração conveniente e co- 
loquei no computador. 



10 DIML<7) ,LSt7) ,A{6) ,AS<6) ,V(( 
) ,V$(6) ,M<5) .M9(5) ,f>(4) ,P$(4) 
20 FOR K-0 TO 7 : READ L<K),LS<K) 
:NEXT 

30 DATA 1, POLEGADAS. 1 2. PES. 36. J 
ARDAS, 63360. MILHAS. .03937, MI L1H 
ETROS . . 3937 , CENTÍMETROS , 39. 37 
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1020 B-VAL (BS) -1 :CLS: PBINT* INT 
RODUZA O NUMERO DE ";LS(B) 
1030 INPUT VL 

1040 CLS : PRINT VL;L3(B);" EQUIV 
ALE A " 

1050 IF B>3 THEN 1080 
1060 FOR K-0 TO 3 j PRINT #96+K*6 
4,VL*L(B) /LÍK+4) ,LS(K+4) :NEXT 
1070 OOTO 1090 

1080 FOR K-0 TO 3: PRINT «96+K*6 
4,VL"L(B)/L(K) ,LS(K) :NEXT 
1090 AS-INKEY$:IF AS-"" THEN 10 
90 

1100 IF AS-CHRS (13) THEN RETURN 

ELSE CLS:GOTO 1000 
1500 PRINT «13,"area":PRINT 835 
."SELECIONE UNIDADE ORIGINAL" :F 
OR K-0 TO 6:PRINT «131+32»K , K+l 
; *- " :A3 (K) :NEXT 

1510 BS-INKEYS:IF BS<"1* OR BS> 
"7" THEN 1510 

1520 B-VAl(B$)-l:CLS:PRINT" INT 
RODUZA O NUMERO DE *;AS(B) 
1530 INPUT VL 

1540 CLS : PRINT VL;A$(B);* EQUIV 
ALE A " 

1550 IF B>3 THEN 15B0 
1560 FOR K-0 TO 2:PRINT «96+K*6 
4,VL-A(B)/A(K+4) ,A$(K+4) : NEXT 
1570 GOTO 1590 

1580 FOR K-0 TO 3: PRINT «96+K*6 

4,VL«A(B)/A(K) ,AS (K) : NEXT 

1590 AS-INKEYS:IF AS-"" THEN 15 

90 

1600 IF AS-CHRS (13) THEN RETURN 

ELSE CLS:GOTO 1500 
2000 PRINT «12,"volune":PRINT « 
35. "SELECIONE UNIDADE ORIGINAL" 
:F0R K-0 TO 6 : PRINT «133+32*K,K 
+1;"- ";VS(K) : NEXT 
2010 BS-INKEYS: IF B3<"1" OH B$> 
"7" THEN 2010 

2020 B-VAL{BS)-1:CLS:PRINT" INT 
RODUZA O NUMERO DE ";VS(B) 
2030 INPUT VL 

2040 CLS : PRINT VL;VS(B);" EQUIV 
ALE A " 

2050 IF B>3 THEN 2080 
2060 FOR K-0 TO 2: PRINT «96+K«6 
4,VL*V(B)/V(K+4) ,VS(K+4) : NEXT 
2070 GOTO 2090 

2080 FOR K-0 TO 3 : PRINT «96+K*6 
4,VL»V(B)/V(K) ,VS(K) : NEXT 
2090 A$-INKEYS:IF AS-"" THEN 20 
90 

2100 IF AS-CHRS (13) THEN RETURN 

ELSE CLS:GOTO 2000 
2500 PRINT «13,"peso":PRINT «35 
, "SELECIONE UNIDADE ORIGINAL" :F 
OR K-0 TO 5: PRINT «136+32*K, K+l 
:"- ";MS<K) : NEXT 
2510 BS-INKEYS:ÍF B5<"1" OR BS> 
"6" THEN 2510 

2520 B-VAL(BS)-1:CLS:PHINT" INT 
RODUZA O NUMERO DE ";MS(B) 
2530 INPUT UL 

2540 CLS:PRINT VL;M3(B);" EQUIV 
ALE A " 

2550 IF B>2 THEN 2580 
2560 FOR K-0 TO 2 : PRINT #96+K*6 
4,VL«M(B)/M(K+3) ,MS(K+3) :NEXT 
2570 GOTO 2590 

2580 FOR K-0 TO 2 : PRINT «96+K«6 



4,VL*M(B)/M(K) ,M$(K) : NEXT 

2590 AS-INKEYS:IF AS-"" THEN 25 

90 

2600 IF AS-CHRSU3) THEN RETURN 

ELSE CLS: GOTO 2500 
3000 PRINT «ll,"preaaao":PRINT 
«36, "SELECIONE UNIDADE ORIGINAL 
":FOR K-0 TO 4 : PRINT «134+32*K, 
K+l;"- ";PS(K) : NEXT 
3010 B$-INKEYS:IF BS<"1" OR B$>' 
"5" THEN 3010 

3020 B-VAL(BS)-1:CLS:PRINT" INT 
RODUZA O NUMERO DE " ; PS (B) 
3030 INPUT VL 

3040 CLS:PRINT VL ; PS (B) : " EQUIV 
ALE A " 

3050 T-0:FOR K-0 TO 4:IF K-B TH 
EN 3070 

3060 PRINT «96+T*64,VL*P(K)/P(B 
) ,PS{K) :T-T+1 
3070 NEXT 

3080 AS-INKEYS:IF AS-"" THEN 30 
80 

3090 IF AS-CHRS (13) THEN RETURN 

ELSE CLSrGOTO 3000 
3500 CLS:PRINT §10 . "temperatura 
" i PRINT §37, "SELECIONE CONVERSA 
O : ": PRINT" CENTÍGRADOS PARA F 
AHRENHEIT (C) FAHRENHEIT PARA C 
ENTI GRADOS (F) " 

3510 BS-INKEYS:IF B$<>"C" AND B 

SO"F" THEN 3510 

3520 IF BS-"C" THEN 3560 

3530 PRINT" INTRODUZA GRAUS FAH 

RENHEIT": INPUT VL 

3540 CLS:PRINT §33 , VL ; "GRAUS FA 

HRENHEIT EQUIVALEM A" 

3550 PRINT «97. (VL-32) *5/9 ; "GRA 

US CENTÍGRADOS" :GOTO 3590 

3560 PRINT" INTRODUZA GRAUS CEN 

TIGRADOS": INPUT VL 

3570 CLS:PRINT «33 , VL ; "GRAUS CE 

NT I GRADOS EQUIVALEM A" 

3580 PRINT «97 , 32+VL*9/5 ; "GRAUS 

FAHRENHEIT" 
3590 A$-INKEYS:IF AS-"" THEN 35 
90 

3600 IF AS-CHRS (13) THEN RETURN 
ELSE CLS:GOTO 3500 



5 POKE 23658.8 
10 DIM L(8): DIM LS(B,12): 
DIM A(7) : DIM ASÍ7.16) : DIM V 
(7) : DIM VS(7,16) : DIM M(6) : 
DIM V(7) : DIM V$(7,12) : DIM M 
(6) : DIM MSÍ6.12) : DIM P(5) : 

DIM PS(5,17) 
20 FOR K-l TO 8: READ L(K),LS 
(K) : NEXT K 

30 DATA 1, "POLEGADAS". 12, "PES 
" , 36, "JARDAS" . 63360 . "MILHAS" . 
. 03937 , "MILÍMETROS" . . 3937 . "CE 
NTIMETKOS" ,39.37, "METROS" , 
39370, "QUILÓMETROS" 
40 FOR K-l TO 7: READ A(K),A$ 
(K) : NEXT K 

50 DATA l,"POL.QUADRADAS",144 
,"PES QUADRADOS" , 6272540 . "ACR 
ES" .4.0145E9, "MILHAS QUADRADA 
S", . 155, -CENT. QUADRADOS" , 
1550. "METROS QUADRADOS", 



1.55E7, "HECTARES" 

60 FOR K-l TO 7: READ V(K),VS 

(K) : NEXT K 

70 DATA 1. "POL. CUBICAS", 172B, 
"PES CÚBICOS", 34. 67, -PINTS". 
277. 36, "GALÕES". . 06102 , "CENT. 
CÚBICOS" ,61 . 024. "LITROS" , 
61024. "METROS CÚBICOS" 
80 FOR K-l TO 6: READ M(K),MS 
(K) : NEXT K 

90 DATA 1, "ONÇAS", 16, "LIBRAS" 
,35840, "TON. INGLESAS" , .03527, 
"GRAMAS" , 35.27, "QUILOGRAMAS" . 
35270, "TON. MÉTRICAS - 

100 FOR K-l TO 5: READ P (K) , PS 

(K) : NEXT K 

110 DATA 1 , "LIBRA/POL . QUADR . " , 
51 . 73 , "mmHG" ,6895, "N/METRO QUA 
DR . " , . 0681 . "ATMOSFERAS" , 68 . 95 . 
"MILIBARES" 

120 CLS ; PRINT INVERSE 1;*' 
TAB 5;"QUE CATEGORIA (0 A 6)?" 
; TAB 31;" " 

130 PRINT AT 6,8;"0- SAÍDA" : AT 
8,8;"1- COMPRIMENTO" ; AT 10,8;" 
2- AREA" ; AT 12,8;"3- VOLUME"; 
AT 14,8;-4- PESO";AT 16,8;"5- 
PRESSAO";AT 18,8;"6- TEMPERATU 
RA" 

140 LET ZS-INKEYS: IF ZS<"0" 
OR ZS>"6" THEN GOTO 140 

150 IF ZS-"0' THEN CLS : 
STOP 

160 CLS i GOSUB 1000+ (VAL ZS"1 
)*500 

170 GOTO 120 
1000 PRINT INVERSE 1 ; AT 0,12;* 

COMPRIMENTO ": PRINT AT 2,6;"S 
ELECIONE UNIDADE ORIGINAL": PRI 
NT ; FOR K-l TO 8; PRINT 'TAB 1 
0;K;"- ";L$(K) : NEXT K 
1010 LET BS-INKEYS: IF BS<"1" O 
R BS>*8" THEN GOTO 1010 
1020 LET B-VAL BS : INPUT "INTRO 
DUZA NUMERO DE ";(L$(B)).VL 
1040 CLS : PRINT AT 2,4;VL;" "; 
LS(B) ;" EQUIVALE A " 
1050 IF B>4 THEN GOTO 1080 
1060 FOR K-l TO 4: PRINT AT K«2 
+4,3; VL*L (B) /L (K+4) ; TAB 18;LS(K 
+4) : NEXT K 
1070 GOTO 1090 

1080 FOR K-l TO 4: PRINT AT K*2 
+4,3;VL*L(B)/L(K) ;TAB 18;LS(K): 
NEXT K 

1090 LET ZS-INKEYS: IF ZS-"" TH 
EN GOTO 1090 

1100 IF ZS-CHRS 13 THEN RETURN 
1110 CLS : GOTO 1000 
1500 PRINT INVERSE 1 ; AT 0,13:" 
AH EA ": PRINT AT 2 , 6 ; "SELECION 
E UNIDADE ORIGINAL": PRINT : FO 
R K-l TO 7: PRINT 'TAB 10;K;"- 
";AS(K) : NEXT K 

1510. LET BS-INKEYS: IF BS<"1" O 

R B$>"7" THEN GOTO 1510 

1520 LET B-VAL BS : INPUT "INTRO 

DUZA O NUMERO DE ";(A5(B)),VL 

1540 CLS : PRINT AT 2,4;VL;" 

AS(B) ;" EQUIVALE A - 

1550 IF B>4 THEN GOTO 1580 

1560 FOR K-l TO 3: PRINT AT K*2 
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lpt/0-56 litre 



+4 , 3 ; VL"A (B) /A{K+4) ;TAB 18;AS(K 
+4) : NEXT K 
1570 GOTO 1590 

1580 FOB K-l TO 4: PBINT AT K*2 
♦4.3;VL*A(B) ;TAB 18;AS(K): NEXT 
K 

1590 LET ZS-INKEYS: IF ZS-"" TH 
EN GOTO 1590 

1600 IF ZS-CHRS 13 THEN RE TU RN 

1610 CLS : GOTO 1500 

2000 PRINT INVERSE 1;AT 0,12;" 

VOLUME ": PBINT AT 2,6;"SELECI 
ONE UNIDADE ORIGINAL": PRINT : 
FOR K-l TO 7: PRINT 'TAU 10;K;" 
- ";VS(K) : NEXT K 
2010 LET BS-INKEYS: IF BS<"1" O 
R BS>"7" THEN GOTO 2010 
2020 LET B-UAL BS: INPUT "INTRO 
DUZA O NUMERO DE ";{VS<B)),VL 
2040 CLS : PRINT AT 2,4;VL";" "l 
V5(B) ;" EQUIVALE A " 
2050 IF B>4 THEN GOTO 2080 
2060 FOR K-l TO 3: PRINT AT K*2 
+4 , 3 ; VL*V (B) /V (K+4) ;TAB 18;VS(K 
+4) : NEXT K 
2070 GOTO 2090 

2080 FOR K-l TO 4: PRINT AT K*2 
+4,3;VL*V<B)/V(K) ;TAB 18;VS(K): 
NEXT K 

2090 LET 2S-INKEY$: IF ZS-"" TH 
EN GOTO 2090 



2100 IF ZS-CHRS 13 THEN RETURN 

2110 CLS : GOTO 2000 

2500 PRINT INVERSE 1;AT 0,13;" 

PESO ": PRINT AT 2 , 6 ; "SELECION 
E UNIDADE ORIGINAL": PRINT : FO 
R K-l TO 6: PRINT ' TAB 10;K:"~ 
";MS(K) : NEXT K 

2510 LET BS-INKEYS: IF BS<"1" O 

R BS>"6" THEN GOTO 2510 

2520 LET B-VAL BS ! INPUT "INTRO 

DUZA O NUMERO DE ";(MS(B)),VL 

2540 CLS : PRINT AT 2,4;VLi" "( 

MS(B) ;" EQUIVALE A " 

2550 IF B>3 THEN GOTO 2580 

2560 FOR K-l TO 3: PRINT AT K*2 

+4 , 3 ; VL*tt CB) /M {K+3) ;TAB 18;MS(K 

+3) : NEXT K 

2570 GOTO 2590 

2580 FOR K-l TO 3: PRINT AT K*2 
+4.3;VL*M(B)/M(K) ; TAB 18;M$(K): 
NEXT K 

2590 LET ZS-INKEYS: IF Z$-"" TH 
EN GOTO 2590 

2600 IF ZS-CHRS 13 THEN RETURN 

2610 CLS : GOTO 2500 

3000 PRINT INVERSE 1;AT 0.11;" 

PRESSÃO ": PRINT AT 2,6;"SELEC 
IONE UNIDADE ORIGINAL": PRINT ! 

FOR K-l TO S: PRINT ' TAB 10;K; 
";P$(K) : NEXT K 



3010 LET BS-INKEYS: IF BS<"1" O 

R BS>"5" THEN GOTO 3010 

3020 LET B-VAL BS: INPUT "INTRO 

DUZA O NUMERO DE *;(PS(B)),VL 

3040 CLS : PRINT AT 2,4;VL;" "; 

PS(B) ;" EQUIVALE A " 

3050 LET T-0: FOR K-l TO 5 : IF 

K-B THEN GOTO 3070 

3060 PRINT AT K*2+4 . 3 ; VL*P {K) /P 

(B) ; TAB 18;P3(K): LET T-T+l 

3070 NEXT K 

3080 LET ZS-INKEYS: IF ZS-"" TH 
EN GOTO 3080 

3090 IF ZS-CHRS 13 THEN RETURN 

3100 CLS ; GOTO 3000 
3500 PRINT INVERSE 1;AT 0.9;" 
TEMPERATURA ": PRINT AT 3,11;"C 
ONVERSAO:": PRINT '" CENTÍGRADO 
PARA FAHRENHEIT (C) FAHRENHEI 
T PARA CENTÍGRADO <F) " 
3510 LET BS-INKEYS: IF BS<>"C" 
AND B$<>"F" THEN GOTO 3510 
3520 IF BS-"C" THEN GOTO 3560 
3530 INPUT "INTRODUZA GRAUS FAH 
RENHEIT" ,VL 

3540 CLS : PRINT AT 1,2;VL;" GR 
AUS FAHRENHEIT EQUIVALEM A " 
3550 PRINT * TAB 2 ; <VL-32) *5/9; " 

GRAUS CENTÍGRADOS ": GOTO 3590 
3560 INPUT "INTRODUZA GRAUS CEN 
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TIGRADOS",VL 

3570 CLS : PRINT AT 1.2;VL;" GR 
AUS CENTÍGRADOS equivalem A " 
3580 PRINT 1 TAB 2 : 32+VL»9/5 ; " G 
RAUS FAHRENHEIT" 

3590 PAUSE 0; LET ZS-INKEYS: IF 

ZS-" THEN GOTO 3590 
3600 IF Z$-CHHS 13 THEN RETURN 
3610 CLS : GOTO 3500 



20 FOR K ■ 0 TO 7: READ L(K).L 
3 (K) : NEXT 

30 DATA l,POLEGADAS.12.PES,36 
, JARDAS .63360 , MILHAS , .03937.MIL 
I METROS , . 3937 , CENTÍMETROS , 39 . 37 
i METROS , 39370 , KILOMETROS 
40 FOR K - 0 TO 6: READ A(K),A 
3(K) : NEXT 

50 DATA 1, POLEGADAS QUADRADAS 
.144. PES QUADRADOS , 6272640 . ACRE 
S. 4. 0145E9, MILHAS QUADRADAS 15 

5 

55 DATA CENTÍMETROS QUADRADO 
S, 1550, METROS QUADRADOS , 1 . 55E7 , 
HECTARES 

60 FOR K - 0 TO 6: READ V(K),V 
8(K) : NEXT 

70 DATA 1, POLEGADAS CUBICAS , 1 
728. PES CÚBICOS, 34. 67, PINTAS, 27 
7. 36, GALÕES 

75 DATA .06102, CENTÍMETROS CU 
BICOS. 61. 024, LITROS, 61024. METRO 
S CÚBICOS 

80 FOR K - 0 TO 5: READ M{K),M 
S ( K) : NEXT 

90 DATA 1, ONÇAS, 16. LIBRAS, 358 
40, TONS, . 0 3527. GRAMAS, 35.27. KIL 
OGRAMAS. 35270. TONELADAS 
100 FOR K - 0 TO 4: READ P(X), 
PSCK) : NEXT 

110 DATA 1 , LIBRAS/ POL2, 51 . 73, 
MMHG , 6895 . NEWTONS/M2 . . 0681 , ATMO 
SFERAS,68.95,MILIBARES 
120 HOME ■ HTAB 10: VTAB 5: PR 
INT "QUAL CATEGORIA? (0-6)" 
130 VTAB 10: HTAB 10: PRINT "0 
- SAIR": HTAB 10: PRINT "1 - C 
OMPRIMENTO": HTAB 10: PRINT "2 
- AS EA" 

140 HTAB 10: PRINT "3 - VOLUME 
": HTAB 10: PRINT "4 - PESO": H 
TAB 10: PRINT "5 - PRESSÃO" 

150 HTAB 10: PRINT "6 - TEMPER 

ATURA" 

160 GET AS: IF AS < "0" OR AS 
> "6" THEN 160 

170 HOME : IF AS - "0" THEN E 
ND 

180 ON VAL (AS) GOSUB 1000,15 
00 . 2000 , 2500 , 3000 , 3500 
190 GOTO 120 

1000 INVERSE : PRINT SPC ( 39) 
;: HTAB 14: PRINT "COMPRIMENTO" 
: NORMAL 

1010 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE" i PRINT 
' 1020 FOR K - 0 TO 7: PRINT : H 




TAB 5: PRINT K + 1:"- ";LS(K): 
NEXT 

1030 GET BS: IF BS < "1" OR BS 

> "8" THEN 1030 
1040 B - VAL (BS) - l: HOME ; 
PRINT "NUMERO DE "iLS(B)r"?" 
1050 INPUT VL 

1060 HOME : PRINT VL ; CHRS (32 

);LS(B):" EQUIVALEM A: " 

1070 IF B > 3 THEN 1100 

1080 VTAB 10: FOR K ■= 0 TO 3 : 

PRINT : PRINT VL * L(B) / L (K + 

4);: HTAB 20: PRINT LS (K + 4): 

NEXT 
1090 GOTO 1110 

1100 VTAB 10: FOR K ■= 0 TO 3: 
PRINT : PRINT VL * L (B) / L(K); 
: HTAB 20: PRINT LS(K): NEXT 
1110 GET AS: IF AS < > CHRS 
(13) THEN HOME : GOTO 1000 
1120 RETURN 

1500 INVERSE : PRINT SPCÍ 39) 
;: HTAB 18: PRINT "AREA" : NORMA 

L 

1510 PRINT : HTAB 5: PRINT "ES 



COLHA A UNIDADE": PRINT 

1520 FOR K - 0 TO 6 : PRINT : H 

TAB 5: PRINT K + li"- "iAS(K>: 

NEXT 

1530 GET BS: IF BS < "1" OR BS 

> "7" THEN 1530 
1540 B - VAL (BS) - li HOME : 
PRINT "NUMERO DE ";AS(B);"?" 
1550 INPUT VL 

1560 HOME : PRINT VL ; CHRS (32 

);AS(B)i" EQUIVALEM A: " 

1570 IF B > 3 THEN 1600 

1580 VTAB 10: FOR K ■ 0 TO 2: 

PRINT : PRINT VL * MB) / A ( K + 

4);: HTAB 19: PRINT AS(K + 4): 

NEXT 
1590 GOTO 1610 

1600 VTAB 10: FOR K = 0 TO 3 : 
PRINT. : PRINT VL • A (B) / A (K) ; 
: HTAB 19: PRINT AS(K): NEXT 
1610 GET AS: IF AS < > CHRS 
(13) THEN HOME : GOTO 1500 
1620 RETURN 

2000 INVERSE : PRINT SPC( 39) 
:: HTAB 17: PRINT "VOLUME": NOR 
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MAL 

2010 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE" ! PRINT 
2020 FOR K ■ 0 TO 6: PRINT : H 
TAB 5: PRINT K + 1;"- ";V$(K): 
NEXT 

2030 GET BS: IF BS < "1" OR BS 

> "7" THEN 2030 
2040 B - VAL (BS) - 1: HOME : 
PRINT "NUMERO DE ":VS(B);"?" 
2050 INPUT VL 

2060 HOME : PRINT VL ; CHR3 (32 
>;V3(B);" EQUIVALEM A : " 
2070 IF B > 3 THEN 2100 
2080 VTAB 10: FOR K - O TO 2 : 
PRINT ! PRINT VL * V(B) / V(K + 
4) : : HTAB 19: PRINT V$(K + 4) : 
NEXT 
2090 GOTO 2110 

2100 VTAB 10: FOR K = 0 TO 3 : 
PRINT : PRINT VL" * V(B) / V(K); 
: HTAB 19: PRINT VS (K) ! NEXT 
2110 GET AS: IF A$ < > CHRS 
(13) THEN HOME : GOTO 2000 
2120 RETURN 

2500 INVERSE : PRINT SPC( 39) 
;: HTAB 18: PRINT "PESO": NORMA 

L 

2510 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE* : PRINT 
2520 FOR K - 0 TO 5: PRINT : H 
TAB 5: PRINT K + lt"- ";MS(K1 : 
NEXT 

2530 GET BS: IF BS < "1" OR BS 

> "6" THEN 2530 
2540 B - VAL (B$) - 1: HOME : 
PRINT 'NUMERO DE ";MS(B);"?" 
2550 INPUT VL 

2560 HOME : PRINT VL ; CHR3 (32 
);MS(B);" EQUIVALEM A:" 
2570 IF B > 2 THEN 2600 
2580 VTAB 10: FOR K - 0 TO 2 : 
PRINT : PRINT VL * M (B) / M(K + 
3) ; : HTAB 19: PRINT MS(K + 3) : 
NEXT 
2590 GOTO 2610 

2600 VTAB 10: FOR K = 0 TO 3: 
PRINT : PRINT VL * M(B) / M(K); 
: HTAB 19: PRINT MS (K) : NEXT 
| 2610 GET AS: IF AS < > CHRS 
I (13) THEN HOME : GOTO 2500 
2620 RETURN 

3000 INVERSE : PRINT SPC( 39) 
;: HTAB 16: PRINT "PRESSÃO* : NO 
RMAL 

3010 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE": PRINT 
3020 FOR K - 0 TO 4: PRINT : H 
TAB 5: PRINT K + 1;"- ";PS(K): 
NEXT 

3030 GET BS: IF BS < "1" OR B$ 

> "5" THEN 3030 
3040 B - VAL (B$) - 1: HOME : 
PRINT "NUMERO DE "|PS(B);"?" 
3050 INPUT VL 

3060 HOME : PRINT VL ; CHRS (32 
);P$(B)i" EQUIVALEM A:" 
3070 T - 0: VTAB 10: FOR K - 0 
TO 4: IF K - B THEN 3100 
3090 PRINT : PRINT VL * P (K) / 

P(B);: HTAB 19: PRINT P8(K):T 
- T + 1 
3100 NEXT 
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3110 GET AS: IF AS < > CHBS 
(13) THEN HOME : GOTO 3000 
3120 RETURN 

3500 INVEB3E : PRINT SPC ( 39) 
HTAB 14: PRINT "TEMPERATURA" 
: NORMAL 

3510 PRINT i HTAB 5: PRINT "CO 
NVERTEB: " : PBINT 

3520 PRINT : HTAB 5: PBINT "CE 
NT I GRADO PAflA FARENHEIT (C) " 
3530 PBINT ! HTAB 5: PBINT "FA 
BENHEIT PABA CENTÍGRADO (F) " 
3540 GET BS: IF BS < > "C" AN 
D BS < > "F" THEN 3540 
3550 IF BS ■ "C" THEN 3590 
3560 HOME : INPUT "GRAUS FABEN 
HEIT? "tVL 

3570 PRINT ! PRINT VL ; " GRAUS 
FARENHEIT EQUIVALEM A " ; (VL - 3 
2) * 5 / 9;" GRAUS CENTÍGRADOS. 
" : GOTO 3620 

3590 HOME : INPUT "GRAUS CENTI 
GBADOS? ";VL 

3600 PRINT : PBINT VL ; " GRAUS 
CENTÍGRADOS EQUIVALEM A *;32 + 
VL * 9 / 5;" GRAUS FABENHEIT . * 
3620 GET AS: IF AS < > CHRS 
(13) THEN HOME : GOTO 3500 
3630 RETURN 



5 DEFSNG A 

10 DIM L<?) .LS<7) ,A(6) ,AS(6) ,V{ 
6) ,VS(6) .M(5) ,M3(5) ,P(4) ,P$(4) 
20 FOBK-QT07 : READ L (K) , LS (K) : NE 
XT 

30 DATA 1, polegadas, 12, pia. 36. j 

ardas, 63 360. milhas, . 03937 , mi 1 ím 

etros, . 3937, centímetros. 39.37, m 

etroa. 39370, fcilflmet roa 

40 F0BK=0TO6:READ A(K) ,AS(K) :NE 

XT 

50 DATA 1. polegadas quadradas, 1 
44, pés quadrados, 6272640, screa, 
4.0145e9.milhaa quadradas ,. 155 . 
centímetros quadrados , 1550 . metr 
ob quadrados , 1 . 55e7 .hectares 
60 FOBK=0TO6:READ V (K) , VS (K) : NE 
XT 

70 DATA 1, polegadas cúbicas. 172 
e.péa cúbicos, 34. 67, pintas, 277. 
36, galões, ,06102, centímetros cú 
bicoa.ól . 024 . 1 itros.61024,metro 
a cúbicos 

BO FORK"0TO5 : READ M (K) . MS <K) : NE 
XT 

90 DATA 1. onças. 16. libraa, 35840 

.tona. . 03527, gramas, 35. 27, kl log 

ramas. 35270, toneladas 

100 FORK=0TO4 : READ P(K),PS!K):N 

EXT 

110 DATA L . 1 ihrag/pol ,51. 73, ma 
Hg,6895,newtons/m , . 0681 . atmosf 
eras , 68 . 95 , mi 1 1 bares 
120 CLS:COLOR 15,4,4: PBINT" Qu 
al categoria? (0-6)" 
130 LOCATE 5.5:PBINT"0 - Sair-: 
LOCATE 5.7:PRINT"1 - Compriment 
o":L0CATE 5.9:PRINT"2 - Área" 
135 LOCATE 5,11:PRINT"3 - Volum 
jj; e" : LOCATE 5,13:PBINT"4 - Peão": 
LOCATE 5,15:PRINT"5 - Pressão": 



LOCATE 5,17:PRINT*6 - Temperatu 

140 A5=INKEYS:IFAS<"0"OBAS>"6"T 
HEN140 

150 IFAS="0"THENCLS : END 

160 CLS:ON VAL(AS) GOSUB 1000,1 

500, 2000 , 2500, 3000, 3500 

170 GOTO 120 

1000 COLOR 15,6.6:PRINT"Compriin 
ento" : PRINTSTRINGS (39. 195) : LOCA 
TE 5 , 3 :PRINT"Selecione a unidad 

1010 FORK-0TO7: LOCATE 5,6+2*K:P 

RINTK+1 : "- ";LS(K):NEXT 

1020 BS-INKEYS: IFBS<"l*ORBS>"6" 

THEN1020 

1030 B-VAL(BS)-l:CLS:PRINT"Digi 
te o número de ";LS(B) 
1040 INPUT VL 

1050 CLS:PRINTVL;CHRS(32) ;LS(B) 

: " equivalem a : " 

1060 IFB>3THEN1090 

1070 FORK-0T03: LOCATE 1,6+2*K:A 

-VL*L(B)/L<K+4) :PBINTA;TAB(14) ; 

LSÍK+4) :NEXT 

1080 GOTO 1100 

1090 FORK=0TO3:LOCATE 1,6+2«K:A 
-VL*L(B)/L(K) :PRINTA[TAB[14) ; LS 
(K) : NEXT 

1100 AS=INKEYS:IFAS=""THEN1100 

1110 IFAS-CHRS(13)THEN BETURN E 

LSE CLS:GOTO1000 

1500 COLOB 15.10.10:PRINT"Area" 

: PRINTSTRINGS (39,195) : LOCATE 5. 

3:PRINT"Selecione a unidade:" 

1510 FOBK-0TO6 : LOCATE 5,6+2*K:P 

RINTK+1 ; ";AS(K):NEXT 

1520 B$-INKEYS:IFBS<"l"ORB$>"7" 

THEN1520 

1531) B-VAL(BS)-l:CLS:PRINT"Digi 
te o número de ";A$(B) 
1540 INPUT VL 

1550 CLS:PRINTVL;CHRS(32) ;A3(B) 



1560 IFB>3THEN1590 

1570 FORK=0T02:LOCATE 1,6+2*K:A 

-VL*A{B)/A(K+4) :PRINTA;TAB(14) ; 

ÀSÍK+4) : NEXT 

15B0 GOTO 1600 

1590 FOBK-0TO3 : LOCATE 1,6+2*K:A 
-VL*A(B)/A<K) :PRINTAiTAB()4) ;AS 
{K) :NEXT 

1600 A$=INKEYS:IFAS-""THEN1600 
1610 IFAS-CHRS(13)THEN RETUBN E 
LSE CLS:GOTOl500 

2000 COLOR 15.12,12:PRINT"Volum 

e" : PBINTSTBINGS (39, 195) : LOCATE 

5 , 3 : PRINT"Selecione a unidade:" 

2010 FOBK-0TO6: LOCATE 5,6+2*K:P 

RINTK+1;"- ";VS(K):NEXT 

2020 B$-INKEYS:IFBS<"l"ORBS>"7" 

THEN2020 

2030 B=VAL (BS) -1 : CLS : PRINT"Di gi 
te o número de ":VS(B) 
2040 INPUT VL 

2050 CLS:PRINTVL;CHR$(32) ;VS(B) 

: " equivalem a : " 

2060 IFB>3THEN2090 

2070 FOBK=0TO2:LOCATE 1,6+2*K:A 

-VL*V(B)/V(K+4) :PBINTA;TAB(14) ; 

VS(K+4) : NEXT 

2080 GOTO 2100 

2090 FORK=0TO3 : LOCATE 1,6+2*K:A 



-VL*V(B)/V(K) :PBINTA;TAB(I4) ;V3 
(K) : NEXT 

2100 AS=INKEYS:IFAS=""THEN2100 
2110 IFAS-CHRS<13)THEN RETURN E 
LSE CLS:GOT02000 

2500 COLOR 15.13.13:PRINT"Peao* 

: PRINTSTRINGS (39 . 195 ) : LOCATE 5, 

3:PRINT"Selecione a unidade:" 

2510 FORK'0TO5:LOCATE 5.6+2"K:P 

RINTK+1:"- -iMS(K) :NEXT 

2520 BS-INKEYS: IFB$<"l-ORBS>"6* 

THEN2520 

2530 B«VAL (BS) -1 : CLS : PRINT " Di gi 
te o número de -;MS(B) 
2540 INPUT VL 

2S50 CLS:PRINTVL;CHRS(32) ;MS(B) 
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2560 IFB>2THEN2590 

2570 FORK-0TO2: LOCATE 1.6+2»K:A 

-VL*M(B)/M(K+3) :PRINTA;TAB(14) ; 

MS(K+3) : NEXT 

2580 GOTO 2600 

2590 FOBK=0TO2: LOCATE 1.6+2*K:A 
=VL*M(B)/M(K) :PBINTA;TAB(14) ; MS 
(K) : NEXT 

2600 AS=INKEY$:IFAS-""THEN2600 
2610 IFA3-CHRS(13)THEN RETURN E 
LSE CLS:GOTO2500 

3000 COLOR 15,14, 14:PBINT"Press 
3o" : PRINTSTRINGS (39.195) : LOCATE 
5 . 3 : PRINT" Se lecione a unidade: 

3010 FORK-0TO4 : LOCATE 5,6+2*K:P 

RINTK+1;"- ";PS(K):NEXT 

3020 BS-INKEYS:IFBS<"l"ORBS>'5- 

THEN3020 

3030 B-VAL(BS)-l:CLS:PRINT"Digi 
te o número de " ; PS (B) 
3040 INPUT VL 

3050 CLS:PBINTVL;CHRS (32) iPS(B) 
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3060 T-0:FORK=0TO4:IFK=BTHEN308 

0 

3070 LOCATE 1 . 6+2*T : A=VL*P (K) /P 
(B) :PBINTA:TAB(14) ;P$(K) :T"T+1 
3080 NEXT 

3090 AS= INKEYS : I FAS=" "THEN 3 090 
3100 IFAS-CHRS(13)THEN BETURN E 
LSE CLS:GOTO3000 

3500 COLOR 15,6,6:PRINT"Tempera 
tura" : PRINTSTRINGS ( 39 , 195) : LOCA 
TE 5 , 3 : PRINT"Converter : " 
3510 LOCATE 5,6: PRINT" Geni. í grad 
os para Farenheit (C)":LOCATE 5 
,8:PRINT"Farenheit para Centígr 
ados (F)" 

3520 BS-INKEYS :IFBSO"C"ANDBS<> 

"F"THEN3520 

3530 IFBS="C"THEN3560 

3540 CLS : INPUT"Graus Farenheit" 

iVL 

3550 LOCATE 3,7: PRINTVL ; " graus 
Farenheit equivalem a ":PRINT{ 
VL-32)*5/9;" graus Centígrados. 
":GOTO 3580 

3560 CLS:INPUT"Graus Centígrado 
a';VL 

3570 LOCATE 3.7: PBINTVL ; " graus 
Centígrados equivalem a":PRINT 
32+VL*9/5;" graus Farenheit." 
3580 AS-INKEYS:IF AS-" "THEN3580 
3590 IFAS-CHRS(13)THEN RETURN E 
LSE CLS: GOTO 3500 
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ODICO DE MAQUINA 
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RÂSTREÂMENTO 
NO SPECTRUM 



■ 


0 QUE FAZ UM 


PROGRAMA RASTREADOR 


■ 


A BUSCA DOS ERROS 


■ 


FUNCIONAMENTO 


E USOS DO PROGRAMA 



U*RAM 7:45 PA MANHÃ QUANDO UMA SENHORA 
DA ALTA SOCIEPAPE ENTROU EM MEU VELHO 
BSCRITÔRIO NO CENTRO PA CIDAPE. ALEM 
PE UM CASACO PE PELES E UMA BOLSA PE 
COURO PE JACARé, ELA TRAZIA CONSIGO 
UMA PISTOLA *5 B UMA CARTA ANÓNIMA, 
ESCRITA POR ALGUM MANÍACO, QUE MAIS 
PARECIA UMA MENSAGEM PE ERRO. 




Descubra onde se escondem aquelas 
linhas mal escritas. Interrogue o 
programa marginai que não funciona. 
Localize erro por erro com a ajuda 
do nosso programa rastreador. 



É praticamente impossível digitar um 
programa longo — tal como o Assem- 
bler — sem cometer alguns erros. Mes- 
mo que tenhamos conferido com todo 



o cuidado uma listagem, às vezes surgem 
erros que desafiam até programadores 
experientes, se não forem investigados 
com um recurso especial. 

Para prosseguir no curso de lingua- 
gem de máquina, é essencial que seu As- 
sembler funcione. Por isso, antes de 
mais nada, você deve encontrar todos os 
erros nele existentes. INPUT traz para 
os usuários do Spectrum de 48 K de me- 
mória um programa rastreador que se- 
rá muito útil na busca dos erros even- 
tualmente cometidos na digitação do 



Assembler. O TRS-Color. o TRS-80, o 
MSX e o Apple possuem programas ras- 
treadores embutidos — são as funções 
TRACE, TRACE ON ou TRON. 

O programa "TRACE" que apresen- 
tamos a seguir vem tanto em Assembly 
como em código hexadecimal. Assim, se 
seu Assembler não está funcionando, 
você pode usar o monitor da página 92 
para entrar os códigos. Caso funcione 
bem, monte o programa TRACE com 
sua ajuda e grave-o em fita, para usá-lo ■ 
em outros programas que contenham er- 1 
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ros. Se você não sabe se o Assembler es- 
lá funcionando, use a montagem deste 
programa rastreador como um teste. 



COMO USAR 0 PROGRAMA 



Quando um programa BASIC tem 
um erro, seu micro geralmente informa 
em que linha está o problema. Isso po- 
de ser suficiente para corrigir um erro 
em um programa simples e curto. Po- 
rém, quando se trata de um programa 
maior e mais complicado, a mensagem 
de erro muitas vezes é inútil. Uma linha 
sempre executada com sucesso pode, de 
repente, causar um erro porque em ou- 
tro local do programa uma variável que 
ela usa assumiu um valor inadequado. 

O programa rastreador aqui apresen- 
tado simplesmente escreve na tela o nú- 
mero da linha que está sendo executa- 
da. Ao contrário das instruções TRA- 
CE dos demais micros, nosso programa 
também escreve o código interno do co- 
mando BASIC usado no momento. 

Para facilitar o uso do programa, 
convém ter à mão uma listagem do pro- 
grama, seja ela sua ou de INPUT. Vo- 
cê poderá, assim, acompanhar o progra- 
ma passo a passo, até atingir o ponto 
onde ocorreu o erro. Ficará mais fácil 
também descobrir os valores das variá- 
veis e, ainda, se as condições dos 
IF...THEN estão sendo satisfeitas e se 
os GOTO estão indo para as linhas 
certas. 



FUNCIONAMENTO DO TRACE 



Um programa TRACE é um tipo 
muito especial de rotina em linguagem 
de máquina, pois funciona simultanea- 
mente a outro programa — o seu, que 
está em BASIC. Normalmente, não se 
pode rodar dois programas ao mesmo 
tempo no computador. O TRACE, na 
verdade, não constitui uma exceção: ele 
não roda ao mesmo tempo que o pro- 
grama em BASIC, mas utiliza um atri- 
buto do microprocessador que é a inter- 
rupção. 

Rotinas que empregam esse artifício 
interrompem o programa principal a ca- 
da 20 milésimos de segundo — no Spec- 
trum — e são executadas na fração de 
segundo que dura essa interrupção. De- 
pois disso, o programa principal conti- 
nua como se nada tivesse ocorrido, até 
a interrupção seguinte. 

Programas BASIC são sempre inter- 
rompidos a cada 0,02 segundo enquan- 
to estão funcionando, para que o com- 
I putador verifique se alguma tecla foi 
I pressionada. Rotinas que usam interrup- 



ções aproveitam-se desse padrão. A in- 
terrupção pode não ocorrer, tal como 
foi explicada, se houver algo conectado 
na expansão da memória. 

Se uma linha BASIC for muito lon- 
ga, ela poderá ser interrompida mais de 
uma vez durante sua execução. Nesse ca- 
so, o TRACE fornecerá o mesmo núme- 
ro de linha várias vezes. Por outro la- 
do, se uma linha for muito curta — 
PRINT ou RETURN isolados, por 
exemplo — existe uma pequena chance 
de que TRACE não a detecte. Se isso 
acontecer, tente provocar uma pausa 
usando um FOR.-NEXT. 



O Spectrum tem dificuldade em im- 
primir na tela durante uma interrupção. 
Dois canais diferentes são usados para 
imprimir na parte superior da tela ou 
nas duas linhas inferiores, e, se mudar- 
mos de canal enquanto o programa em 
BASIC está rodando, pode haver com- 
plicações. 

Para contornar o problema, vamos co- 
locar o número da linha diretamente na 
tela. Como cada caractere consome oito 
bytes, simplificamos a pane do programa 
que cuida disso, fazendo com que os nú- 
meros das linhas sejam sempre colocados 
no mesmo local da tela, fora da área que 
o BASIC costuma usar. Ao lado do nú- 
mero, coloca-se o código do comando BA- 
SIC que está sendo executado. 

O programa TRACE não é chama- 
do de dentro do BASIC, mas por meio 
de outra rotina em código que, por sua 
vez, é chamada pelo BASIC. E esta ro- 
tina que transfere o controle para o 
TRACE, durante as interrupções. 

Não se esqueça de resguardar o topo 
da memória — os endereços a partir de 
65109 devem estar livres e protegidos 
por CLEAR 65109. Se for usado o As- 
sembler, as origens — ou endereços ini- 
ciais — estarão listadas. Se seu Assem- 
bler não funcionar, utilize o programa 
monitor da página 92. O endereço ini- 
cial é 65110. 

Não se assuste se as traduções das li- 
nhas contendo saltos para rótulos que 
estão adiante da listagem, bem como das 
linhas que utilizam variáveis e bytes ain- 
da não definidos, saírem erradas na te- 
la. Elas são posteriormente corrigidas 
pelo próprio Assembler. 

Não estranhe também se o Assembler 
parar a montagem antes de end. quan- 
do a parte inicial do programa, que con- 
tém as linhas REM com o programa- 
fonte, foi muito editada ou teve muitas 
linhas apagadas. Nesses casos, pode so- 
brar algum "lixo" no meio da listagem. 



Este não prejudica a interpretação pelo 
BASIC, mas confunde a do Assembler. 
Para contornar o problema, redigite a 
linha imediatamente posterior à última 
traduzida, e rode o programa novamen- 
te. Às vezes é necessário digitar várias 
linhas de novo. 



rg 65110 



3E 09 
ED 47 
ED 5E 

C9 

00 00 00 
.1E 3E 
ED 47 
ED 56 



push de 
push hl 

ld de. 20726 
ld (poanl ,de 
ld hl , (23621) 
call lineno 
ld de, 20731 
l d (poati) ,de 
ld hl , (23623) 
ld h,0 
ca 11 statno 
ld hl. 23286 
ld (hl), 71 
ld de, 23287 
ld bc,9 



ín a, 254 
or 224 
cp 252 
jr z.keyl: 
pop IX 

pop af 



D5 
E5 
DD ES 
11 F6 50 
ED 53 FE FE 
2A 45 5C 
CD B5 FE 
11 FB 50 
ED 53 FE FE 
2A 47 5C 
26 00 
CD B8 FE 
21 F6 5A 
36 47 
11 F7 5A 
01 09 00 
ED BO 
3E 7F 
DB FE 
F6 E0 
FE FC 
28 F6 
DD El 
El 
Dl 



lineno ld bc 
rali prt 
statno ld bc 
call prt 
ld bc,-10 
call prt 
ld bc,-l 
call prt 



abe hl, 
add a. 4 



-1000 
-100 



FB 

C9 

01 18 FC 
CD CE FE 
01 9C FF 
CD CE FE 
01 F6 FF 
CD CE FE 
01 FF FF 
CD CE FE 
C9 
AF 
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ld hl . (posn) 
call prtout 



ld ha. (23606) ED < 



add hl. hl 
ãdd hl .hl 
add hl. hl 



A listagem inclui três programas, e não 
apenas um. Cada um tem seu próprio 



endereço inicial. O primeiro, que come- 
ça em 651 10, ativa o programa principal. 
O segundo, que começa em 65120, des- 
liga o programa TRACE. O terceiro, que 
começa em 65129, faz o rastreamento. 

As instruções td a, 9 e ld i.a colo- 
cam o número 9 dentro do registro 1. 
Não há uma instrução que carregue o re- 
gistro I diretamente com um número. O 
9 é interpretado como o byte mais sig- 
nificativo de um vetor de interrupção 
que possui dois bytes. O byte menos sig- 
nificativo é fornecido pelo computador. 



_ 1 SAI PELAS RUAS 
INVESTISANPO, SEGUINDO ALGUMAS 
LINHAS. EU ESTAVA, FOREM, NA CIPAPE 
PA SINTAXE, ONPE TOPOS OS PROGRAMAS 
SÃO LONGOS E HÁ ERROS POR TOPA A 
PARTE. 




>AMINHAR 6EM RUMO PELAS 
RUÃS NÃO ME LEVARIA A 
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sendo geralmente igual a 255. Assim, o 
vetor de interrupção aponta para o en- 
dereço 9*256 + 255i que é igual a 2559. 
0 valor contido nos endereços 2559 e 
2560 é 65 129, o endereço inicial do nos- 
so programa TRACE. 

O processo pode parecer confuso, 
mas rotinas com interrupções devem ser 
endereçadas indiretamente. Note que o 
endereço 2559 fica na ROM. Se colocás- 
semos no registro I um número maior 
que 64, para apontarmos pa- 
ra um endereço da RAM, on- 
de poderíamos colocar o nú- 
mero que quiséssemos — 
65129 já estava lá — , vería- 
mos que os caracteres se des- 
manchariam no vídeo. 

O mnemónico irn 2 altera o 
modo de interrupção. A roti- 
na que desliga o programa 
principal coloca o valor 62 no registro 
I; 62 era o conteúdo original desse re- 
gistro, im 1 restabelece o modo de in- 
terrupção normal. 

O programa principal começa com a 
instrução rts 56. Ela determina que o mi- 
croprocessador execute sua rotina nor- 
mal de interrupção — fazendo a varre- 
dura do teclado e atualizando o relógio 
do sistema. 

Ao programar uma rotina com inter- 
rupção, deve-se levar em conta que, ao 
final de sua execução, é essencial que o 
conteúdo de todos os registros seja exa- 
tamente igual ao que havia antes da in- 
terrupção. A única maneira de garantir 
isso é colocar o conteúdo dos registros 
na pilha, usando push, no inicio do pro- 
grama, e retirá-lo de lá usando pop, 
quando o programa acabar. Os conteú- 
dos de BC, DE, HL e IX são todos co- 
locados na pilha. O conteúdo de AF en- 
tra antes porque o acumulador e o re- 
gistro F — que contêm os sinalizadores 
— são utilizados para verificar se o pro- 
grama BASIC está sendo rodado 
um programa BASIC funcionando 
não há nada a ser rastreado. 

Para verificar se existe um 
programa em curso, coloca-se o 
conteúdo da posição 23622 no 
acumulador. As posições 23621 
e 23622 contêm o número da li- 
nha BASIC que está sendo exe- 
cutada. Embora os números das 
linhas BASIC sejam armazenados 
em formato alto-baixo na área do 
programa, aqui eles são armazenados 
no formato baixo-alto. 

Se nenhum programa está sendo exe- 
cutado, o número contido nas duas po- 
sições será muito elevado para perten- 
cer a uma unha BASIC — 9999 é o 
■maior número de linha que o Spectrum 
H aceita. Assim, o conteúdo de 23622 (o 



byte mais significativo) é colocado no 
acumulador e a instrução bit 7,a exami- 
na o bit mais significativo do conteúdo 
de A. Se esse bit for 1 , o programa não 
está sendo executado. Uma instrução bit 
verifica o valor de determinado bit de 
uma posição ou registro. Por exemplo, 
bit 4, a testa o quarto bit do acumulador. 

Se o bit mais significativo do byte 
mais significativo da linha BASIC que 
está sendo executada for 0, o sinaliza- 



dor zero é estabelecido e jr z.go faz com 
que o programa vá para a próxima ocor- 
rência do rótulo go. Se o bit 7 do acu- 
mulador for 1 , o sinalizador não é esta- 
belecido e o saldo não ocorre. O progra- 
ma continua na próxima instrução, que 
recupera o valor de AF da pilha e retor- 
na ao interpretador BASIC. 

Uma vez que haja um programa sen- 
do rodado e que ele tenha sido transfe- 
rido para o rótulo go, a instrução di de- 
sabilita interrupções, garantindo o fun- 
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PEPIU AJUDA AO BOM E VELHO TRACE. 
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cionamento contínuo de nossa rotina de 
interrupção. 

A instrução Id de,20726 coloca no re- 
gistro DE o endereço da posição da teia 
imediatamente anterior àquela onde co- 
locaremos um caractere. Como o pro- 
grama usará muito esse endereço, ele é 
colocado na variável posn, por meio do 
comando Id posn.de. Nosso Assembler 
interpreta a variável posn como uma po- 
sição de memória que tem um nome. 
Como nenhuma instrução permite colo- 
car um número d ir et a meu te dentro de 
uma variável ou posição de memória, 
usamos um registro como intermediário. 

Coloca-se no par HL o conteúdo das 
posições 23621 e 23622, que é o núme- 
ro da linha BASIC que está sendo exe- 
cutada no momento. Podemos então 
chamar a sub-rotina de rótulo lineno. 

O número da linha BASIC em HL es- 
tá em hex. Para convertê-lo para deci- 



mal, começamos por calcular o algaris- 
mo dos milhares: subtraímos 1000 do 
número em HL repetidamente, contan- 
do quantas vezes foi possível fazer tal 
operação. Colocamos, assim, o valor 
-1000 no par BC e chamamos a sub- 
rotina prt, que faz as subtraçòes. Nessa 
sub-rotina, a primeira coisa que o mi- 
croprocessador faz é xor a — isto é, um 
ou exclusivo. Em linguagem de máqui- 
na, um xor sempre age no registro A; 
assim, xor a faz um ou exclusivo do acu- 
mulador com ele mesmo, o que sempre 
resulta em 0. Esta é uma maneira rápi- 
da de colocar 0 no acumulador, já que 
Id a, D tem um byte a mais. 

add hl.bc subtrai 1000 do conteúdo 
de HL. Somar -1000 é mais rápido que 
subtrair 1000, já que dispensa cuidar do 
sinalizador carry ("vai um"). O acumu- 
lador é, então, incrementado e atua co- 
mo contador, jr c.prtlp verifica o sina- 




JLI PELAS 10, RH APANHADO EM UM LAÇO 
SEM FIM E, QUANDO VI, ESTAVA CERCADO FOR. 
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lizador carry e salta quando ele é esta- 
belecido. 

Se considerarmos o conteúdo de BC 
entenderemos como tudo funciona. Vi- 
mos no artigo da página 142 que os 
números negativos são representados 
dentro do computador por números po- 
sitivos muito grandes, mas de compri- 
mento limitado. O par de registros BC 
contém dezesseis números 1 binários, 
menos 1000 em decimal. Se qualquer 
número maior que 1000 for somado a 
BC, o valor do resultado ultrapassará a 
capacidade do par HL e o sinalizador 
carry será estabelecido. 

Quando isso ocorre, há um salto, 
1000 é novamente subtraído de HL, o 
contador é incrementado e o processo 
recomeça. Ele se repete até que o con- 
teúdo de HL seja menor que 1000; a adi- 
ção com BC, então, não estabelece o si- 
nalizador carry. Neste ponto, porém, a 
subtração já foi feita e a incrementação 
do contador ocorreu uma vez mais que 
o necessário. Assim, somamos 1000 a 
HL — na realidade subtraímos -1000 
— e decrementamos o acumulador. 

O acumulador contém, agora, o al- 
garismo dos milhares. Adicionando 48, 
obtemos o código ASCII do caractere. 
O conteúdo de HL é reservado na pilha 
para quando formos calcular as cente- 
nas, dezenas e unidades. Em seguida, 
chamamos a sub-rotina prinl. 

A primeira instrução dessa sub-rotina 
é Id bc, (23606), que coloca o conteúdo 
das posições 23606 e 23607 em BC. Es- 
sas posições contêm a variável do siste- 
ma que aponta para o endereço inicial 
do conjunto de caracteres da ROM. O 
conteúdo de H é reduzido a zero e o do 
acumulador é transferido para L, que 
conterá, assim, o código ASCII do ca- 
ractere que queremos escrever. O regis- 
tro HL é usado, então, como um acu- 
mulador de 16 bits. 

Para colocar na tela o caractere de- 
sejado, temos que obter seu formato 
dentro do conjunto de caracteres que fi- 
ca na ROM. Como cada caractere tem 
oito bytes, o endereço inicial dos oito 
bytes que fornecem o padrão do carac- 
tere é oito vezes o código ASCII do ca- 
ractere, mais o endereço inicial do con- 
junto de caracteres. 

Em vez de multiplicar o código AS- 
CII por oito, é mais fácil duplicá-lo — 
somando-o consigo mesmo — três ve- 
zes. Observe que a operação não é feita 
no registro A porque o valor certamen- 
te ultrapassará oito bits — 48 X B = 
384, posição inicial do caractere 0, é 
que 255, máxima capacidade de 
registro de oito bits. Essa conta, 
porém, não ultrapassará os dezesseis 
bits. 
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Para obter o endereço do primeiro 
byte do caractere desejado, adiciona-se 
o resultado da operação ao conteúdo de 
BC. Os conteúdos de HL e DE são in- 
tercambiados para que HL possa ser 
usado novamente. 

rei determina o retorno do micropro- 
cessador da sub-rotina e td hl, posn co- 
loca a posição da tela contida em posn 
no registro HL. A instrução indireta inc 
(hl) incrementa o conteúdo de posn. A 
sub-rotina que coloca o caractere na te- 
la — prtoui — é, então, chamada. 

A primeira instrução dessa sub-rotina 
é Id b, 8, que coloca 8 no registro B. Ele 
será usado como contador para os oito 
bytes do caractere que serão transferi- 
dos para a tela. O acumulador é carre- 
gado com o conteúdo da memória cujo 
endereço está em DE, ou seja, com o 
primeiro byte do caractere. O conteúdo 
do acumulador é transferido para a po- 
sição de memória cujo endereço está em 
HL (o local apropriado da tela). Exce- 
to em um comando de ação em bloco, 
não se pode transferir o conteúdo de 
uma posição de memória diretamente 
para outra sem utilizar um registro co- 
mo intermediário. Não há uma instru- 
ção do tipo Id (hl), (de), por exemplo. 
Essa transferência requer, portanto, 
duas instruções, e o que ela realmente 
faz é colocar a primeira linha de oito 
pontos do caractere na tela. 

O conteúdo do registro H é, então, 
incrementado. Como H contém o byte 
mais significativo do par HL, o conteú- 
do desse par aumenta em 256, de for- 
ma a corresponder ao endereço da pró- 
xima linha do caractere. 

Incrementando o conteúdo de DE, 
obtemos o endereço da próxima linha do 
caractere, dentro do conjunto de carac- 
teres, e djnz loop faz o microprocessa- 
dor voltar à sub-rotina prtoul, para co 
locar na tela os outros bytes do caracte' 
re. Este laço é repetido oito vezes, in- 
crementando H a cada volta, para co- 
locar na tela o próximo byte abaixo do 
anterior, e incrementando DE, para ob- 
ter o padrão dos oitos pontos a serem 
colocados na tela, do conjunto de carac- 
teres da ROM. Ao mesmo tempo, a ins- 
trução djnz (decrementa saltando se não 
for zero) decrementa o registro B. As- 
sim, quando o processo estiver na oita 
va repetição — e os oito bytes que com- 
põem o caractere tiverem sido coloca- 
dos na tela — , o caractere correspon- 
dente ao algarismo dos milhares estará 
no vídeo, o registro B conterá zero, a 
condição não-zero do comando djnz 
não será satisfeita e o microprocessador 
passará à próxima instrução, que é ret, 
■ retomando para onde foi chamada a 
I sub-rotina. 



O comando pop hl recupera os dois 
últimos bytes colocados na pilha. Se 
olharmos para trás, veremos que se tra- 
ta do resto que ficou em HL após o cál- 
culo do algarismo dos milhares, rei 
manda o microprocessador de volta à li- 
nha onde está stalno Id bc, - 100 e o 
processo se repete para calcular o alga- 
rismo das centenas. Quando este for co- 
locado na tela ao lado do algarismo dos 
milhares, o algarismo das dezenas — e, 
depois, o das unidades — é calculado da 
mesma maneira e colocado na tela na 
posição adequada. 

Depois disso, o microprocessador re- 
torna para onde a sub-rotina lineno foi 
chamada. O valor 23731 é colocado em 
posn, um endereço da tela um pouco à 
direita de onde foi colocado o número 
da linha. Obtém-se, assim, espaço sufi- 
ciente para quatro dígitos do número e 
um espaço em branco. 

O conteúdo das posições 23623 e 
23624 é colocado em HL; estas posições 
contêm o número da instrução BASIC 
que está sendo executada no momento. 
O valor máximo que o código de uma 
instrução BASIC pode assumir é 128; o 
byte mais significativo é, portanto, des- 
necessário e deve ser reduzido a zero pe- 
la instrução Id hl, 0. A sub-rotina que 
cuida da conversão do número para de- 
cimal, bem como de sua impressão na 
tela, é executada novamente, só que des 
ta vez é chamada por meio do rótulo 
slatno, já que- são necessários apenas 
três dígitos. 

Quando o código da instrução BA- 
SIC é novamente impresso na tela, o mi- 
croprocessador volta ao programa prin- 
cipal, onde executa uma pequena sub- 
rotina que coloca no vídeo os caracte- 
res invertidos. Como a rotina leva me- 
nos de 20 milésimos de segundo, não há 
a menor chance de percebermos que um 
caractere foi desenhado normalmente e 
depois invertido. 

Id hl, 23286 é o endereço da posição 
anteriorjao primeiro dígito na tabela de 
atributos, que fornece uma "moldura" 
ao número. O número 71 — que pro- 
duz fundo preto e caracteres brancos — 
é colocado nesta posição. O endereço da 
próxima posição é colocado em DE e 9, 
no par BC, que será usado como 
contador. 

A instrução de armazenamento em 
bloco Idir coloca o conteúdo da posição 
de memória dada por HL na posição da- 
da por DE, deçrementa B e verifica se 
o valor de B foi reduzido a zero. Se não 
foi, o processo é repetido. Em outras pa- 
lavras, a instrução copia os atributos 
fundo preto e caracteres brancos do pri- 
meiro caractere nos outros nove carac- 
teres adjacentes. 



PAUSA HO PROGRAMA 



As nove instruções seguintes permi- 
tem parar temporariamente o programa 
TRACE — e, também, o programa BA- 
SIC — a qualquer momento. A instru- 
ção in recebe informações vindas de 
uma das portas de entrada. No nosso ca- 
so, estamos interessados no teclado, que 
envia dados ao microprocessador pela 
porta 254. Queremos verificar se algu- 
ma tecla da porção inferior direita do te- 
clado — de B até BREAK/SPACE — 
foi pressionada. Assim, Id a,127 coloca 
127 dentro do acumulador para ser usa- 
do como parâmetro da instrução in. 
Juntos, os comandos Id a, 127 e in a, 254 
colocam o valor enviado pela porção ci- 
tada do teclado no acumulador. 

De B a BREAK/SPACE existem ape- 
nas cinco teclas, cada qual representa- 
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da por um bit dentro do 
do ao microprocessador. Sobram, por- 
tanto, três bits. Se executarmos a ope- 
ração lógica or entre o conteúdo do acu- 
mulador e 224, faremos com que os três 
bits mais significativos se tornem 1 — 
224 é 11100000 em binário. 

Quando uma tecla não está sendo pres- 
sionada, seu bit dentro do valor enviado 
é 1. Quando ela é pressionada, este valor 
muda para zero. Para provocar uma pau- 
sa no TRACE, deve-se pressionar duas te- 
clas simultaneamente: <SIMBOL 
SHIFT > e < BREAK/SPACE > Com a 
pausa, o teclado pode ser usado normal- a 
mente para editar linhas, mesmo que o 
programa esteja "ligado". 

Quando pressionamos <BREAK/ 
SPACE>, o bit zero do número envia- 
do passa de 1 para 0. <SIMBOL 
SHIFT > faz o mesmo ao bit um. Se não 
pressionarmos nenhuma das duas teclas 
e cada um dos três bits mais altos for 
transformado em um, o número envia- 



do pela porção do teclado em questão 
será 255, ou 11IIU1I. Mas, se pressionar- 
mos as duas teclas ao mesmo tempo, o 
número enviado será 252, ou 11111100. 

Assim, quando o número enviado pe- 
la porta 254 entra no acumulador, c 
comparado com 252 pela instrução cp 
252. Se o acumulador contiver 252, o si- 
nalizador zero será estabelecido. Então, 
jr z (salto relativo se zero) faz com que 
a rotina seja repetida. Enquanto as duas 
teclas permanecerem pressionadas, as 
repetições prosseguirão. Como o nosso 
programa interrompeu o programa prin- 
cipal, este também não prosseguirá en- 
quanto o microprocessador não termi- 
nar a execução da rotina. 

Se nenhuma tecla é pressionada, o 
processador passa ás instruções pop ix, 
pop hl, pop de, pop bc e pop af , que re- 
cuperam o conteúdo original dos regis- 
tros anteriores à interrupção. 

A instrução ei habilita a ocorrência 
de interrupções e ret faz o microproces- 
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sador voltar ao interpretador BASIC, 
que continuará a execução do progra- 
ma principal. 

A última instrução da listagem As- 
sembly, defw posn, não terá códigos 
correspondentes no programa-objeto 
que o Assembler vai criar. Esse tipo de 
instrução é usado pelo Assembler ape- 
nas para reservar dois bytes, onde serão 
colocados números utilizados pelo pro- 
grama. No nosso caso, o que fica arma- 
zenado ali é o valor de posn. 

A instrução defw (definir dois bytes) 
reserva um espaço para colocar dados, 
permitindo também que se dê um nome 
a ele — posn, por exemplo. Outra ins- 
trução semelhante é defb, que "define 
um byte". 



COMO ENCONTRAR OS ERROS 



Para usar o TRACE, carregue o pro- 
grama BASIC a ser corrigido. Em segui- 
da, reserve o topo da memória com 
CLEAR 65109 e carregue o TRACE. 

Antes de rodar o programa rastrea- 
dor, grave-o em fita. Se o seu Assembler 
estiver funcionando, faça-o pela via 
usual. Assim, você gravará o programa- 
fonte, das linhas REM, junto com o res- 
to do Assembler. Quando o programa 
rastreador estiver funcionando, é melhor 
gravá-lo em fita, já montado em lingua- 
gem de máquina. Para isso, digite: 
SAVE "TRACE" CODE 65110.176 
Para carregá-lo, digite primeiro CLEAR 
65109 e, em seguida: 



Se o Assembler não estiver funcio- 
nando, use a opção de gravação do seu 
monitor. Para ligar o TRACE, digite: 

RAN DOM USR 65110 

Nada acontecerá até que um progra- 
ma em BASIC seja executado, com 
RUN. Depois disso, aparecerão no ví- 
deo o número da linha e o código do co- 
mando que estiver sendo executado. 

O problema mais fácil de se detectar 
com o auxílio do programa rastreador 
é o "laço sem fim". Se você observar 
que os mesmos números de linha se re- 
petem mais e mais vezes, pode estar cer- 
to de que há algo errado em algum GO- 
TO. Por outro lado, se certas linhas 
nunca forem executadas, é provável que 
algum IF...THEN contenha condições 
erradas. Caso queira observar os even- 
tos mais detalhadamente, use a pausa. 

Para desligar o programa rastreador, 
digite: 

RAN DOM USR 65120 




Conhecendo mais a fundo os comandos 
gráficos de seu micro, você poderá 
fazer melhor uso dos recursos 
disponíveis. E mais: saberá contornar 
todas as suas limitações. 



Já reunimos muita informação a res- 
peito dos comandos gráficos. Ainda as- 
sim, é possível que não estejamos fazen- 
do o melhor uso deles. 

Os comandos de cor, por exemplo, 
são muito mais versáteis do que parecem 
à primeira vista e fazem muito mais do 
que simplesmente pintar blocos. Aqui 
estão algumas idéias e técnicas que tal- 
vez o ajudem a aprimorar seus gráficos. 



Os comandos PLOT e DRAW do 
Spectxum podem ser usados de várias 
maneiras, mas sabemos que nem sem- 
pre produzem o efeito desejado. Mui- 
tas vezes, isto se deve às limitações da 
tela de alta resolução gráfica, que não 
aceita cores diferentes em pontos adja- 
centes dentro de um mesmo quadrado 
na tela de texto. Mas há outros fatores 
que interferem nos resultados. O melhor 
a fazer é tentar aproveitar ao máximo 
o efeito obtido, seja ele qual for. 

Por exemplo, se o método de som- 
breamento utilizado apresenta um resul- 
tado pouco uniforme, elabore o progra- 
ma de modo que o efeito pareça propo- 
sital. E se algumas cores estão se sobre- 
pondo em certas áreas do trabalho, ou 
se você precisa de mais de duas cores 
num mesmo quadrado, projete o dese- 
nho de modo que qualquer mudança de 
cor aconteça num novo quadrado. 

Restarão ainda os problemas com as 
curvas mas, com um certo esforço, será 
possível diminuir seus efeitos. 

O importante é que, diante da impos- 
sibilidade de obter um determinado efei- 
to, você pelo menos esteja preparado 
para adaptar e usar todos os recursos 
disponíveis. Dai, sim, na medida em que 
aprendermos mais sobre a máquina, 
procuraremos desenvolver novos méto- 
dos de refinamento do desenho. 



COMO SOMBREAR A TELA 



Sabemos que o Spectrum dispõe de 
eficientes recursos para a elaboração de 
desenhos (veja artigos das páginas 113 
e 232, por exemplo). 

Mostraremos agora como sofisticar 
ainda mais os gráficos, explorando me- 



lhor os comandos de desenho e de cor 
que já conhecemos. E por que não au- 
mentar nosso repertório de figuras ou 
aprender a utilizá-las como base para 
outras? 

Este pequeno programa desenha pon- 
tos em posições aleatórias. Observe 
quanto tempo leva para preencher a te- 
la toda. 

10 LET X-INT <RND*256) 
20 LET y-INT (RND*176) 
30 PLOT x,y 
40 GOTO 10 

Como você viu, demora bastante, o 
que torna o método pouco aconselhá- 
vel para quem quer preencher comple- 
tamente uma grande área num gráfico. 
Entretanto, o programa é muito útil 
quando se pretende sombrear uma área 
— e isto ele faz com certa rapidez. 

Com o simples acréscimo de uma li- 
nha criamos um efeito ainda melhor. 



Adicione a seguinte linha a seu progra- 
ma e rode- o novamente: 



Logo se observa que o computador 
vai deixando um quadrado limpo de 
pontos — ou seja, vazio. A linha 25 ve- 
rifica se os valores de x e y estão entre 
35 e 90; o computador salta, em segui- 
da, para a linha 10, para gerar novos va- 
lores. Obtemos, então, uma área vazia 
entre 35 e 90, em ambas as direções; 
forma-sc, assim, um quadrado nessas 
coordenadas. 

Poderíamos utilizar essa técnica num 
jogo: por exemplo, depois de escrever 
algo num quadrado, o resto da tela se- 
ria preenchido gradualmente, enquanto 
as palavras continuariam visíveis. A 
mesma técnica também será útil para 
destacar uma mensagem na teia, como 
o título de um programa ou jogo. 
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ADAPTAÇÃO DOS 


■ 


MAIS SOBRE 0 




RECURSOS DISPONÍVEIS 




CIRCLE E 0 PAINT NO MSX 


■ 


USE MELHOR AS CORES 


■ 


PSET, PRESET E COLOR 


■ 


COMO SOMBREAR E COLORIR 




NO TRS-COLOR 




A TELA DO SPECTRUM 


■ 


0 FLASH NO APPLE 



As condições na linha 25 parecem ser 
complicadas. No artigo da página 34, vi- 
mos como usar AND e OR para incluir 
mais de uma condição num IF...THEN. 
O significado dessas funções coincide 
exatamente com a tradução dos dois ter- 
mos — ou seja, E e OU, respectivamen- 
te. Na linha 25, portanto, x tem que ser 
maior que 35 AND (E) menor que 90, 
AND y tem que ser menor que 90 AND 
maior que 35; só assim o computador 
executará o GOTO 10. 

Os parênteses entre as duas metades 
da linha separam as condições para x e 
y (que na verdade são as mesmas, mas 
devem ser separadas por um AND). No 
nosso exemplo, poderíamos retirar os 
parênteses, pois utilizamos somente 
AND. Caso usássemos tanto AND 
quanto OR, os parênteses seriam essen- 
ciais. Veremos o que o OR faz no exem- 
plo seguinte. Podemos mudar a área que 
pretendemos deixar intacta da maneira 




que quisermos — experimente, por 
exemplo, substituir o AND entre parên- 
teses por um OR. Em vez de quadrado 
vazio, obteremos uma cruz. 
Mude a linha 25 para: 

25 IF (X>110 AND X<145 AND Y>40 
AND Y<136) OR {X>40 AND X< 
215 AND Y>70 AND Y<100) THEN 
GOTO 10 

Você pode deixar qualquer área va- 
zia, mas não se esqueça de que, quanto 
mais complicada for esta área, mais con- 
dições terá o IF...THEN, e mais tempo 
o computador levará para verificá-las. 
Mesmo um triângulo — ou um círculo 
— requer muitas condições e, assim, o 
computador demorará para desenhar os 
pontos. Aconselhamos, no caso de som- 
breamento, restringir as áreas a linhas 
horizontais e verticais, pois elas levam 
menos tempo para serem verificadas e, 
portanto, aparecem logo na tela. 



Em artigos anteriores vimos como 
desenhar no Spectrum figuras bastante 
detalhadas. Os principiantes em progra- 
mação gráfica, porém, deparam-se com 
um problema: de um modo geral, essa 
máquina apresenta uma grande limita- 
ção quando se trata de desenhar uma fi- 
gura e sombreá-la com cor. Caso não 
saiba do que estamos falando, veja este 
exemplo: 

5 BORDEEI 7: PAPER 7: INK 4: 
CLS 

10 FOR X-l TO 10 

20 PR I NT * ■■■■■■■■■■ " 

30 NEXT X 

40 PLOT INK 2;0.175 

50 DRAW INK 2:120.-80 

60 INK 1: CIRCLE 100,95,50 

O programa preenche uma área em 
verde, usando blocos gráficos, depois tra- 
ça uma linha diagonal vermelha e um cír- 
culo azul — pelo menos, deveria ser as- 
sim. Na prática, porém, todos os quadra- 
dos por onde a linha passa mudam de 
cor. É claro que existem maneiras de se 
evitar que isso ocorra, mas a maioria de- 
las precisa de longos programas para que 
o Spectrum manipule as informações. 



Mais adiante, em outro artigo, vere- 
mos como fazê-lo. Por enquanto, fica- 
remos com uma alternativa simples: evi- 
tar as áreas problemáticas. Foi o que fi- 
zemos nos programas de gráficos anle- 
riores, como o do campo de golfe, apre- 
sentado na página 233. Nesse caso, es- 
colhemos primeiro a cor da tela e, de- 
pois, desenhamos as linhas, observando 
que nenhuma delas passasse sobre áreas 
já ocupadas por caracteres gráficos. 

Para que você entenda melhor e, ao 
mesmo tempo, experimente um traba- 
lho com arcos, digite o programa a se- 
guir. Ele desenha um carro colorido. 

80 BORDER 2: PAPER 6: INK 0: 

90 FOR n-8 TO 15 
100 CIRCLE 80.47.n: CIRCLE 180 
,47, n 

110 NEXT n 

120 PLOT 62,51: DRAW 38,-5, -PI 

130 DRAW 60,0: DRAW 40.0, -PI 

200 FOR n-1 TO 10: READ a,b,c': 

DRAW a.b.c- NEXT n 

210 PLOT 112,48: DRAW 45,0: 

DRAW 22. 20, -PI/2 

220 DRAW 7.15: DRAW -35,23: 

DRAW -40,0: DRAW 0,-58 

230 PLOT 115.104: DRAW 34,0: 

DRAW 30,-19 

240 DRAW -64, -5. -.25: DRAW 0. 
24 

250 PLOT 40.83: DRAW 52,5.-3: 
DRAW 6,20,-3 

260 PLOT 30,55: DRAW -5.1: 

DRAW 0.5: DRAW 5,1 

270 PLOT 240,56: DRAW 5.1: 

DRAW 0,5: DRAW -5,1 

280 PLOT 36.75: DRAW INK 2; 

184.0 

290 PRINT OVER 1; INK 2;AT 13 
,4;"B";AT 13.28;-E" 
300 FOR n-31 TO 0 STEP -1: 
PLOT O.n: DRAW INK 4:255,0: 
NEXT n 

500 DATA 40. B, .2, 0,10.0, -30. 15 
. .2.-20,5, .2 

510 DATA -40,25,0,-60.-2,-1. 
-50,-25,-2 

520 DATA -10, -20, -.25,0, -8.0. 
31,-3,-2 



As linhas 90 a 1 10 desenham uma sé- 
rie de círculos, cada um maior que o an- 
terior, formando as rodas do carro. O 
Spectrum não consegue traçar círculos . 
perfeitos numa área quadrada. Em con- 1 
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sequência das diferenças de curvatura, 
alguns pontos se perdem, ou melhor, 
não são incluídos em curva alguma. Co- 
mo esses pontos não são desenhados, o 
pneu do carro adquire uma aparência 
pontilhada. Poderíamos encarar tal efei- 
to como um problema, mas não há ra- 
zão para isso, já que, na verdade, a ro- 
da ganhou um visual ainda mais realís- 
tico. Como afirmamos, para se desenhar 
bem é necessário fazer bom uso das ca- 
racterísticas da máquina, e não se atra- 
palhar com elas. 

A línha 120 desenha um ponto na 
coordenada 62,51, que é a posição ini- 
cial das linhas que formam o carro. 
Usando o laço FOR...NEXT na linha 
200, e as linhas 120 e 130, o Spectrum 
lê (READ) as informações necessárias 
para desenhar (DRAW) o contorno do 
carro. Os dados (DATA) para o laço 
FOR...NEXT estão nas linhas 500 a 
520. Note que todas as curvas estão na 
forma x, y, z, que é o comando para de- 
senhar uma linha curva, ou seja, um ar- 
co, cuja curvatura é especificada por z. 

Os primeiros dois números são os 
mesmos de sempre: definem o quanto 
acima e o quanto à direita do último 
ponto queremos o próximo ponto. O 
terceiro número especifica o ângulo da 
curva. O comando que desenha o capô 
curvo do carro é DRAW 38,-5-PI. 
Tente mudar o último número (PI é 
mais ou menos 3,14) e veja a diferença 
de curvatura do capô. 

Os detalhes internos ao contorno 
constituem seções do programa: a por- 
ta e seu vidro estão nas linhas 210 a 240; 
o vidro traseiro, na linha 250; os pára- 
choques, nas linhas 260 a 270 e a lista 
na linha 280. As linhas 290 e 300 sim- 
plesmente dão um toque colorido ao de- 
senho: a linha 290 coloca as lanternas 
(vermelhas) e a linha 300 faz a grama 
sob o carro. 

Posicionando cuidadosamente o car- 
ro e a grama, evitaremos o problema de 
ter duas cores num mesmo quadrado. 
Observe, no programa acima, a grama 
sob o carro. Este foi posicionado com 
suas rodas chegando até o fundo de um 
quadrado, de modo que o ponto seguin- 
te (onde começa a grama) fica em ou- 
tro quadrado, não interferindo, assim, 
na cor dos pneus. 

Como se vê, é necessário planejar em 
detalhes a posição de cada elemento. 
Mas nem sempre isso é possível: no nos- 
so caso, por exemplo, a listra vermelha 
altera a cor de algumas partes do carro. 
O importante, porém, é evitar alterações 
de cor nos lugares onde elas apareceriam 
muito. 

Para praticar com o DRAW, acon- 
selhamos que tente mudar algumas par- 



tes do carro; somente assim será possí- 
vel saber exatamente o que cada linha 
faz e, ao mesmo tempo, familiarizar-se 
com o comando. O. ideal seria podermos 
imaginar a figura acabada sem precisar 
desenhá-la desde o começo. 



O FLASH, um comando de utiliza- 
ção muito simples, é ideal para destacar 
mensagens na tela, principalmente em 
jogos. Ele não usa parâmetro nenhum 
e, em geral, vem antes do comando 
PRINT. Não se esqueça, porém, de que 
o FLASH é um comando separado do 
PRINT: por essa razão, deve vir numa 
outra linha ou separado por dois pon- 
tos. Exemplo: 

FLASH : PRINT" PISCA- PISCA ■ 

Quando o computador encontra o 
comando FLASH em uma linha de pro- 
grama, ele faz "piscar" tudo o que for 
mandado para a tela a partir daquela li- 
nha, ou seja, o conteúdo de todos os 
PRINT que vierem depois de FLASH. 
O FLASH mostra alternadamente o in- 
verso e o normal dos caracteres exibidos 
na tela. 

Digite e rode o seguinte programa: 

10 HOME : VTAB 10 
20 FLASH 

30 PRINT "ISTO ESTA PISCANDO* 
40 FOR T - 0 TO 2000: NEXT 
50 HOME : UTAB 10 
60 PRINT ' ISTO TAMBÉM " 
70 FOR T - 0 TO 2000: NEXT 
80 GOTO 10 

Tecle <CTRL-C>para parar e liste 
o programa. Tudo continua piscando, 
pois o FLASH ainda está ativado. Para 
desativá-lo, digite NORMAL e aperte 
a tecla < RETURN > . Liste novamente. 

O comando NORMAL desativa o 
FLASH e pode ser usado tanto dentro 
de programas como fora deles ou, em 
outras palavras, tanto no modo direto 
como no indireto. Substitua as linhas 
60, 70 e 80 e adicione a linha 90. As mo- 
dificações são as seguintes: 

60 NORMAL 

70 PRINT "ISTO NAO ESTA" 

BO FOR T - 0 TO 2000: NEXT 

90 GOTO 10 

Se apertarmos <CTRL-C> no "IS- 
TO NÀO ESTÁ" e depois listarmos o 
programa, veremos que a listagem não 
pisca, pois interrompemos o programa 
quando este estava em modo NOR- 
MAL. Mas, se apertarmos <CTRL-C> 
no "ISTO ESTÁ PISCANDO", a lis- 




tagem também piscará, pois interrom- 
pemos o programa no modo FLASH, 
ou melhor, com o FLASH ativado. 

O comando INVERSE mostra os ca- 
racteres em modo inverso, ou seja, le- 
tras pretas num fundo branco. 

O programa que se segue faz a apre- 
sentação dos três comandos em seus res- 
pectivos modos. 

10 HOME : VTAB 10 

20 FLASH 

30 PRINT : PRINT ■ FLASH " 

40 GOSUB 110 

50 INVERSE 

60 PRINT : PRINT * INVERSE " 

70 GOSUB 110 

BO NORMAL 

90 PRINT : PRINT " NORMAL" 

100 END 

110 FOR T - 0 TO 2000: NEXT 

120 RETURN 



O programa que apresentamos a se- 
guir emprega gráficos já vistos e pode- 
ria ser usado para ensinar inglês a 
crianças. 

O programa desenha figuras para as 
três primeiras letras do alfabeto. Para 
a letra A, desenha uma "apple" (maçã); 
para a letra B, uma "bali" (bola) e, pa- 
ra a C, um "cat" (gato). A ampliação 
do programa, ou seja, o desenho de fi- 
guras para as outras letras, ficará a car- 
go de cada um. A figura relacionada ã 
letra D poderia ser, por exemplo, um 
"dog" (cão) e estaria situada a partir da 
linha 4000. Para dizer ao computador 
aonde ir caso a letra escolhida seja a D, 
basta acrescentar uma vírgula e 4000, 
depois do 3000 na linha 60. A figura da 
letra E poderia ser colocada a partir da 
linha 5000 e assim por diante. 

Se quiser aperfeiçoar o programa, es- 
creva também o nome da figura e a le- 
tra escolhida, como mostram as ilustra- 
ções da bola e do gato. Para isso, utili- 
ze a sub-rotina que desenha letras em te- 
la de alta resolução, já apresentada mais 
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de uma vez em INPUT (por exemplo, 
no artigo da página 354). Deixamos a 
adaptação desta sub-rotina como um de- 
safio a programadores mais experientes. 

5 S CRÊEM 0:COLOB 1,15.15 

10 PI-4*ATN(1) :CLS:LOCATE 9.10 

20 PRINT"ME DE UMA LETRA -> ?" 

30 AS-INKEY3:IFAS<"A"ORAS>"Z"TH 

EN30 

40 LOCATE 28,10:PRINTAS 

50 FORT-)T0500:NEXT 

60 A-ASC(A3)-64:ON A GOTO 1000, 

2000,3000 

70 GOTO 30 

1000 SCREEN2:C0L0R15.11.12:CLS 

1010 CIRCLEI128.96) .40,6, , ,1 

1020 PAINT(128,96) ,6 

1030 FOR Z-l TO 50 STEP .3 

1040 PSET((100+Z*.5)+RND(1)*25. 

80+RND[1)"40) .15 

1050 NEXT 

1060 CIRCLE(90. 70) . 40 . 1 2 . 0 , PI/2 
,1 

1070 CIRCLE(112.50) .10,12. , , .5 
1080 CIRCLEÍ140.55) ,10.12. . , .5 
1090 PAINTU12.50) .12 
1100 PAINT(140,55) ,12 
1110 GOTO 3280 

2000 SCREEN2: COLORI 5,1, 9 :CLS 
2010 C1-INT(RND(1)*14)+1 
2020 C2-INT(RNDU)*14)+1 
2030 CIRCLE(128,96) .10, Cl. , . .7 
2040 CIRCLE(128,96) .50. Cl. . , .7 
2050 PAINT(140,90) .Cl 
2060 CIRCLE(12B,96) .30.C2. . , .7 
2070 CIRCLE(128,96) .10.C2. , . .7 



2080 PAINT<140,90) ,C2 

2090 GOTO 3260 

3000 SCREEN2:COLOR1.3,4:CLS 

3010 REM COR PO /CABEÇA/O LHOS 

3020 CIRCLEU28, 106) ,40,1. . .1.5 

3030 CIRCLEU2B, 46) ,20,1. . .1.15 

3040 CIRCLEU21.40) ,5.1, . . .5 

3050 CIRCLE(135,40) ,5.1. . , .5 

3060 PAINTU28.46) ,1 

3070 PAINT(128,106) ,1 

3080 REM ORELHAS 

3090 X1-108:X2-113:X3-103 

3100 LINE (XI, 15) -(X2, 28) ,9 

3110 LINE (Xl+40,15) -(X2+40.28) . 



3180 PAINTU05, 28) , 9 : PAINT (150 , 
28) ,9 

3190 REM CAUDA 

3200 CinCLE(75,106) , 35 , 1 , 1 . 2*PI 
,1.8*PI,1 

3210 CIRCLE(75,106) ,33,15.1.2*P 
I,1.8*PI ,1 

3220 CIRCLE(128.50) ,1.15, , ,1 
3230 REM BIGODE 
3240 LINEU28,52)-(150,55) .15 
3250 LINE(128,52)-(150,53) .15 
3260 LINE(12B,52)-(106,55) ,15 
3270 LINE[128.52)-(106,53) .15 
3280 FORT-0 TO 2000 : NEXTrGOTO 5 



Logo no inicio, o programa pede por 
uma letra. A linha 60 é responsável pe- 
lo cálculo do valor da leira, que será 
guardado na variável A, e também pela 
escolha da sub-rotina relacionada à le- 
tra escolhida. No nosso programa, se a 
letra escolhida foi A, B ou C o progra- 
ma saltará para a linha 1000, 2000 e 
3000, respectivamente. Na linha 60, nào 
há opção para as letras maiores que C; 
para estas letras, o programa volta pa- 
ra a linha 30. 

A sub-rotina que desenha a maçã co- 
meça na linha 1000. As linhas 1030 a 
1050 desenham pontos brancos em po- 
sições aleatórias, para dar um visual 
mais realista ao desenho. A linha 1060 
desenha um arco que vai de 0 a PI/2 
graus, representando o pequeno caule. 

A bola começa na linha 2000; Cl e 
C2 são cores aleatórias de números 1 a 
1 5. Suponhamos que a bola esteja divi- 
dida em duas: a bola maior, que será 
pintada na cor Cl, e a bola menor (den- 
tro da maior), que receberá a cor C2. 
Pintamos a bola maior primeiro porque, 
no MSX, a cor com que colorimos a fi- 
gura deve ser a mesma do seu contor- 
no. Seria impossível, por exemplo, fa- 
zer em branco o círculo que divide as 
duas bolas e, depois, pintar a maior de 
azul e a menor de verde. Nenhuma cor 
utilizada para colorir aceitará outra cor 
como delimitação de contorno. Nossa 
saida foi desenhar na cor Cl a bola 
maior e pintá-la nessa cor, antes de de- 
senhar e, também, pintar na cor Cl a 
bola menor. Observe que foi preciso re- 
desenhar o círculo menor na cor C2 (li- 
nha 2070) para que a bola menor o acei- 
tasse como parte dela. Omita a linha 
2070 para ver o que acontece. 

A sub-rotina que desenha o gato co- 
meça na linha 3000. As linhas 3110, 
3 1 30, 3 1 50 e 3 1 70 desenham a orelha es- 
querda, que está 40 pontos à direita da 
outra — por isso somamos 40 às mes- 
mas coordenadas x da outra orelha. As 
linhas que desenham a cauda — 3200 e 
3210 — seguem o mesmo princípio do 
desenho do caule, na linha 1060. A li- 
nha 3220 desenha o nariz. 



Já vimos como usar o PSET no de- 
senho de círculos e curvas seno e cosse- 
no. Vamos agora explorar um pouco 
mais seu funcionamento e o de seus re- 
lacionados PRESET, PCLS e COLOR. 



Podemos dizer que o PSET "acen- 
e", na cor escolhida, a menor unida- 




de gráfica em qualquer PMODE. 

No PMODE 4, somente um ponto é 
aceso; nos PMODE 2 e 3, acendem-se 
dois pontos ao mesmo tempo, e nos 
PMODE 0 e 1, quatro. Não confunda 
o PSET empregado dessa maneira com 
o PSET usado anteriormente no coman- 
do LINE (veja o artigo da página 113). 

Rode este programa: 

10 PMODE 0.1 

20 PCLS 

30 SCBEEN 1,1 

40 FOR X-0 TO 255 

50 Z-(X-127)/10 

60 Y-95-150*Z/<l+Z*Z) 

70 IF Y<0 OH Y>191 THEN 90 

80 PSET [X.Y.5) 

90 NEXT 

100 GOTO 100 

O programa desenha um gráfico no 
modo de duas cores, mas poderia tam- 
bém desenhá-lo em PMODE 4 ou PMO- 
DE 2. Este é o gráfico de uma função 
matemática obscura e foi escolhido por- 
que produz um traço interessante. 

Ao usar PSET devemos dizer à má- 
quina onde queremos acender o pon- 
to (ou conjunto de pontos) e em que 
cor. As cores disponíveis dependem do 
PMODE utilizado ou do conjunto de 
cores escolhido. 

A cor da tela será a que tiver menor 
número, entre as cores disponíveis no 
conjunto escolhido, a não ser que quei- 
ramos mudá-la. 

Como veremos mais tarde, quando 
usarmos PSET no modo de duas cores 
precisaremos especificar a cor de maior 
número; caso contrário, não veremos 
nada. No modo de quatro cores, a si- 
tuação é diferente, já que podemos es- 
colher qualquer uma das três cores de 
maior número. 

Retornando ao programa: o conjun- 
to de cores preto e amarelo foi escolhi- 
do na linha 30. As linhas 40, 50 e 60 cal- 
culam valores para x e y e a linha 80 

acende o ponto na coordenada x, y. O 

■M último argumento é a cor que o ponto 



MODO DE QUATRO CORES 



Tente mudar a linha 10 para: 

10 PM0DE1 , 1 

Agora, rode o programa novamente. 
Não se preocupe se nada acontecer — é 
isto o que se espera. Na verdade, estamos 
acendendo pontos em amarelo num fun- 
do também amarelo. Temos que mudar 
o último argumento do PSET, na linha 
80, para selecionar uma cor diferente. 
Neste conjunto de cores, podemos esco- 
lher entre ciano (6), magenta (7) e laran- 
ja (8). Tente mudar o argumento 5, na li- 
nha 80, para 6, 7 ou 8. Se quiser, mude 
o conjunto de cores na linha 30 para: 

30 SCREEN1.0 

Agora, podemos usar cores de núme- 
ros 1 a 4, embora 1 acenda o ponto na 
mesma cor do fundo. 

Só como curiosidade: se escolher- 
mos o conjunto de cores 0 e usarmos 5, 



6, 7 ou 8 como ultimo argumento do 
PSET, a máquina não enviará mensa- 
gem de erro, pois automaticamente sub- 
trai 4 dos números. 



0 COMANDO PRESET 



O PRESET é o inverso do PSET, ou 
seja, ele "apaga" o ponto especificado 
nos argumentos enlre parênteses. Pode- 
se também imaginar o PRESET como 
acendendo um ponto, ou conjunto de 
pontos, na mesma cor do fundo. 

Para observar o funcionamento do 
PRESET, rode o programa novamente 
e, então, mude a linha 80 para: 

80 PRESET(X.Y) 

Mas preste atenção: não use o co- 
mando RUN para rodar o programa 
com a linha alterada, pois se o fizer a 
tela será limpa. 

Para verificar como o PRESET apa- 
ga ponto por ponto, digite GOTO 30 e, 
em seguida, tecle < RETURN > . 




mu 




É possível mudar a cor da tela para 
qualquer uma das cores do conjunto es- 
colhido. Para isso, basta acrescentar o 
número da cor junto ao PCLS, na linha 
20. 

Supondo que a linha 30 seja 
SCREENl.l, tente as seguintes mudan- 
ças na linha 20: PCLS6, PCLS7 e 
PCLS8. PCLS5 tem o mesmo efeito de 
PCLS, pois ambos limpam a tela na cor 
amarela. Terminadas as mudanças, fa- 
ça a linha 20 PCLS novamente. 



FUNDO E PRIMEIRO PLANO 



Como vimos no artigo da página 113, 
o comando LINE usa PSET e PRESET 
de uma maneira diferente da que aca- 
bamos de ver. Quando empregado com 
o comando LINE, o PSET diz ao com- 
putador para desenhar na cor do primei- 
ro plano e o PRESET diz que o dese- 



nho deve ser feito na cor do fundo. 

Quando ligamos o TRS-Color, a cor 
do primeiro plano é a de maior número 
do conjunto de cores (veja seu manual 
para os números das cores) e a cor de 
fundo é a de menor número. 

Mas suponha que estamos num mo- 
do de quatro cores e queremos traçar 
uma linha em uma das outras cores do 
conjunto. Não leremos problema, pois 
existe um comando em BASIC que nos 
permite escolher as cores do fundo e do 
primeiro plano. 

Digite este programa para ver como 
funciona o comando COLOR: 
10 FMODE 3,1 
20 PCLS 
30 SCREEN 1,0 
40 FOR K-l TO 4 
50 FOR J-l TO 4 
60 COLOR K. J 

70 LINE(0,50*K+10*J-S5)-{255,50 

*K+10*J-55) , PSET 

80 LINE (0.50*K-*10*J-52)-(255,5 

0*K+10*J-52) , PRESET 

90 KEXT J.K 

100 GOTO 100 




O programa desenha pares de linhas 
paralelas, uma na cor de fundo e outra na 
cor de plano. Não se pode ver todas as li- 
nhas, pois o fundo ou o plano ajustados 
em verde coincidem com a cor da tela. 

O comando COLOR na linha 60 pro- 
duz a variação das cores. Observe que 
os comandos LINE não são alterados 
durante o programa, exceto nas coorde- 
nadas finais. 

O primeiro número depois do coman- 
do COLOR é a cor do plano e o segun- 
do, a cor do fundo. Nada impede que 
a cor do fundo seja a mesma do plano, 
embora não haja muita utilidade nisso. 

Se usarmos* somente PCLS no pro- 
grama, as cores de fundo e tela serão 
iguais, mas, se especificarmos um núme- 
ro junto ao PCLS, as cores podem ser 
diferentes. Da mesma maneira, a cor do 
plano nem sempre é a mesma cor com 
que desenhamos. O único comando grá- 
fico que faz uso das cores de plano e 
fundo é o LINE e, como vimos, ainda 
assim podemos desenhar tanto na cor de 
fundo como na de plano. 
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PRÓPRIA 




Agora que você já viu como programar 
uma aventura, é hora de partir para 
criações originais. Eis como usar 
o jogo de INPUT como base para 
elaborar o seu proprío programa. 



A esta altura, você deve ler um jogo 
completo de aventura gravado em fita. 
Durante seu desenvolvimento, vimos co- 
mo reunir no programa os elementos 
que o compõem. Agora, você aprende- 
rá a utilizar o jogo já pronto como base 
para elaborar suas próprias aventuras. 

Algumas dicas de como proceder pa- 
ra fazer seu jogo foram dadas ao longo 
dos últimos artigos. Todos os detalhes 
serão tratados aqui em maior profundi- 
dade. 

Nem sempre poderemos ser muito es- 
pecíficos sobre as alterações necessárias, 
uma vez que elas dependerão muito das 
características da sua aventura; mas você 
poderá fazê-las com facilidade, se seguir 
as instruções. Algumas técnicas parecerão 
confusas no início, mas, começando com 
uma aventura simples e curta, você logo 
se sentirá à vontade para programar jo- 
gos mais complexos. Não tente fazer mui- 
tas alterações de uma só vez; vá devagar, 
estudando as seçòes deste artigo e fazen- 
do as alterações uma a uma. 

Comandos BASIC que não foram 
bem compreendidos podem se tornar 
mais claros com uma consulta à seção 
de programação BASIC correspon- 
dente — um grande número de coman- 
dos já foi abordado por essa seção de 
INPUT. 



Os usuários do TK-2000 e do Spec- 
trum de 16k não poderão estender mui- 
to sua aventura, o que não significa que 
não possam aumentá-la um pouco ou 
acrescentar outros locais. Sempre é pos- 
sível, por exemplo, trocar alguma carac- 
terística da aventura por um novo local; 
tudo dependerá do que se considerar 
mais importante. 



A ESCOLHA DO TEMA 



Antes de escrever sua aventura, será 
preciso escolher uma trama ou história. 

A estrutura de uma aventura bem- 
sucedida em geral não foge a certos pa- 
drões — há começo, meio e fim, orde- 
nados conforme a sequência em que os 
problemas devem ser resolvidos. Mas 
não é necessário ser Agatha Christie pa- 
ra programar aventuras. Existem mui- 
tas fontes de ideias, como você já deve 
ter percebido; em todo caso, aqui vão 
algumas sugestões. 

Podemos basear nossa aventura em 
um assassinato. O jogo começaria, por 
exemplo, numa sala, onde um corpo es- 
faqueado jaz sem vida sobre o tapete en- 
sanguentado. O objetivo do aventureiro 
seria descobrir o assassino. Substituiría- 
mos, então, o fiscal da Receita por um 
tipo mal-encarado — ou pelo mordomo. 



Ele poderia ajudar ou atrapalhar o jo- 
gador com pistas verdadeiras ou falsas. 

Se você quiser manter o tema da "ca- 
ça ao tesouro", encontrará várias ma- 
neiras de utilizá-lo. Recorra, por 
exemplo, ao cliché tradicional, com pi- 
ratas e tudo, ou transforme o jogador 
em sobrevivente de um desastre aéreo 
que vitimou todos os membros de uma 
expedição. Mandar o jogador rumo ao 
futuro, por outro lado, pode ser uma 
boa idéia. Procurando novos mundos, 
ele acaba preso em um planeta hostil, 
anos-luz distante da civilização, por cau- 
sa de um defeito em sua nave espacial. 
O jogador teria como objetivo achar um 
jeito de voltar à Terra. Os locais pode- 
riam ser cheios de perigo e haveria bas- 
tante espaço para incluir — ou ocultar 
— diversas rotas de fuga. 

Esta idéia de fuga sugere outros te- 
mas de aventuras, em que o objetivo do 
jogador seria, por exemplo, escapar de 
lugares como Alcatraz, San Quentin ou 
o Presídio da Ilha Grande. Use livros e 
jornais como fontes de inspiração. Tal- 
vez você até encontre um mapa do lu- 
gar real para fazer o mapa da aventura! V 

Casos de espionagem também /fs \ 
podem dar aventuras interessan- í/f, ' 
tes, assim como fatos históricos. J'L 
As cruzadas, por exemplo, podem 
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LISTA DAS VARIÁVEIS 



se revelar um cenário muito interessan- 
te, assim como qualquer outra guerra ou 
batalha. 

E, como sugestão final, um tema da 
moda: o aventureiro sobrevive ao holo- 
causto nuclear. Os elementos para o jo- 
go são quase infinitos: mutantes, bus- 
ca de proteção contra a radiatividade. 
ameaça de gangues de bandidos famin 
tos, procura de água e comida não con- 
taminadas e assim por diante. 



A avent urade INPUT é bem pequena; 
as suas logo serão bem maiores que ela. 

Se seguirmos as instruções das pági- 
nas 226 a 23 1 , teremos um mapa que po- 
derá ser introduzido no computador. O 
mapa da nossa aventura tem 24 locais 
(6x4) e apenas 12 deles são utilizados. 
Podemos aproveitar o programa origi- 
nal — o que dá menos trabalho, mas 
exige mais habitidade — ou escrever um 
novo — o que envolve mais esforço, 
porém menos confusão. Se você 
escolher a primeira alternativa, 
deverá carregar o programa ori- 
ginal da fita ou listá-io através 
da impressora. As modifica- 
ções dependerão do ta ma- 
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nho do novo mapa. Se ele for menor ou 
igual ao antigo, conserve a numeração 
original. Caso contrário, será preciso fa- 
zer um novo desenho, numerando-o se- 
gundo os mesmos princípios. 

■■■■'//< 4 l 

Pronto o mapa, você deverá fazer no- 
vas descrições dos locais. Elas vão subs- 
tituir as antigas, que ficavam a partir da 
linha 5000, no programa. 

Após cada descrição, informe as pos- 
síveis saídas do local, usando as variá- 
veis N, S, E e W, que correspondem a 
norte, sul, leste e oeste. Elas podem con- 
ter os valores 1 e 0. 0 significa que não 
há saída naquela direção, enquanto 1 
quer dizer o contrário. O esforço de di- 
gitar linhas REM indicando os locais po- 
de valer a pena. 

Em seguida, modifique as linhas 330 
a 350 que contêm ON...GOSUB. O pri- 
meiro número que se segue ao GOSUB, 
na linha 330, se refere à linha onde o 
computador vai encontrar a descrição 
do local 1 . Se não houver local 1 na sua 
aventura (não é preciso incluir todas as 
posições do mapa), 0 é usado. O próxi- 
mo número se refere à descrição do lo- 
cal 2, e assim por diante. Cada posição 
do mapa deve ter seu núrnero. 



MOVIMENTO 



Se o tamanho do mapa for diferente 
do original, você precisará alterar as li- 
nhas 1000 a 1040 da rotina de movimen- 
to. Mais especificamente, as tinhas que 
se referem às direções norte e sul — 1010 
e 1030 — devem ser modificadas se o 
mapa não tiver seis posições de largu- 
ra. Isto porque, para seguir nestas dire- 
ções, subtraímos ou adicionamos 6 ao 
número do local. A nova largura do ma- 
pa deve substituir o 6. 



0BJET0S 



ro. No entanto, se o número de objetos 
for muito grande, pode-se optar por co- 
locar mais de um por linha. Em todo ca- 
so, a ordem deve ser precisa, pois cada 
grupo de três dados contém elementos 
de três diferentes matrizes. A ordem é: 
número do local onde se encontra o ob- 
jeto, descrição curta e descrição longa. 
Se o objeto só aparece mais tarde na 
aventura — após ser encontrado, por 
exemplo, como o olho — ou se surge ao 
acaso, como o fiscal da Receita, o nú- 
mero do local deve ser zero. 



NOVAS PALAVRAS 



Grandes modificações deverão ser 
feitas nas linhas 160 a 260, pois os ob- 
jetos certamente serão diferentes. 

O número de objetos da nova aven- 
tura dá o valor da variável NB; deve ser 
o primeiro elemento na linha DATA 
200. Ele terá a função de dimensio- 
nar as matrizes na linha 1 80 e de 
determinar ,o tamanho de laços 
FOR...NEXT em vários pon- 
tos do programa. 

Se usarmos uma linha 
DATA para cada objeto, o 
programa ficará mais cla- 



É preciso preparar uma lista de todas 
as palavras permitidas ao jogador. Ela 
deve incluir comandos simples, como 
"AJUDAR" e "LISTAR", bem como 
comandos com duas palavras, tais co- 
mo "PEGAR LÂMPADA" e "MA- 
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TAR SENHORIO". 

Os comandos de duas palavras divi- 
denvse em V$ e N$ — verbo e substanti- 
vo, respectivamente — , embora nem 
sempre de acordo com a definição gra- 
matical. Vamos considerar todos os co- 
mandos simples e todas as primeiras 
palavras dos comandos compostos como 
sendo verbos. Eles devem ser agrupados 
de acordo com seu significado — "MAS- 
TIGAR" e "COMER", ou "CHEI- 
RAR" e "FAREJAR", por exemplo, 
ficarão juntos. Cada um desses grupos 
terá um número — anote-os, pois será 
difícil decorar a que grupo de palavras 
correspondem. 

Agora vamos alterar o programa. A 
rotina que trata dos verbos vai da linha 
110 a 150. Os verbos devem ser coloca- 
dos — cada qual seguido de seu núme- 
ro — nas linhas DATA 140 e 150. 

Não se esqueça de redimensionar as 
matrizes, na linha 130, de acordo com 
o número total de verbos utilizados. 



ROTINAS QUE ENTENDEM OS VERBOS 



Cada categoria — ou número — de 
verbo vai precisar de uma rotina dife- 
rente. 

É difícil dar instruções específicas a 
respeito dessas rotinas, porque um ver- 
bo usado em uma aventura pode não 
servir para nada em outra. 

Contudo, algumas rotinas — como 
"PEGAR" e "LARGAR" — podem 
ser úteis em qualquer aventura. Você 
não precisará modificá-las, a menos que 
o roteiro de seu jogo seja muito inova- 
dor. Da mesma forma, não será neces- 
sário alterar a rotina "LISTAR", nas 
linhas 1070 a 1130, caso os nomes das 
matrizes e a variável NB (número de ob- 
jetos) permaneçam os mesmos. 

Uma rotina que sempre permite adap- 
tações é a da lâmpada, já que situações 
que envolvem acendê-la são muito co- 
muns em aventuras. 

As rotinas restantes, de um modo^e- 
ral, não podem ser aproveitadas. Você 
precisará, assim, escrever novas rotinas. 
Ao fazê-lo, lembre-se de que uma das 
finalidades é verificar se o jogador es- 
colheu corretamente o objeto e o local 
para executar aquilo que o verbo indi- 
ca. Se o local não é adequado, o pro- 
grama deve orientá-lo com mensagens 
do tipo "AQUI NÃO". Seja qual for 
o resultado da ordem dada, o jogador 
precisa ser informado — isto é, qualquer 
palavra que entre no computador deve 
provocar uma mensagem. 

Depois de planejar as rotinas de exe- 
cução das ordens verbais, coloque-as no 
programa. Se seu programa tem uma 



numeração parecida com a da aventura 
de INPUT, o lugar dessas rotinas é en- 
tre as linhas 1070 e 2999. 

O computador selecionará a rotina 
correspondente ao verbo usado pelo jo- 
gador. A linha 510 é a responsável por 
isso, e deverá ser modificada. Para tan- 
to, consulte os números de sua lista de 
verbos. Coloque, então, na frente do 
ON...GOTO, o endereço inicial das ro- 
tinas, na mesma ordem numérica da lis- 
ta dos verbos correspondentes. 



ROTINA DE AUXÍLIO 



A última rotina a ser modificada é a 
que trata de "AJUDAR" o jogador. 
Verifique onde esse auxilio é necessário 
e use IF...THEN para dar uma mãozi- 
nha ao aventureiro. 

Outras características da aventura 
original devem ser modificadas ou eli- 
minadas, conforme as exigências do no- 
vo jogo. É o caso, por exemplo, da 
rotina que faz o coletor de impostos 
aparecer. Há também a alternativa de 
começar o jogo em uma posição diferen- 
te; para isso, basta alterar a linha 280. 



LISTA DE VARIÁVEIS 



Para que você entenda melhor o fun- 
cionamento do programa original, fize- 
mos uma lista das variáveis e matrizes 
por ele utilizadas. 

R$0 matriz contendo os verbos e 

respostas do jogador. 
RO matriz de números de verbos. 

Elementos correspondentes das duas ma- 
trizes acima referem-se ao mesmo verbo. 

OB() matriz com o número do local 
onde se encontra o objeto. 

OB$() matriz com a descrição curta do 
objeto. 

SI$0 matriz com a descrição longa 
do objeto. 

Elementos correspondentes das três ma- 
trizes acima referem-se ao mesmo objeto. 

NB número de objetos da aventu- 
ra, usado para dimensionar 
matrizes e tamanhos de laços 
FOR...NEXT. 

L local onde o jogador se encon- 
tra no momento. 

LA sinalizador do estado da lâmpa- 
da; contém 1, se a lâmpada es- 
tá acesa, e 0, se está apagada. 

TA sinalizador do coletor de im- 
postos. 



N,S,E,W saldas de um local; contém 1, 
se há saída naquela direção, e 0, 
se não há. 

1$ entrada ou resposta completa 
do jogador, antes de ser dividi- 
da em verbo e substantivo. 

VS verbo em 1$. 

N$ substantivo em 1$. 

I contém um número correspon- 

dente a um verbo; usado para 
s elecionar a rotina de execução 
adequada. 

IN número de objetos que estão 
sendo carregados pelo jogador. 

A$ resposta à pergunta "Quer jo- 
gar novamente?" 

G contém o número do objeto 
deixado de lado pelo jogador 
— que é o elemento G na ma- 
triz OB. 




O funcionamento do programa do 
Spectrum é um pouco diferente, devido 
à ausência de comandos ON...GOSUB 
e ON...GOTO nesta máquina. Não há 
desvantagem nisso. O programa funcio- 
na muito bem e sua modificação não 
apresenta maiores dificuldades. 



DESCRIÇÕES DOS LOCAIS 



O primeiro passo para adaptar o pro- 
grama do Spectrum é incluir as descri- 
ções dos locais de seu novo mapa. 

Elas são colocadas no final do pro- 
grama, da mesma forma que na aven- 
tura original. Devem permanecer em 
ordem e seguidas da linha que contém 
as saídas — variáveis N, S, E e W, cor- 
respondendo a norte, sul, leste e oeste, 
acompanhadas dos números 1 ou 0, in- 
dicando se há ou não saída naquela di- 
reção. Não se esqueça das linhas REM, 
para saber onde está cada descrição na 
listagem. 



NOVAS PALAVRAS 



Faça uma lista de todas as palavras 
que o jogador poderá usar durante o jo- 
go. Neste momento, interessam particu- 
larmente os verbos — a primeira palavra 
em um par, ou palavras usadas isolada- 
mente e que nem sempre são verbos no 
sentido gramatical. Reúna as palavras 
que têm o mesmo sentido (e, portanto, 
o mesmo efeito no desenrolar da aven- 
tura), como "PEGAR" e "APA- 
NHAR" ou "MATAR" e "ATIRAR". 
Cada grupo precisará de um número. 
Inclua-os também na lista. 
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Os verbos seguidos de seus números 
devem ser colocados nas linhas DATA 
140 e 150. Não se esqueça de deixá-los 
entre aspas. 

Deveremos ainda redimensionar as 
matrizes na linha 120 e ajustar o tama- 
nho do laço FOR...NEXT, na Unha 130, 
de acordo com o número de palavras 
utilizadas. 



ROTINAS QUE ENTENDEM OS VERBOS 



Cada categoria de verbos precisará de 
uma rotina. 

É difícil dar instruções específioas so- 
bre elas, uma vez que quase sempre ser- 
vem apenas ao jogo de origem. Todavia, 
algumas das rotinas da aventura de IN- 
PUT podem ser utilizadas, pois são co- 
muns a quase todos os jogos desse 
tipo. 

É o caso de "PEGAR" e "LAR- 
GAR": fundamentais para o uso dos 
objetos, serio inteiramente aproveita- 
das. A rotina que executa a ordem 
"LISTAR" também é aproveitável, ser- 
vindo à maioria dos jogos. Sua aventu- 
ra ficará bem estranha sem uma função 
desse tipo. 

As demais rotinas dependem das exi- 
gências do seu jogo. Para ter uma orien- 
tação, observe como programamos as 
rotinas do nosso jogo. Preste atenção 
nos locais e nos objetos sobre os quais 
um determinado verbo pode ter ação. 

As rotinas devem ser capazes de ve- 
rificar se o local e os objetos da ação são 
apropriados. Devem também estar pre- 
paradas para informar os resultados ao 
jogador, imprimindo mensagens de er- 
ro quando ele pedir coisas proibidas. 

Uma vez escritas, as rotinas ocupa- 
rão o espaço entre as linhas 1 390 e 2999, 
inclusive. O computador selecionará es- 
sas rotinas de acordo com o verbo usa- 
do pelo jogador. 



A MATRIZ G 



O Spectrum guarda as descrições dos 
locais e as linhas das rotinas dos verbos 
dentro da matriz G. 

O próximo passo consiste, assim, em 
colocar os números das linhas iniciais 
das rotinas em G. As linhas 40 a 70 con- 
têm os números. As primeiras três linhas 
referem-se às descrições dos locais. A úl- 
tima contém os números das linhas ini- 
ciais das rotinas dos verbos. 

As dimensões da matriz G dependem 
do número de linhas DATA e de quan- 
tos números a linha DATA mais longa 
contém. O primeiro índice no comando 
■ DIM G (M,N), ou seja, N, corresponde 



ao tamanho da linha DATA mais lon- 
ga. O segundo, M, à quantidade destas 
linhas. 

Coloque todos os dados nas linhas de 
40 a 70 — se eles forem muitos, use nú- 
meros de linha intermediários. Verifique 
quantos números estão incluídos na li- 
nha mais longa. Acrescente às linhas 
mais curtas tantos zeros quantos forem 
necessários para que fiquem do mesmo 
tamanho. Não se esqueça das vírgulas. 

Se os números estiverem corretamen- 
te colocados em G, as linhas 330 a 350 
vão selecionar a descrição adequada ao 
local onde se encontra o jogador. O se- 
gundo índice da matriz corresponde à li- 
nha onde se encontra o número. 
Verifique se os índices estão corretos em 
cada comando GOTO de seu novo pro- 
grama, especialmente se você aumentou 
o número de linhas DATA. 



MOVIMENTO 



Se o tamanho do mapa de sua aven- 
tura for diferente, as linhas 1000 a 1040 
deverão ser modificadas, pois tratam do 
movimento do jogador. 

Mais especificamente, as linhas que 
tratam de movimentos para o norte e 
para o sul — 1010 e 1030 — precisam 
ser alteradas se seu mapa não tiver seis 
locais de largura. A nova largura deve 
substituir o número 6. 



0S OBJETOS 



Grandes alterações deverão ser feitas 
nas linhas 160 a 260, uma vez que seus 
objetos serão diferentes dos da nossa 
aventura. 

Anote o número de objetos e o com- 
primento das maiores descrições (tanto 
das curtas quanto das longas). O núme- 
ro de objetos deve ser o primeiro valor 
da linha DATA 200; será usado como 
índice nos comandos DIM referentes às 
matrizes de objetos — linha 1 80 — e pa- 
ra determinar o tamanho de diversos la- 
ços FOR...NEXT. O segundo índice da 
matriz B$ é o comprimento da maior 
descrição curta e o segundo índice em 
SIS, o da maior descrição longa. 

Se usarmos uma linha DATA para 
cada objeto, o programa ficará mais cla- 
ro. No entanto, se o número de objçtos 
for muito grande, pode-se optar por co- 
locar mais de um por linha. Em todo ca- 
so, a ordem deve ser precisa, pois cada 
grupo de três dados contém elementos 
de três diferentes matrizes. A ordem é: 
número do local onde se encontra o ob- 
jeto, descrição curta e descrição longa. 
Se o objeto só aparece mais tarde na 



aventura — após ser encontrado, por 
exemplo, como o olho — ou se surge ao 
acaso, como o fiscal da Receita, o nú- 
mero do local deve ser 0. 



ROTINA DE AUXÍLIO 



Esta é a última rotina a ser altera- 
da. Verifique onde pode ser interessante 
"AJUDAR" o jogador. Use D7...THEN 
para fazê-lo. 

Outras características do jogo origi- 
nal, tais como a rotina que faz surgir de 
repente o fiscal da Receita — linha 320 
— , devem ser alteradas ou apagadas. 
Podemos também mudar o local onde 
começa a aventura, na linha 280. 



LISTA DE VARIÁVEIS 



Para estudar em maior profundida- 
de o nosso programa, use esta lista de 
variáveis. 

G() matriz contendo os números 
das linhas de descrição dos lo- 
cais e de execução de ordens do 
jogador — execução dos verbos. 

R$0 matriz com os verbos e respos- 
tas do jogador. 

RO matriz com os números dos 
verbos. 

Elementos correspondentes das duas ma- 
trizes acima referem-se ao mesmo verbo. 

BO matriz contendo o local onde 
cada objeto se encontra. 

BS0 matriz com a descrição curta 
dos objetos. 

SISO matriz com as descrições longas. 

Elementos correspondentes das três ma- 
trizes acima referem-se ao mesmo objeto. 

NB número de objetos da aventu- 
ra. 

L posição do jogador. 
LA sinalizador de estado da lâm- 
pada. 

N,S,E,Wsaídas de um local. 

IS resposta completa do jogador. 

V$ verbo em 1$. 

N$ substantivo em 1$. 

I contém um número correspon- 

dente a um grupo de verbos. 

IN número de objetos carregados 
pelo jogador. 

AS contém a resposta à pergunta 
"Quer jogar novamente?" 

G contém o número do objeto 
deixado de lado pelo jogador — 
elemento G da matriz B. 
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■ 


COMO TIRAR 0 MÁXIMO 


DO COMANDO EDIT 


■ 


MODIFICAÇÃO DE CARACTERES 


■ PROLONGAMENTO DE UMA LINHA 


■ 


PROCURA DE UM CARACTERE 



Quase todos os micros possuem 
comandos que facilitam a edição de 
programas em BASIC, mas o comando 
EDIT das linhas TRS-80 e TRS-Color é um 
dos mais sofisticados. Aprenda a utiizá-lo. 



Como você já deve ter observado, é 
muito raro um programa rodar corre- 
tamente peia primeira vez. Mensagens 
de erro, ou problemas que ocorrem du- 
rante a execução, tornam imperativo o 
teste repetido de um programa, até que 
todos os erros tenham sido eliminados. 

Esse processo, chamado de depura- 
ção, é em geral trabalhoso e demorado, 
sobretudo se as linhas erradas tiverem 
que ser inteiramente digitadas. Quase 
todos os microcomputadores possuem 
algum tipo de editor de linhas para agi- 
lizar o processo de correção de progra- 
mas. O sistema disponível nos micros 
das linhas TRS-80 e TRS-Color tem um 
funcionamento um pouco complicado, 
mas é um dos mais completos. Neste ar- 
tigo, você verá como explorar eficien- 
temente os recursos de edição que seu 
micro lhe oferece. 

Suponhamos, por exemplo, que vo- 
cê acabou de descobrir um erro de sin- 
taxe na linha 20 de seu programa. Para 
acionar o editor de linhas, digite EDIT 
20 e pressione a tecla <ENTER> . Nos 
computadores da linha TRS-Color, apa- 
recerá logo abaixo a Unha indicada e, em 
seguida, outra linha, contendo apenas 
o número e o cursor de posicionamen- 
to. Nos micros da tinha TRS-80, o co- 
mando EDIT não mostrará a linha er- 
rada, a não ser que você pressione a te- 
cla L uma vez. 

20 X=BNDíl 

20 _ 

Como você pode notar, o erro con- 
siste na falta do parêntese à direita. 

O computador agora está em modo 
de edição, e você poderá fazer as altera- 
ções que quiser na linha apresentada na 
tela. Caso desista de editá-la, simples- 
mente pressione a tecla <ENTER> 
uma vez ou, então, a tecla E (abreviatu- 
ra de END — fim, em inglês), e o com- 
putador voltará ao modo de comando. 




Uma vez que a linha desejada esteja 
pronta para ser corrigida, você poderá 
utilizar uma série de comandos de edi- 
ção. É neste ponto que os principiantes 
correm o risco de se confundir, pois pa- 
ra acionar os comandos pressiona-se 
uma única tecla alfabética (cujo resul- 
tado não aparece na tela) ou, então, um 
número de um ou mais dígitos, seguido 
da tecla alfabética. 

No exemplo anterior, a correção con- 
siste em acrescentar um parêntese ao fi- 
nal da linha. Para isso, pressione a te- 
cla X, que aciona o comando de eXten- 
são de linha; o cursor pulará automati- 
camente para o final da linha 20: 



Agora você pode digitar o parêntese 
que falta, pois o computador automa- 
ticamente entra em modo I, ou de inser- 
ção. Para terminar a linha e sair do mo- 
do de edição, pressione <ENTER> 
Não pressione E, pois o computador 
adicionará esta letra ao final da linha: 
os comandos de edição só valem quan- 
do o modo I está desligado. 

Vamos ver agora um caso mais com- 



plicado. Suponhamos que você queira 
modificar a linha seguinte, inserindo um 
novo caractere em algum ponto: 

50 X-0:V-0:W-363 

O valor atribuído à variável X deve- 
ria ser, por exemplo, 20 e não 0, como 
está. Para fazer a modificação, digite 
EDIT 50 e pressione < ENTER > . A li- 
nha 50 aparecerá na tela e o cursor logo 
em seu início. Você precisará deslocá- 
lo até a posição anterior ao primeiro ze- 
ro, na linha, para poder inserir o novo 
caractere (no caso, um 2). Existem três 
maneiras de fazer esse deslocamento. A 
primeira consiste em pressionar repeti- 
damente a barra de espaço: cada vez que 
ela é pressionada, o cursor avança uma 
posição, e na tela aparece o caractere da 
posição seguinte. A segunda consiste em 
dizer ao editor quantos caracteres deve 
pular, digitando este número, seguido 
de uma pressão à barra de espaço. No 
terceiro método, pressiona-se a tecla S 
(de Search — procurar, em inglês), se- 
guida do caractere para o qual você quer 
deslocar o cursor. 

No exemplo acima, precisamos des- 1 
locar o cursor para a posição anterior I 
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ao primeiro zero da linha. Bata duas ve- 
zes na barra de espaço ou, então, digite 
o número 2, seguido de uma pressão à 
barra; se preferir, pressione a tecta S e, 
em seguida, a tecla O. Seja qual for o 
método utilizado, o cursor ficará posi- 
cionado logo após o sinal de igual. Ago- 
ra, para inserir o número 2, você deve 
entrar em modo de inserção. Para isso, 
pressione a tecla I uma vez; em segui- 
da, acrescente o que quiser à linha. Di- 
gite normalmente as adições (pode-se 
usar, inclusive, o retrocesso). Pressione 
a tecla <ENTER> para sair do modo 
de edição, uma vez que tenha comple- 
tado a inserção. 

Caso você precise fazer outras corre- 
ções na linha (por exemplo, acrescentar 
o número 1 antes do segundo zero, de 
modo a transformar em 10 o valor de 
X), deverá continuar no modo de edi- 
ção. Para sair do modo de inserção e 
voltar ao modo de edição, pressione si- 
multaneamente as teclas <SHIFT> e 
T . Com isso, você poderá deslocar o cur- 
sor até o segundo zero da linha, usando 
um dos três métodos explicados acima, 
digitar I para inserir e, finalmente, di- 
gitar o número 1. 

Algumas vezes, é necessário substituir 
caracteres, e não acrescentar outros. Eis 
aqui um exemplo: 

70 PRINT "EDIY0RA NOVA CULTURA 



Chame o comando EDIT e posicio- 
ne o cursor sobre a letra errada (Y). Pa- 
ra substituí-la pelo T, pressione uma vez 
a letra C (de Change — mudar, em in- 
glês) e, em seguida, a letra correta. Se vo- 
cê quiser mudar mais de um caractere, 
acione novamente a tecla C ou, então, 
o número de caracteres, seguido da te- 
cla C Caso precise substituir, por exem- 
plo, três letras consecutivas, coloque o 
cursor sobre a primeira e digite 3C 

Para apagar uma letra, ou uma série 
de letras, coloque o cursor sobre o ca- 
ractere que pretende apagar e pressione 
a letra D. Nos computadores da linha 
TRS-Color, o caractere indicado desa- 
parecerá da tela e os demais serão des- 
locados para a esquerda, fechando o 
"buraco". No TRS-80, o caractere apa- 
gado será exibido entre dois sinais de ex- 
clamação. Para apagar vários caracte- 
res, digite o número de caracteres que 
quer eliminar, seguido da tecla D. Co- 
locando o cursor no primeiro E e pres- 
sionando 7D, por exemplo, você apaga- 
rá a palavra EDIYORA. 

Também é frequente a necessidade de 
apagar toda a parte final de uma linha. 
I Suponhamos que você queira apagar o 
I comando PRINT da linha abaixo: 



Entre em modo de edição e coloque 
o cursor até o ponto da linha a partir 
do qual se encontram os caracteres que 
deseja apagar (no exemplo, o segundo 
sinal de dois pontos). Em seguida, pres- 
sione a tecla H (abreviatura de Hack — 
podar, em inglês) e o resto da linha de- 
saparecerá. Este comando também en- 
tra no modo de inserção, permitindo 
que você acrescente algo à linha ou que 
abandone o modo de edição, pressio- 
nando (ENTER). 

Você pode também apagar partes de 
uma linha utilizando o comando K (de 
Kill — matar, em inglês). Ele elimina ca- 
racteres sucessivamente, até que seja en- 
contrada a primeira ocorrência do ca- 
ractere especificado. Se você digitar, por 
exemplo, KD, eliminará todos os carac- 
teres entre a posição do cursor e a pri- 
meira ocorrência da letra D, na linha. 
Caso digite 3KD, apagará tudo até a ter- 
ceira ocorrência de D. 

Depois de fazer algumas modifica- 
ções em uma linha, liste-a, ainda den- 
tro do modo de edição, para ver como 
ficou. Para isso, digite a tecla L. 

Se você cometeu algum erro e deseja 
cancelar todas as modificações feitas, di- 
gite a tecla A (Again — novamente, em 
inglês); o cursor retornará ao seu inicio. 
O comando Q (Quit — abandonar, em 
inglês) faz a mesma coisa, mas sai do 
modo de edição. 

Para se exercitar um pouco, digite o 
programa abaixo: 

10 CLS 

20 PRINT 

30 PRINT "NU, MERO" , "CUBO" 

40 FOR A-l TO 13 STEP 2 

50 PRINT A.*A*A 

60 NEXT 

70 PRINT "ESTE E ' O FIM" 

Ele contém alguns erros; seu aspecto 
final deverá ser o seguinte: 

10 CLS 

20 PRINT "TESTE" 

30 PRINT "NUMERO", "CUBO" 

40 FOR A-l TO 13 

50 PRINT A, A*A*A 

60 NEXT 

70 PRINT "FIM" 

Para alterar o programa, procure 
usar todos os comandos de EDIT que 
aprendeu. Eis aqui a notação abrevia- 
da das modificações que poderá tentar: 

EDIT 20 X" T ESTE" [E MIEBJ 
EDIT 30 S .DLEHIER ] 
EDIT 40 4 IE3PAC0lHn 
EDIT 50 S.IA[MT_ER| 
EDIT 70 SEKODfj 



Sumário dos 
comandos de EDIT 


L 


Lista a linha 


C caractere 


Muda caractere 


nC caracteres 


Muda os próximos n 
caracteres 


I Insere caracteres 


D 


Apaga um caractere 


rtO 


Apaga n caracteres 


H 


Apaga o restante da 
linha e entra em 
modo de inserção 


X 


Entra em modo de 
inserção ao final 
da linha 


S caractere Procura a primeira 
ocorrência do 


nS caractere Procura a n-ésima 
ocorrência do 


K caractere 


Apaga tudo até a 
primeira ocorrência 
do caractere 


nK caractere 


Apaga tudo até a 
n-ésima ocorrência 
do caractere 


< ESPAÇO > 


Avança o cursor 
uma posição 


n < ESPAÇO > 


Avança o cursor 
rt posições 




Recua o cursor de 
uma posição 




Recua o cursor de 
n posições 


<SHIFT> t 


Saí do modo de 
inserção e volta ao 
modo de ediçio 


< ENTER > 


Saí do modo de 
edição e inserção 


E 


Sai do editor 


A 


Retorna ao inicio 
da edição 


Q 


Retorna ao inicio 
da edição e sai do 
editor. 
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Os montadores são programas tradutores 
encarregados de converter os 
programas-fonte, escritos em Assemblv 
em programas-objeto, codificados 
em linguagem de máquina. 



Como já foi dito em artigos destina- 
dos a outros computadores, montar um 
programa em linguagem de máquina, 
calculando os códigos a mão, pode ser 
bem cansativo. Ainda que se saiba de 
cor todos os códigos mnemónicos e seus 
equivalentes hexadecimais e se esteja fa- 
miliarizado com os modos de endereça- 
mento, o trabalho de tradução e trans- 
ferência do programa para o computa- 
dor é sempre tedioso e possível de erros. 

Já que computadores são muito bons 
nesse tipo de trabalho, por que não usá- 
los para Tazer a tradução? De fato, só 
teríamos a ganhar se fizéssemos isso, 
pois o mesmo programa poderia ainda 
ser usado para colocar o programa em 
código na memória. 

O programa apresentado neste arti- 
go é bem parecido com o Assembler pa- 
ra o ZX Spectrum. Isto se deve ao fato 
de os dois computadores usarem o mi- 
croprocessador Z-80. 

Constituído em BASIC, esse progra- 
ma é bem mais lento do que os que são 
feitos em código de máquina (estes 
últimos podem ser facilmente 
encontrados nas lojas espe- 
cializadas). Todavia, ele 



funciona muito bem, embora devamos es- 
perar algum tempo para que programas 
longos sejam montados na memória. 



5000 CLS:KEYOFF:LOCATE8,10:PRIN 
T"Ua instante, por favrfr " : CLEAR 
500 , LHDFFF : DIM KS (HO) . K U1Q) , M 
(110) :H$-"0123456789ABCDEF" : B$= 

:GS-"0123456789abcdef " 
5010 DIMT3Í100) .B(100) ,ZS(100) . 



Z(100) 

5020 B(l)-l:FORI=2T09:B(I)-BÍT 
1)+B(1-1) : NEXT 

5030 DIMR$(B,4) : FORJ- 1T04 : FORT- 
1T0B:READRS(I-J) : RS ( I , J) =LEFTS 1 
R$(I,J)+" ".4) :NEXTI,J 
5040 DATA 0.1,2.3,4.5,6,7.nj.I 
nc, c.po.pe ,p, m, 0 ,6 , 16. 24 , 32,40 
48, 56. hl , ix. iY.bc ,de ,hl ,ap, " 
5050 DIMSS (8.2) ,T(1B) . US ( 18) : FO 
R.J=1T02 : FORI-1T08/ J : READSS (I i JJ 
:SS(I.J)=LEFT$(SS(I.J)+" " 4 
) :NEXTI,J:FORJ«1T018:R.EADT(J) .U 
S(J) :NEXTJ 

5060 DATA b,c,d,e,h,l , (hl) .a br 
, de, hl, sp.235.de. 8. af ,227. (ap) 
60742 , 0 , 60 758, 1 ,60766. 2 . 233 . (hl 
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O que acontecerá se houver um er- 
ro em meu programa-fonte? 

Nosso Assembler é capaz de emi- 
tir mensagens de erro, pois a sua es- 
trutura de programação permite re- 
conhecer certas falhas no programa 
em Assembly- Alguns comandos, por 
exemplo, só trabalham com os regis- 
tros a e hl. Se tentarmos usá-los com 
outros registros, o Assembler dirá: 
"Primeiro operando deve ser a ou hl". 

Se um comando não for reconheci- 
do devido a um erro de digitação, se- 
remos informados: "Linha não reco- 
nhecida". A expressão "Deve haver 
dois operandos" significa que deixa- 
mos de digitar um número vital após o 
comando. "Operando incompatível" 
indica um uso inadequado do coman- 
do. "Primeiro operando deve ser sina- 
lizador ou bit" significa que um 
operando inadequado foi empregado 
em um comando de desvio ou de atri- 
buição de bits. 



) .56809, íix) .65001. <iy) .10. (bc) 
.26, (de) . 60767. r, 2. Ibc) ,18, (de) 
,60751 ,r ,249, sp. 60743. i ,60759,1 
5070 DEFFNB<X,I)=INT(X/B(I+1))- 
INT(X/B(I+2))«2 

5060 DEFFNX(X.I)=X-B(I+2)*FNB(X 
,I)+B(I+1> 

5090 DEFFNJ(X.I)-INT(X)-B(I + U* 
INT{X/B{I+1) ) 

5100 DEFFNE(IS.J$)MIS-LEFT$(JS 
-LENU5) ) ) 

5110 FORI-lTO110:READKS(I) .K(I) 
,M(I) :IFNOTFNE{"«" .KS(I) ) THENNE 
XTI 

5120 DATA ld,10.10,ld.26,10,ld, 
60767,10. ld, 60759, 10, ld, 2, 138,1 
(3,18.136, ld_, 60751, 138, ld, 60743. 
138, ld, 64, 6* ld.50,202.1d.58.74, 
ld, 249. 139, ld. 34,195, ld, 42. 67.1 
d. 60779. 197. ld. 60771. 199, ld. 97, 
165, ld, 64, 54 

5130 DATA adc, 136. 50, adc, 60746. 
3 , add , 128 , 50 , add , 9 , 149 . and , 160 . 
4B,or , 176,48,xor , 168 , 48 , nop , 0 , 0 
, sub. 144 , 48 , abe, 152 , 50 , abe, 60 7 3 
B, 3, cp, 184. 48.jp. 130. 45, jp, 233. 
9, jp, 56809, 9, jp, 65001, 9, jp.131. 
49, jr,96,45, jr.88,41 
5140 DATA call.132.45.call.141, 
41,ret,201,0.djni,74,40,dec,ll, 
17,d*c,5,16,inc.3.17.inc.4.16,p 
uah.l97.17,pop,193,17.di,243.0, 
ei,251.0,halt,118,0,ex,235,139, 
ex,e,15,*x.227,143,exx.217,0 
5150 DATA rèt,199,132.rta.l92,5 
■ . bit.52032,20,defb.-256,40.ccf , 
| 63.0, acf ,55,0, cpl, 47.0, cpd . 6064 



l.O.cpdr, 60857, O.cpi, 60833, 0,cp 
Ir , 60649,0 , daa, 39, 0 , iro, 60742 , 6 , 
in, 60758, 8, ím, 60766. B 
5160 DATA ín, 60736, 130, In. 149, 4 
2, ind .60848, 0 , indr , 60810 . 0 , ini , 
60840 , 0 , inir ,60850 ,0, ldd ,60840 , 
0 , lddr ,60856, 0 , ldi .60832 , 0 . ldir 
, 60848, O.neg, 60740. O.otdr, 60659 
, O.otir, 60851. O.out, 60737, 2. out 
, J 41. 170, outd. 60843, O.out 1.6083 
5.0 

5170 DATA rea , 52096. 20 . reti .607 
49. O.retn. 60741. 0,r 1,51984, 64, r 
la,23,0,rlc.51968,16,rlca,7,0,r 
ld. 60783. O.rr, 51992, 64, rra. 31.0 
.rrc,51976,16.rrca,15,0,rrd,607 
75,0 

5160 DATA eet, 52160, 20, ala. 5200 
0, 16, ara, 52008, 16, H r 1.52024, 16. 
defw, -256,41 

5190 DATA "*",0.0:II=I:K(110)-I 

I 

5200 CLS:PRINTTAB(15)"ASSEMBLER 
' : LOCATE10 , 5 : PRINTTAB ( 10) " (c) 
Ler na fita ca a se te" : PRINT : PR IN 
TTABUO)-(g) Gravar na fita":P 
RINT : PRINTTAB (10 ) " (e) Edição" 
5210 PRINT: PR1KTTAB (10) " (») Mo 
ntar" : PRINT : PRINTTAB (10) " (a) A 
pagar 1 inha" : PRINT : PRINTTAB (10) 
- (1) Listar" : PRINT: PRINTTAB (10 
)-{a) Salda" 

5220 AS'INKEYS:IFAS=""THEN5220 
5230 JJ»INSTRCcgemala",A3) 
5240 IFJJ=0THENPRINT"<"AS"> ??? 
?" : F0R.I=lTO500 :NEXT : GOTO5200 
5250 CLS : ONJ JGOSUB10420 . 10450 , 1 
0490,5290,10710,10760,10900 
5260 PRINT : PRINT" Qual quer tecla 

5270 A3=INKEYS : IFAS" 
5280 G0TO52Q0 

5290 FORG-lTO100:R(G)-G-l:NEXTG 
:Fh-100 

5300 KO-0:K9-99:PO-0:W-0 
5310 K-K0:P-P0 
5320 GOSUB8000 

5330 GOSUB7000:O3-I$:IFLEFT3(O$ 
,!)-•*- THENPRINTOS ; : GOTOS 320 
5340 IFOS-"end"THENPRINT:PRINT" 
FIM. Endereco final - *:P-1 
5350 IFOS-"end"THENP0-P : RETURN 
5370 IFOS<>"org"TBEN5400 
5380 GOSUB7000:S-0:1FLEFTS(IS,1 
) --*"THENS-P: IS-RIGHTS (IS .LEN (I 
$)-l) 

5390 P-VAL{IS)+S:PRINT" org 
" i P i :GOTO5320 

5400 IFP-OTHENPRINT" (falta org 
) " :P-LHE00O 

5410 PS-OS+"!":FORI-l+18*ABS<0S 

<>"ld")TO110:IFO3<=K3(I)ANDPS>K 

S(I)THEN5500 

5420 NEXTI : PRINTOS 

5430 IFLEFT5<I3.1)-"."THENI3-RI 

GHTS(IS.LEN(I$)-1) 

5440 GOSUB9000:GG-R<G) 

5450 IFABS(GG)O100THENS-SGN(Z( 

GG)) :B-INT(ABS(Z(GG))/65536!) :R 

-ABS(Z(GG) )-B«65536! :Q-PEEK(R>+ 

256*PEEK(R+1) :POKER.FNJ(P*S+Q.8 

):PRINT" colocando ";FN J(P*S+Q 

.8):" em " ; R: IFBTHENPOKE (R+l) . F 



■"THEN5270 



NJ({P*S+OJ/256,8) :PRINT" coloca- 
ndo -;FNJ((P*S+ÍÍ)/256.B) ;" eu " 
;R+1 

5460 IFABS (GG) <«100THENGH«R (GG) 
: R (GG) -FH : FH-GG :GG-GH : GOTO5450 
5470 IFIS-""THENR(G)-P+100:GOTO 
5330 

54B0 PRINT" (Linha não reconhec 
ida) " 



5530 M=M(I> :OP-K(I) :B=FNB(M,0) : 

B7-B+2*FNB (M. 7) +1 : Z-0 : IFFNJ (M , 3 

) -C2THENCS-A3 :GOT05720 

5540 FORJ-1TOLENÍA8) :IFMID3(A3. 

J,1)-","THEN5580 

5550 NEXTJ:IFOS-"rst"OROS-"rts' 

THEN5580 

5560 IFFNE(03.K$(I+1))THENI-I+1 
■.GOTO5530 

5570 PRINT" (são necessários do 

ia operandos) " :GOTO5320 

5580 B3-LEFTSÍA3.J-1) :CS-RIGHTS 

(AS.LEN(AS)-J) 

5590 IFFNB(M.2)THEN5650 

5600 IFFNB(M.7)THEND$-C3:CS-B3: 

B3-D3 

5610 IFBS-MID3("ahl".B+l.B+l)TB 
EN5720 

5620 IFBS""(c)-AND(0S-"m"OROS- 
"out")THEN5720 

5630 IF(FNE(OS.KS<I + D))AND(FNJ 
(M(I+1) ,3)>«2)THENI-I+l:G0TO553 
0 

5640 PRINT" (primeiro operando 

deve aer a ou hl) " :GOTO5320 

5650 IFFNB(M.1)THEN5690 

5660 ES"LEFTS(BS+" ",4):F0RJ- 

1T08 : IFES-RS ( J , B7 ) THENOP=OP+B* ( 

J-l) «ABS (B7<4)+16* {J-6) "ABS (B7= 

4)"ABS(J>3) :Z-(J-1)*ABS(B7-4)*A 

BS(J<-3) :GOTO5710 

5670 NEXTJ:IFPS>KS(I + DAND(FN J 

(M(I+1> ,3)>-2)THENI-I+l:GOT0553 

0 

5680 PRINT" {primeiro operando 
deve aer ainalizador ou bit)":G 
0TO5320 

5690 IFFNB(M.7)THENDS-CS:CS-BS: 
BS-DS :GOT05660 

570Õ X-8:GOSUB5750:IFETHEN5730 

5710 IFCS-""THEN6090 

5720 X»1+15*B+7*ABS{OP<-6ANDOP> 

-40RBS=" (c) ") :B3-CS:GOSUB 5750: 

IFABS ( (E-0) *NOTE)THEN6090 

5730 IFE-20RPS>KS(I + UANDFNJ(M( 

1+1) ,3)-FNJ{FNX (M.0) ,3)THENE=Q: 

I-I+l :GOTO5530 

5740 GOTO5320 

5750 R»0 : IFFNB (M, 4) ANDFNE {LEFT3 
(* <",ABS{ (B-0)*NOTB) ) ,BS)TSENZ2 
-ABS (FNE ( " ix" , RIGHTS <BS . LEN (B3) 
+B-1}+" -))+2*ABS(FNE("iy".RIGB 
TS(BS.LEN(B3)+B-1)+" ")):IFZ2TH 
ENZ-Z2:ES-LEFT3(B3.LEN(B3)-ABS( 
(B-0) *NOTB) ) :BS-MIDS (" {hl) " . 1+B 
,4-2*B) :F3-"0"+RIGHTS(ES.LEN(E3 
)+B-3) 

5760 IFFNB(M,3)THEN5790 



Illllllll 
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5770 ES-LEFTS(BS+" ",4):FORJ-~ 
1T08/ (B+l) : IFES-SS (J , B+l) THENOP 
-OP+[J-l)*X:RETURN 
5780 OQTOS810 

5790 J2-9+9*ABS(OS«"ld") :FORJ«J 
Z-8TOJ2:IFK(I)OT(J)THEN5810 
5800 IFFNE (B$ , US ( J) ) THENRETURN 
5810 NEXTJ:IFBS-"af"THENIFFNE(" 
p" , OS) THEN0P-0P+4B : BETURN 
5820 IFFNB (M . 6) ANDFNE ( " ( " , BS) TH 
ENBS-MIDS(BS,2.LEN(BS)-2) :GOT05 
860 

5830 IFFNB(M,5)THENOP=FNX<OP+6* 
ABS((B-0)*NOT B) ,6) :GOT05860 
5840 IFPS>KS(I+1)THENE-2:BETUBN 
5850 PRINT" (operando incompati 
vel) " :E-1 : BETUBN 
5860 R-65536! 
5870 S-l 

5880 IFBS-""THEN6080 

5890 XS-LEFTSÍBS.l) : DS-RIGHTS (B 

S.LEN(BS)-l) :IFX$-"*"THENB-B+P* 

S:BS=D$:GOT05870 

5900 IFXS-"+"THENBS-DS :GOT05880 
5910 IFX3="-"THENBS=D3:S=-S-GOT 
05880 

5920 IFXS-*'"THENR=B+ASC(DS)*S: 
B3-RIGHTS(DS,LEN(D5)-1> :G0TO587 
0 

5930 Q-0:IFXSO"t"OBDS<:"0"OADS> 
-■2-THEN5960 

5940 IFDS>-"0"ANDDS<"2"THENQ-Í!* 

2+ASC (DS) -48 : DS-BIGHTS (DS . LEN (D 

S)-l) :GOTO5940 

5950 R-R+Q*S:BS-DS:GOT058?0 

5960 IFXSO"S"ORDS<"0"ORDS>="g" 

THEN6000 

5970 XS-CHBS(ASC(DS)) : FORG-0TO1 

5:IFXSOMID$(HS.G+l,l)ANDXS<>MI 

DS (GS.G+1 , 1) THEN5990 

5980 Q-=Q-16+G:D5-BIGHTS(DS.LEN( 

DS)-1) :GOTO5970 

5990 NEXTG:B=B+Q*S:BS-DS:G0T058 
70 

6000 IFXS<"a"ORXS>"z"THEN6Q40 
6010 IS=B3:GOSUB9Q00:IFIS<>""TH 
EN6010:GOSUB9400 

6020 IFR(G)O23000ANDABS<R(G))> 
100THENB-fi+(R(G)-100)*S:BS=IS:G 
OTO587 0 

6030 IFB (G) -23000ORABS (R (G) ) <-l 
OOTHENGH-B(FH) :R(FH)=R(G) :R(G)- 
FH : FH=GH : 2 (R (G) ) ■ (P+SGN <OP) +ABS 
(ABS (OP)>255)+2«ABS(Z>0) +65536! 
■ABS ( { [ABS (BORFNB (M , 6) ) <>01 *1 ) A 
ND(OSO" jr") ) )*S:BS-IS:GOTO5B70 
6040 IFXS<"0"ORXS>"9"THEMB-0:GO 
T06070 

6050 IFBS>-"0*ANDBS<" : "THENQ-0.it 

10+ASC (B3) -48 : BS-BIGHTS (B3 , LEN ( 

BS)-1) :GOTO6050 

6060 R"=R+S«Q:GOT05870 

6070 PBINT" (endereçamento invá 

lido)" 

6080 R-B-(P+2)*ABS(OS- - d3nz-ORO 
S-" jr") : RETURN 

6090 PBINTTAB (16) i : BY-P/256 : GOS 
UB6190: BY=P :GOSUB6190 :G0SUB616 
0 

6100 IF2THENBY-189+Z*3Z:GOSUB61 
80:GOSUB6160 

6110 IFOP>-0THENBY-OP/256 :GOSUB 
6170:GOSUB6150:BY-OP:GOSUB6180 



6120 IFB=0THEN5320 
6130 GOSUB6160:BY=R:GOSUB61B0:I 
F (ABS { BORFNB (M, 6) ) O0 ) ANDOSO" J 
r"THENBY=R/Z56:GOSUB 61B0 
6140 GOTO5320 

6150 IFZO0ANDBYO0ANDABS ( (B=0) 
•NOTB) O0THENG0SUB6260 : BY-VAL (F 

3) :GOSUB6180:Z=0 
6160 PBINT" * ; : RETURN 

6170 IFINT (BY) < = 0THENBETUBN 
6180 BY=FNJ (BY , 8) : POKEP . BY : P=P+ 
1 

6190 BY=FNJ[BY,8) : PR INTMI DS (HS , 
1+INT(BY/16) ,1) ;MIDS(H3.FNJ!BY, 

4) +l,lJ ; 

6200 RETURN 

7000 IFK>NTHENIS- "end" : BETURN 
7010 K1-K9+1 : IFK9>"LEN (TS (K) ) TH 
ENIS"" /f al tando/ " : BETURN 
7020 K9=K1:IFMTDS(T3(K) ,K1.1)=" 

"THEN7010 
7030 IFK9>LEN(TS(K))THENIS=RIGH 
TS (TS !K) ,LEN(TS(K) )-Kl + l) : RETUR 
N 

7040 IFMIDS(TSCK) ,K9,1)<>" "THE 

NK9=K9+1 :GOTO7030 

7050 IS-MIDS (TS(K) ,K1,K9-K1):RE 

TUBN 

8000 IFK>0THENI FRIGHTS (TS (K) , LE 
N (TS (K) ) -K9+1 ) >TS (99) THENPRINTR 
IGHTS (TS (K) . LEN (TS (K) ) -K9+1) ; 
8010 K=K+1:K9=0 
B020 PRINT : RETUBN 
9000 XS = "" 

9010 IFIS<"a"OBIS>"z"THEN9030 

9020 XS=XS+LEFTS(IS,D :IS-RICHT 

S(IS,LEN(I3)-D :GOTO9010 

9030 IFISO" "THENRETURN 

9400 FOBG-1TOVV: IFFNE (XS. ZS (G) ) 

THENBETURN 

9410 NEXTG:VV-W+1:ZS(VV)-XS:G- 
VV:R (G) -23000 
9420 RETUBN 

10420 CLS : LOCATE0 . 10 : PBINT" Po Hl 
cione a fita, pressione qual que 
r tecla e aperte PLAY no grav 

10430 US-INKEY3:IFUS-""THEN1043 

0 

10440 0PEN"CAS:ASM"F0RINPUTAS#1 
:CLS:LOCATE6,10:PRINT"Carregand 
o programa fonte" : INPUTI1 , N : FOR 
J=1T0N:LINEINPUT»1.TS(J) :NEXT:C 
LOSE#l: RETURN 

10450 CLS:LOCATE0,10:PBINT"Poei 
cione a fita, aperte RECORD no 
gravador e pressione gualqu 

10460 US-INKEY3:IFUS-""THEN1046 

0 

10470 0PEN"CAS:ASM"F0BOUTPUTASl 
1 : CLS : LOCATE7 , 10 : PBINT" Gravando 
programa fonte" : PEINT(1 , N : FORJ 
-lTON:PRINTtl,T3(J) :NEXT : CLOSE» 
1 : BETURN 

10490 PRINT"Qual o número da li 
nha (múltiplo de 10) * ; 
10500 INPUTK:CLS 

10510 K2-K/10 : IFK2>NTHENKZ-N+1 : 

N-N+1:TS(K2)-"" 

10520 IFK2<.1THENK2=-1 

10530 IFK2=INT(K2)THEN10550 

10540 K2-1NT(K2)+1:F0RX3-NT0K2- 



1STEP-1:TS(K3+1) -T$(K3) rNEXT :N"' 

N+1:TS(K2)-"" 

10550 P1-8B7:P0-P1 

10560 LOCATE0,21:PRINTK;TAB(6)T 

S(K2)+STBINGS(10,32) ; :P9-P0+LEN 

(TS (K2) ) 

10570 IFPKPOTHENP1-P0 

10580 IFP1>P9THENP1-P1-1 

10590 VPOXEBASE(0)+P1-1.32:VPOK 

EBASE(0)+P1,195 

10600 P7-0:AS-INKEYS:IFAS-""THE 
N10600 

10610 IFAS-CHBS(13)THEN10700 
10615 IFAS-CHBS (27) THENRETURN 
10620 IFAS-CHBS (28) THENVPOKEBAS 
E(0)+P1,32:P1=P1+1:GOT0105BO 
10630 IFA3-CHBS (29) THENVPOKEBAS 
E(0)+P1, 32:P1-P1-1 :GOTO10570 
10640 IFA3-CHRS(30)THENAS-"":GO 
TO10670 

10650 IFAS-CHBS(31)THENAS-" "+M 
IDS(TS (K2) .Pl-PO+1,1) :P7— 1:G0T 
010670 

10660 IFAS<" "THEN10600 

10670 IFP1-PD+1>LEN(TS(K2))THEN 

TS (KZ)-LEFTS(T3(K2) ,P1-P0)+AS:G 

OTO10690 

10680 TS(K2)-LEFTS(TS(K2) ,P1-P0 
)+AS+BIGHTS(TS(K2) ,LEN<TS(K2> ) - 
P1+P0-1) 

10690 P1=P1-(LEN(AS)>0)+P7:GOTO 
10560 

10700 LOCATE0,24:PRINT:K»K+10:G 
OTO10510 

10710 IFN-0THENCLS : PBINT" Nada 
a apagar" : RETURN 
10720 CLS:PRINT"Qual o mlmero d 
a linha (múltiplo de 10)"; 




COMO ENCONTRAR ERROS EM 
PROGRAMAS LONGOS 

O erro mais comum em programas 
como o desta lição consiste em deixar 
de digitar um segmento de linha DATA 
inisso também o MSX se assemelha ao 
ZX Speciruml. Assim, quando surge a 
mensagem "OUT OF DATA", deve- 
mos averiguar o que está faltando nas 
linhas DATA- Até mesmo a falta de 
uma virgula causará problemas. Se o 
seu Assembler não funcionar na primei- 
i vez, não se preocupe: o MSX pos- 
jí uma função de rastreamento {trace) 
que o ajudará a encontrar os erros. 

Para ativá-la, digite TRON no modo 
imediato, sem número de linha. Depois 
rode o programa usando RUN. O núme- 
■> da linha BASIC que estiver sendo 
xecutada nesse momento aparecet 
na tela. Esse recurso torna mais fác 
a detecção de erros nos programas 
mais longos. 

A função é desativada pelo coman- 
do TROFF. 



10730 INPUTK:K2-K/10 
10740 IFK2>N0RK2<10RK2OINT(K2) 
THENPRINT" Esta linha não existe 
" : RETURN 

10750 K-K2:F0R K3-K2 TO N:TS<K3 
1 "TS (K3+1 ) : NEXT :N"N-1 : LOCATE 0. 
10:PRINT K*10;" " ;T3 (K) :RETURN 
.10760 IFN-OTHENPRINT" Nada a li 
atar" : RETURN 

10770 PRINT"Quaia os números da 
primeira e da intima linh 

a (múltiplos de 10)"; 
10780 INPUTK,K2:K=INT(K) -K2-INT 
(K2) :K1-K/10:K2-K2/10 
10790 IFK2>NTHENK2=N 
10800 IFKK1THENK1-1 
10810 IFK2<K1ANDK2-NTHENRETURN 
10820 IFK2ÍK1THENCL8 ! PRINT"Núme 
roa de linha invál idos" : GOTO107 



10830 CL3-F0RK3=K1T0K2:PRINTK3 
10:" ":TS(K3) :NEXT 

10840 RETURN 
10900 ENO 

Os espaços em branco foram elimi 
nados de modo a diminuir a quantida- 
de de memória ocupada pelo programa. 
Algumas linhas — 5450 e 5750, por 
exemplo — são quase do tamanho má- 
ximo permitido pelo computador; 
sim, qualquer espaço adicional pode 
fazer com que a porção final dessas li- 
nhas seja ignorada. 

As linhas 5030, 5050, 5390, 5500 
apresentam, cada uma. quatro caracte- 
res em branco entre as aspas; as linhas 
5660 e 5770, três; e as linhas 10750 e 
10830, dois. 



na linha 5000, que reserva 500 bytes pa- 
ra os cordões (strings) e protege a me- 
mória a partir de E000 hexadecimal. 
Mude esse valor conforme as necessida- 
des. Programas grandes podem exigir 
maior espaço de cordões. 

Depois de digitar, rode o Assembler 



e verá um menu. Para digitar um pro- 
grama em Assembly, tecle "e" (não se 
esqueça de desiravar a tecla CAPS, pa- 
ra que o MSX aceite letras minúsculas). 
O computador pedirá então o número 
da linha. Cada instrução deve ser intro- 
duzida em uma linha numerada, seme- 




Antes de montar o programa deve 
mos proteger uma área de memória, on 
de o Assembler colocará os códigos 
meio do comando CLEAR. Isso é f 
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lhante ao que ocorre no BASIC. É 
preciso que os números das linhas sejam 
múltiplos de 10; apenas um mnemóni- 
co Assembly com seus operandos pode 
ser introduzido em cada linha. 

A primeira linha de seu programa de- 
ve ser mais ou menos assim: 



10 



ro -B192 




-8192 é o endereço inicial do pro- 
grama em código. Obviamente, ele de- 
ve estar na área protegida da memória. 
Se esquecermos de definir org, ou seja, 
a origem, o Assembler colocará o pro- 
grama a partir de DFFF, em hexadeci- 
mal (ou —8192, em decimal). 

O programa aceita os códigos mne- 
mónicos padrão do chip Zilog Z-80, 
com exceção dos comandos de retorno 
condicional. O comando de retorno in- 
condicional de sub-rotinas, cujo mne- 
mónico é rei, entretanto, funciona em 
nosso Assembler. 

Algumas vezes, porém, podemos uti- 
lizar retornos condicionais, como rei nz, 
que significa "retorne se não for zero". 
Em nosso caso, use: ris nz (ris deve ser 
usado no lugar de ret sempre que preci- 
sarmos empregar retornos condicio- 
nais). Quando se trata de retorno 
incondicional — ou seja, ret não segui- 
do de nenhuma letra — use o mnemó- 
nico padrão ret. 

No artigo da página 21 3 (Programas 
em Código de Máquina) , usamos o mne- 
mónico outir, quando na verdade o pa- 
drão Z-80 é otir. Nosso Assembler aceila 
otir. 

Números hexadecimais devem ser 
precedidos de $. Números binários, de 
Qualquer número sem nada na fren- 
te será interpretado como decimal. 
Qualquer expressão que não seja um co- 
mando Assembly será considerada co- 
mo um- rótulo (iabel). Evite usar 
palavras parecidas ou muito longas; nú- 
meros não são permitidos. 

Para que o Assembler saiba onde pa- 
rar, termine seu programa com end. 

Antes de apertar o ENTER para edi- 
tar uma linha pressione as teclas do cur- 
sor. As setas "direita" e "esquerda" 
movem o cursor ao longo da linha; a se- 
ta "para baixo" serve para inserir ca- 
racteres e a seta "para cima", para 
apagá-los. A edição de linhas é bastan- 
te lenta e muitas vezes os caracteres di- 
gitados demoram a aparecer no vfdeo. 

Use a tecla ESC para sair do modo 
de edição. Essa tecla deve substituir o 
comando ENTER, depois que a última 
linha tiver sido digitada; caso contrário, 
uma linha em branco será incorporada 
ao programa em Assembly. 

De volta ao menu, pressione "1" pa- 
ra obter uma listagem do programa em 
Assembly na tela. 

Se houver algum erro na introdução 
do programa-fonte, volte ao menu e 
pressione "e"; forneça então o número 
da linha que deseja mudar. 

Por outro lado, se quisermos inserir 
uma linha entre duas já existentes, bas- 



tará digitá-la usando um número inter- 
mediário, quando no modo de edição. 
Assim, ao listarmos o programa nova- 
mente, veremos que ele foi renumerado 
com a nova linha no lugar certo. Toda- 
via, apenas uma linha pode ser introdu- 
zida dessa maneira de cada vez. 

Para apagar uma linha, é preciso vol- 
tar ao menu, teclar "a", e fornecer o 
número da linha que queremos eliminar. 

Quando estivermos satisfeitos com o 
programa Assembly a ser montado 
(prograrna-fonle), devemos voltar ao 
menu e teclar "m" para que ele seja 
"montado" na memória. Ao mesmo 
tempo, obteremos uma listagem dos có- 
digos equivalentes na tela (programa- 
objeío). 

Se a esta altura notarmos um erro em 
alguma das linhas, devemos voltar ao 
menu e editar a linha correspondente. 

Uma vez montado o programa, o en- 
dereço final da rotina em código apare- 
cerá na tela. 

A opção de gravação — "g", no me- 
nu — armazena o programa-fonte em 
fita cassete — os mnemónicos, portan- 
to. Para gravar o Assembler, use a via 
normal — CSAVE. 

Para executar o programa em códi- 
go, utilize instruções do tipo DEF US- 
RO e A = USRO. Grave o programa- 
objeto, empregando: 

B3AVE 'CU;OOM', endereço 
Inicial , n° de bytes 

"Nome" é a denominação do pro- 
grama-objeto e deve estar entre aspas. 
BSAVE informa ao computador que está 
sendo gravado um programa em código 
e não em BASIC. O endereço inicial é 
a origem do seu programa na memória. 
Podemos calcular o número de bytes 
subtraindo a origem do endereço final 
e somando 1. Podemos ainda acrescen- 
tar o endereço inicial para execução (não 
mostrado no exemplo). Como esse en- 
dereço é quase sempre igual ao endere- 
ço inicial, sua inclusão é opcional. 



Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita que se encontra na 
página 215. Uma vez traduzido para có- 
digo, ele ficará assim: 



Note que devemos usar letras minús- 
culas para digitar o programa-fonte. 
Nosso Assembler não reconhece coman- 1 
dos em maiúsculas. 
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INSTANTÂNEO! 



-1 



Você não precisa conhecer código de 
máquina nem entender de 
sistema binário para animar seus jogos 
com figuras simples. Leia este 
artigo e veja como é fácil fazer isso. 



Qualquer pessoa com algumas horas 
de experiência com computadores pode 
criar caracteres gráficos originais para 
usar em jogos. Tudo o que se precisa é 
lápis e papel para esquematizar as idéias, 
além de duas (ou, no máximo, três) ro- 
tinas simples para transformar tais 
idéias em Figuras no computador. 

Cada tipo de máquina exige um mé- 
todo particular para a criação de novos 
padrões de caracteres gráficos definidos 
pelo usuário. O tamanho desses carac- 
teres também é variável. O MSX tem 
sprites de 16 por 16 pixels (ou pontos), 
enquanto o Spectnim oferece apenas um 
UDG de 8 por 8 pixels (os compatíveis 
com o ZX-81 não serão tratados aqui). 

No entanto, independentemente do 
que seu computador ofereça, o mais 
conveniente é começar criando figuras 
de 8 x 8 (tamanho aproximado de um 
"inimigo" em um jogo espacial). Uma 
vez que você tenha aprendido a traba- 
lhar com esse padrão, será fácil criar fi- 
guras maiores, ou mesmo encadear duas 
ou mais pequenas figuras para formar 
uma terceira. 



DO DESENHO PARA 0 BINÁRIO 



mais quatro espaços. Em binário, 
00010000. 

A segunda linha é formada por dois 
espaços, três pontos e três espaços: 
00111000. Todo o padrão pode ser re- 
presentado assim: 

00010000 
00111000 
00010000 
01111100 
0 0 0 1 0 0 0 0 
0 0 0 1 0 0 0 0 
00010000 
00000000 



DE BINÁRIO PARA DECIMAL 



A maneira mais rápida de converter 
binário em decimal é usar a pequena ta- 
bela de nove linhas por oito colunas que 
apresentamos a seguir. Na primeira li- 
nha, escreva os números 128, 64, 32, 16, 
8, 4, 2, 1 . Nas outras oito coloque os nú- 
meros correspondentes ao gráfico que 
você quer. Aqui temos, por exemplo, a 
tabela para a cruz de Lorena: 



128 64 



Em alguns computadores, os dados 
necessários para definir um UDG po- 
dem ser fornecidos díretamente na for- 
ma binária. Em outros, você terá que 
convertê-los em decimal ou em hexade- 
cimal. Assim, leia primeiramente a se- 
ção para sua máquina antes de fazer 
qualquer conversão. No Apple você te- 
rá que usar o nosso editor de figuras. 

Os computadores armazenam as in- 
formações que lhes são dadas em biná- 
rio. Mas você não precisa conhecer esse 
sistema numérico para transformar seus 
desenhos em filas de números binários. 
Tudo o que deve fazer para isso é: 

— Utilizar o número 1 sempre que qui- 
ser obter um ponto. 

— Empregar o número 0 toda vez que 
quiser um espaço. 

Tomemos como exemplo o padrão 
da cruz de Lorena. A linha do topo é 
composta de três espaços, um ponto e 



Para fazer a conversão, ignore os ze- 
ros. Inicialmente, compare os 1 em bi- 
nário com o número no topo da colu- 
na. Some então todos os números cor- 
respondentes aos 1 da primeira linha. 
Repita essa operação em todas as linhas. 

No exemplo, a primeira linha contém 
o número 1 apenas na quarta coluna. 
Portanto, temos 16. 

A segunda linha tem três I que cor- 
respondem a 32, 16 e 8. Soma: 56. 

Quando o processo de verificação 
houver terminado, você terá oito núme- 
ros decimais. A declaração DATA ne- 
cessária para entrar os dados no com- 
putador ficará assim: 

DATA 16.56.16.124.16,16,16.0 




De início, você pode ficar com a im- 
pressão de que esta é uma forma muito 
complicada de fazer o trabalho. No en- 
tanto, depois de meia dúzia de tentati- 
vas, seu ritmo de trabalho se tornará su- 
ficientemente rápido. Além disso, as 
combinações mais comuns, como 255 
(ou 11111111 em binário), serão logo 
memorizadas, poupando -as da necessi- 
dade de fazer cálculos para chegar ao 
sistema decimal. 



DE BINÁRIO PARA HEXADECIMAL 



Converter números binários em he- 
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xadecimais é ainda mais fácil. Para is- 
so, basta aplicar a tabela a seguir, não 
sendo necessário nem mesmo escrever 
nela os números binários: 

Binário Hexadecimal 

0000 o 

0001 1 

0010 2 

0011 3 

0100 4 

0101 5 

0110 6 

0111 7 

1000 8 



1010 A é 0001. Em hexa temos, pela tabela, I. 

1011 B A segunda metade é 0000. Em hexa, te- 

1100 c mos 0. Escreva os dois números juntos 

1101 D e teremos 1 0, o hexa correspondente ao 

1110 ■ binário 00010000. 

' De forma similar, na segunda linha 

Desta vez não ignore os zeros. Para lemos 001 1 (que é 3 em hexa) e 1000 (8 

começar, tome os primeiros quatro dí- em hexadecimal). Assim, o número he- 

gilos do número binário e procure o seu xadecimal compleio é 38. 
equivalente em hexa. Em seguida, faça Repita o processo até a última linha 

o mesmo com os quatro dígitos seguin- e terá oito números hexadecimais. A sua 

tes. A reunião dos dois dígitos hexade- declaração DATA completa ficará co- 

cimais obtidos define o número que vo- mo segue: 
cê precisa. 

Voltando à cruz de Lorena, a primei- i 

ra metade do binário da primeira linha data lo. 38, 10, 7c, 10,10,10,00 : 
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Além disso, a única coisa a fazer é di- 
zer ao computador (que não pode adi- 
vinhar) se o número que você está digi- 
tando é decimal ou hexa. Veja como fa- 
zer isto na seção específica do seu com- 
putador. 

Evidentemente, é possível escrever 
um pequeno programa para fazer a con- 
versão de bases numéricas, mas ele não 
será muito útil se você quiser modificar 
alguma informação que já esteja na me- 
mória do computador. 



O TRS-Color aceita DATA em deci- 
mal, hexa ou binário. 

Se os dados (DATA) estão em hexa, 
você terá que adicionar uma linha extra 
ao programa para convertê-los em de- 
cimal (veja a seguir). 




O primeiro programa desenha um pe- 
queno avião no canto superior esquer- 



do do video. Este pode não ser o me- 
lhor lugar para vê-lo; mas é o mais fácil 
para começar, se você quiser fazer um 
programa para movimentá-lo pela tela. 

20 PMODE 4,1 
30 PCLS 
40 5CRCEN 1,1 
60 FOR L-0 TO 7 
70 READ US 

80 POKE L*32 + 1536.VAL<"S.H"*NS) 
90 NEXT L 
110 GOTO 110 

500 DATA 00. 10, 18, 9C. FF. 9C. 18.1 

0 

Digite o programa e execute-o. 

PMODE 4,1 foi escolhido na linha 20 
porque só se pode produzir gráficos 
UDG quando neste modo de resolução 
gráfica mais alta. 

Para limpar a tela sobre a qual vai se 
desenhar, deve-se usar o comando 
PCLS como na tinha 30. Ele se aplica 
não só ao PMODE 4,1, como a todos 
os modos de alta resolução. 

Use SCREEN 1,1, como na linha 40, 
para ligar a tela de alta resolução de for- 
ma a mostrar o seu UDG. SCREEN 1,1 
também seleciona as cores branca e pre- 
ta. 

O laço FOR... NEXT das linhas 60 e 
90 faz com que a linha 70 seja executa- 
da oito vezes. Toda vez que encontra 




READ N$, o computador lê o dado se- 
guinte da linha DATA de número 500. 

A linha 80 é importante por duas ra- 
zões. A primeira é que ela faz com que 
o padrão de pontos definido pela linha 
500 apareça no vídeo. A segunda é que 
ela converte os números hexadecimais 
da linha DATA em decimais e coloca- 
os diretamente na área de memória que 
controla o que aparece na tela do com- 
putador. 

Finalmente, a linha 1 10 é um laço que 
mantém a alta resolução. Sem essa linha 
o programa terminaria, provocando o 
retorno automático para o modo texto; 
em consequência, você não veria o seu 
desenho na tela. 



GRÁFICOS UDG MAIS ALTOS 



Você pode criar um UDG "alto e ma- 
gro", em vez de um 8x8, mudando a li- 
nha 60 e alterando os dados da linha 
500. Em primeiro lugar, modifique a li- 
nha 60 para: 
60 FOR L-0 TO 7 

Em seguida, mude a linha 500 de for- 
ma que fique assim: 

500 DATA 00, 10, 18, 9C. FF, 9C. 18,1 
0 

A alteração na linha 60 permite a lei- 
tura de um maior número de dados da 
linha 500. E esta define a imagem de um 
coelho, usando hexadecimais. Assim, ao 
executar o programa, você encontrará 
a figura do coelho na tela. 




Esse método permite a criação de grá- 
ficos de qualquer tamanho. Se você já 
desenhou a sua figura em papel quadri- 
culado, conte quantas linhas foram usa- 
das. Altere a linha 60 usando o número 
de linhas do desenho. A seguir, faça com 
que o número de informações da linha 
DATA corresponda ao número de vezes 
que o laço FOR...NEXT for executado. 
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GRÁFICOS UDG MAIS LARGOS 



O desenho de figuras baixas e largas 
(em vez de alias e estreitas) exige um 
pouco mais de trabalho. 

Comece mudando as linhas 60 e 80 
da seguinte forma: 



Altere a linha DATA de forma que 
apareça assim: 

500 DATA 0F,OF.EF,EF,EF.EF,FE,4 
4, FF. FF. FF. FF. FF. FF. 40. 00. FF, FF 
.FF. FF. FF, FF, 66. 66 

Finalmente, adicione estas linhas: 



Quando você executar o programa, 
verá na teia a figura de um caminhão de 
carga. 




Como isto funciona? Os 24 trechos 
de informação da linha 500 formam três 
quadrados de oito pixels de lado. Se os 
dados fossem lidos por um único 
FOR...NEXT como antes, o caminhão 
apareceria de forma peculiar, cortado 
em três pedaços que se amontariam no 
vídeo. Assim, o computador deve ser 
avisado para colocar os blocos lado a la- 
do. Para fazer isso, um laço extra alte- 
ra o valor do POKE na linha 80, de for- 
ma que o segundo bloco apareça na li- 
nha do topo, ao lado do primeiro. De- 
pois de ser lido, o terceiro bloco é colo- 
cado ao lado dos outros dois por inter- 
médio do comando POKE. 



MOVIMENTE OS DESENHOS 



Você pode mover a figura do avião 
pela tela usando estas linhas: 

110 DIM A<3) ,B<3) 

120 GET <0.0)-<7. 7) ,A,G 

130 PCLS 

140 LET X-127 

150 LET Y-95 

160 PUT (X,Y)~(X+7.Y+7) .A.PSET 
170 LET LX-X 
180 LET LY-Y 

190 IF PEEK(338)-251 AND Y>2 TH 

EN Y-Y-2:GOTO 240 

200 IF PEEK£342)-253 AND Y<182 

THEN Y-Y+2:GOTO 240 

210 IF PEEK(340)«247 AND X>3 TH 




EN X=X-3:GOTO 240 

220 IF PEEK(338)-247 AND X<245 

THEN X-X*3:GOTO 240 

230 GOTO 190 

240 PUT (LX.LY)- (LX+7.LY + 7) .B,P 
SET 

250 GOTO 160 

Quando você executar este programa, 
a tecla Z movimentará a figura para a 
esquerda; X o fará para a direita; P pa- 
ra cima; e L para baixo. 

O comando GET permite ao compu- 
tador lembrar-se do que está em um de- 
terminado ponto da tela, enquanto PUT 
coloca o que foi encontrado em qual- 
quer outro lugar. DIM, por sua vez, re- 
serva espaço na memória para GET. 

As linhas 190 até 220 verificam se 
uma tecla foi pressionada e movem o 
UDG em caso positivo. 

Se você quiser mover o coelho deve 
fazer as seguintes alterações: 

110 DIM A(6) ,B(6) 
120 GET (0.0) -(7,23) ,A,G 
160 PUT (X,Y)-(X+7,Y+23) .A.PSET 
200 IF PEEK(342)-253 AND Y<166 
THEN Y-Y+2:GOTO 240 
240 PUT (LX,LY)-(LX+7.LY+23) ,B, 
PSET 



110 DIM AI6) ,B{6) 

120 GET (0.0)-{23, 7) ,A,G 

160 PUT (X,Y)-(X+23,Y+7) , A, PSET 

200 IF PEEK(342)-253 AND Y<182 

THEN Y»Y+2:GOTO 240 

220 IF PEEK(338)-247 AND X<229 

THEN X-X+3:GOT0 240 

240 PUT (LX , LY) - (LX+23 . LY+7) . B , 

PSET 



COMO USAR DADOS EM BINÁRIO 



Você pode colocar números em biná- 
rio nas linhas DATA, se quiser, mas 
certifique-se antes de que cada número 
consiste de. um byte de oito bits. Você 
terá, também, que adicionar estas linhas 
ao programa: 

71 LET N-0 

72 FOB J-l TO 8 

74 IF MIDS(NS.J.l)- 
+2' (B-J) 
76 NEXT J 



1- THEN N-N 



80 POKE L*32+1536+F.N 



Para movimentar o c 
estas modificações: 



As novas linhas examinam os bytes 
bit por bit, transformando-os em núme- 
ros decimais. Estes são, resumidamente, 
equivalentes aos da tabela de conversão 
nhão, faça mostrada na introdução deste artigo. ■ 
A movimentação de figuras em alta| 
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resolução será apresentada em detalhes 
num artigo próximo. 
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No Apple, entretanto, a geração de fi- 
guras em alta resolução não segue os 
mesmos padrões de outros computado- 
res, sendo muito mais complicada (em ar- 
tigo anterior, publicamos um editor de fi- 
guras móveis que permite aos usuários 
desse microcomputador utilizarem figu- 
ras compostas por blocos de 8x8 pontos), 

Neste artigo você poderá treinar a uti- 
lização do editor de figuras. Os progra- 
mas a seguir só funcionarão se as figu- 
ras correspondentes tiverem sido gera- 
das peio editor. 

Carregue o programa editor de figu- 
ras no seu computador e coloque o de- 
senho do pequeno monstro a seguir em 
linhas DATA usando asteriscos. 




Que sistema de numeração — biná- 
rio, decimal ou hexa — é melhor usar 
nas linhas DATA? 

Dependendo das características do 
seu computador, pode ser melhor usar 
o sistema binário. Além de permitir a 
visualização do padrão do desenho, 
evitando contas, o sistema binário pos- 
sibilita alterações de pequenas partes 

Se você quiser empregí 

programas, vale a pe- 
converter os números para decimal 
hexa, que são mais compactos. 
A utilização de números hexadeci- 
' '-los a se familiarizar com 
esse sistema, que é a base da progra- 
mação em código de máquina. 



Execute o programa editor e a figu- 
ra será armazenada na memória. Feito 
isso, digite NEW e o seguinte programa: 

10 HOME : HGR 

20 SCALE= 1 : ROT- 0 

30 X - 140:Y - 90 

40 GOTO 200 

50 LX - X:LY - Y : GET AS 

60 A ' ASC (AS) 

70 IF A - 80 AND Y > 8 THEN Y 

- Y - 4: GOTO 200 

80 IF A - 76 AND Y < 150 THEN 

Y - Y + 4: GOTO 200 

90 IF A - 90 AND X > 8 THEN X 

= X - 4: GOTO 200 

100 IF A = 88 AND X < 270 THEN 

X - X + 4: GOTO 200 
110 GOTO 50 
200 HCOL0R- 0 
210 DRAW 1 AT LX,LY 
220 HCOLOR= 3 
230 DRAW 1 AT X,Y 
240 GOTO 50 

Não há necessidade de copiar as li- 
nhas DATA geradas pelo programa edi- 
tor. Uma vez criada, a figura permane- 
cerá protegida no topo da memória até 
que o computador seja desligado, ou até 
que o programa editor crie outra forma. 
Nem mesmo NEW pode destruí-la. 

O programa movimenta a figura com 
o auxílio das teclas P, L, X e Z. As li- 
nhas 50 a 110 fazem isso da maneira 
usual. 

As linhas de 10 a 40 cuidam das con- 
dições iniciais: limpeza e definição da te- 
la, escala, orientação e posição inicial da 
figura. 



As linhas de 200 a 240 apagam o 
monstro de sua última posição, dada 
por LX e LY, e o desenham na nova, 
dada por X e Y. 



DESENHOS MAIS LARGOS 



Desenhos compostos de mais de um 
bloco de 8x8 pontos exigem um cuida- 
do especial com as coordenadas. Esse 
cuidado é necessário para que as figu- 
ras se posicionem de acordo com o pla- 
nejado. Para familiarizar-se com esse ti- 
po de desenho, gere os dois blocos que 
compõem o cachorro com o auxilio do 
programa editor. 




Feito isso, digite NEW e carregue o 
programa anterior. Faça as seguintes 
modificações para mover o cachorro: 
100 IF A = 8B AND X < 260 THEN 

X - X + 4: GOTO 200 
215 DRAW 2 AT LX * 3 , LY 
235 DRAW 2 AT X + 8 , Y 

A condição após AND na linha 100 
evita que o desenho ultrapasse a margem 
direita da tela. Ela teve que ser modifica- 
da porque agora o desenho é mais largo. 

Como a figura tem dois blocos de 8x8 



J 
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pontos, foi necessário colocar duas no- 
vas linhas com comandos DRAW, uma 
para desenhar e outra para apagar o se- 
gundo bloco. 

É importante notar como são de- 
senhados lado a lado os blocos que 
compõem o cachorro, ou seja, da es- 
querda para a direita, e de cima para 
baixo. Assim, as coordenadas no co- 
mando DRAW se referem ao canto su- 
perior esquerdo de cada bloco. Se o pri- 
meiro bloco está desenhado nas coorde- 
nadas X, Y, e queremos que o segundo 
seja colocado à sua direita, a posição 
deste último deve ser X + 8, Y. Isso acon- 
tece porque o canto superior esquerdo 
do segundo bloco deve ficar na mesma 
linha do canto superior esquerdo do pri- 
meiro (mesma coordenada vertical Y) 
oito pontos mais à direita. 



UMA FIGURA ALTA E MAGRA 



Continuando nosso treino, carregue 
novamente o editor e gere os dois blocos 
que desenham a silhueta de um homem. 




Digite NEW e carregue o programa 
que movimenta o monstro. Faça então 
as seguintes modificações para mover o 
homem. 

80 IF A = 76 AND V. < 140 THEN 

Y « Y + 4: GOTO 200 

215 DRAW 2 AT LX.LY + 6 

7 35 DRAW 2 AT X.y + 8 

Da mesma maneira que no exemplo 
anterior, a condição na linha 80 teve que 
ser modificada para que o desenho, ago- 
ra mais alto, não ultrapasse a margem 




inferior da tela. 

As linhas 215 e 235 apagam e dese- 
nham, respectivamente, o segundo blo- 
co. Se quisermos colocá-lo abaixo do 
primeiro bloco, teremos que situá-lo na 
mesma coluna, oito pontos mais embai- 
xo. Assim, se a posição do primeiro blo- 
co for X, Y, a do segundo deverá ser 
X.Y + 8. 



Embora o MSX possua caracteres de- 
finiveis pelo usuário (com 8x8 pontos, 
como nas outras máquinas), geralmen- 
te é preferível utilizar os sprites, que são 
mais versáteis e mais adequados à mo- 
vimentação de figuras. 

Todavia, existem situações em que es- 
ses caracteres podem ser muito úteis. 
Uma aplicação muito comum é a rede- 
finição total ou parcial do conjunto de 
caracteres. Isso às vez.es é desejável em 
programas que devem utilizar alfabetos 
estrangeiros ou caracteres gráficos dife- 
rentes. 

O conjunto de caracteres do MSX é 
muito completo, contendo todo o alfa- 
beto grego e uma infinidade de outros 
caracteres gráficos. Falta-lhe, porém, a 
letra è (com acento grave), utilizada na 
língua francesa. 

Para criar esse caractere, aplique o 
mesmo método já descrito neste artigo. 
A tabela que se segue traz a codificação 
do padrão do caractere desejado, pronta 



para ser colocada em uma linha DATA. 


Binário 


Hex 


Decimal 


00010000 


10 


16 


00001000 


0B 


Q 


00111100 


3C 


60 


01100110 


66 


102 


01111110 


7E 


126 


01100000 


60 


96 


00111100 


3C 


60 


00000000 


00 


0 




O formato decimal é mais fácil de 
usar. Mas mais difícil de calcular. O 
MSX aceita números binários e hexade- 
cimais, desde que certos padrões sejam 
respeitados. 

Para incorporar o novo caractere, use 
o programa: 

10 SCKEEN 0 : KEY OFF 
20 FOR 1-0 TO 959 
30 VPOKE BASE(0)+I,205 
40 NEXT 
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50 E-205*8 

60 FOHI-E TO E+7 

70 READ BS 

80 VPOKE BASE(2)+I.VALCS.B"+BS) 
90 NEXT I 

J00 FOR 1-1 TO 2000:NEXT I 
110 CLS : END 

500 DATA 00010000 

501 DATA 00001000 

502 DATA 00111100 

503 DATA 01100110 

504 DATA 01111110 

505 DATA 01100000 

506 DATA 00111100 

507 DATA 00000000 

Ao ser execulado o programa, a tela 
é ocupada por um símbolo gráfico. Em 
seguida esse símbolo se transforma no 
caractere que procuramos, ou seja, a le- 
tre è com acento grave. Após alguns ins- 
tantes, a tela fica novamente limpa. O 
novo caractere, contudo, continua na 
memória e pode ser obtido da mesma 
maneira que o símbolo gráfico do qual 
tomou o lugar. Para isso, basta pressio- 
nar as teclas GRAPH e "E" ao mesmo 
tempo. O caractere só desaparecerá da 
memória quando utilizarmos o coman- 
do SCREEN ou quando desligarmos o 
computador. 



A linha 10 escolhe a tela de textos 
com 40 colunas e apaga do rodapé da 
tela as teclas de função. O laço das li- 




PHOGRAMAS EDITORES 

Crie suas próprias figuras no Apple 
e no MSX. utilizando os programas edi- 
tores fornecidos por INPUT para estes 
computadores. Eles calcularão os nú- 
meros nas linhas DATA para você. 

Lembre-se de que não será preciso 
digitar essas linhas. Ambos os compu- 
tadores possuem facilidades de edição 
que permitem usar -a própria tela pro- 
duzida pelo editor — uma vez interrom- 
pido o programa — para criar uma linha 
DATA com um número alto na frente 
(a partir de 5000). 

No M5X isto é feito com as teclas 
do cursor, INS, DEL e ENTER. No Ap 
pie, com ESC. I, J, K, M, setas e RE 
TURN. 

No Apple e no TK-2000 pode-se 
gravar a tabela de figuras usando o co- 
mando W do monitor. Quem tiver dis- 
co, pode usar o comando BSAVE. 



nhãs 20 a 40 enche a tela com o caracte- 
re de código igual a 205 — correspon- 
dente a GRAPH + E. 

Os padrões de todo o conjunto de ca- 
racteres estão guardados na VRAM — 
memória de vídeo — a partir do ende- 
reço dado por BASE (2). Para saber co- 
mo é o formato de um caractere, o com- 
putador multiplica o valor de seu códi- 
go por 8 e soma esse valor ao de BASE 
(2). O número que resultar dessa conta 
será o endereço do primeiro de uma sé- 
rie de oito bytes onde ficará armazena- 
da a forma do caractere. 

A linha 50 multiplica por 8 o códi- 
go do caractere que vai ser modificado, 
para saber onde seu formato está na 
VRAM. O laço das linhas 70 a 90 colo- 
ca nesse local o padrão do novo carac- 
tere; os números são lidos com READ 
nas linhas DATA. Na linha 80, VAL 
<&B + B$) permite que sejam utilizados 
números binários. 

A linha 100 retarda o processo até 
que a linha 110 apague a tela e termine 
o programa. 

Se for preciso economizar espaço, as 
linhas DATA podem ser substituídas 
por uma única linha. 

500 DATA 00010000,00001000,0011 
1100.01100110,01111110.01100000 
.00111100.00000000 

Essa linha única, porém, não permite 
que se visualize claramente o caractere. 

Se quisermos usar números hexade- 
cimais, devemos fazer as seguintes mo- 
dificações: 



Uma linha DATA desse tipo é bem 
mais fácil de ser digitada. 

Para criar o mesmo caractere na tela 
de textos com 32 colunas, faça as seguin- 
tes modificações: 

20 FOR 1-0 TO 767 

30 VPOKE BASE (5) +1 , 205 

80 VPOKE BASE(7)+I,VALCS.H"+B$) 

Note que a linha DATA deve estar 
em hexa. 



O Spectrum aceita dados tanto em bi- 
nário quanto em decimal, mas não em 
hexa. Para ver como ele trabalha com 
gráficos, digite: 

PBINT (graphics A) " 

Para poder obter o símbolo (graphics 
A), você deverá pressionar <CAPS 
SHTFT> e < GRAPHICS > ao mesmo 



tempo e depois teclar "A". 

O que você vê parece um A maiús- 
culo normal. Mas você pode defini-lo 
como uma forma de 8x8 pontos. 

Para fazer isto, tudo o que você pre- 
cisa é de um programa de cinco linhas. 
Assim, se você quiser plantar o pinhei- 
ro da ilustração, deve digitar as tinhas 
a seguir: 

10 FOB n-0 TO 7 
20 READ data 

30 DATA BIN 00010000, BIN 0001 
1000, BIN 00111000, BIN 0011110 
0.BIN 01111100.BIN 01111110, 
BIN 111H110.BIN 00010000 
40 POKE USH "a"+n,data 
50 NEXT n 

Esse programa usa um laço 
FOR...NEXT nas linhas 10 e 50 para dar 
entrada às oito linhas do desenho em se- 
quência. A linha 20 diz ao computador 
para ler dados na linha DATA e a linha 
40 coloca esses dados na memória do 
computador, usando o comando POKE. 

Execute o programa e digite: 
PBINT "(graphics A)" 




Você verá que o "A" d 
em seu lugar aparece um pinheiro. Se 
você digitar NEW agora, o programa se- 
rá apagado da memória, mas o desenho 
ficará na memória até que o computa- 
dor seja desligado. Assim, você pode 
movê-lo pela tela ou usá-lo para efeitos 
decorativos como se ele fosse um carac- 
tere qualquer. Tente este exemplo: 

5 CLS 
10 FOR y-3 TO 19 
20 LET x-INT <RND*20)+5 
30 PBINT AT y,x; INK 4 ; " {grap 
hics A) " 

40 LET XX-INT (RND*20)+5 

50 PBINT AT y.xx; INK 2;"<gra 

phics A) " 

60 NEXT y 

Esses pinheiros poderiam ser usados 
o obstáculos para um jogo de esqui. 



Quando você quiser criar gráficos 
maiores que 8x8, desenhe dois ou mais 
blocos de 8x8. 

O programa a seguir, por exemplo, 
cria a proa de um destróier (que você po- 
de colocar em um de seus jogos, usan- 
do as técnicas apresentadas em Progra- 
mação de Jogos) : 



Ill 
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10 FOR n-0 TO 7 
20 READ a 

30 DATA BIN O.BIN O.BIN O.BIN 
00000111, BIN 00000011, BIN 111 
11111, BIN 00000011.BIN 111111 
11. BIN 01111111, BIN 00111111 
40 POKE USR "a"+n,a 
50 NEXT n 

Dois aspectos devem ser ressaltados. 
Primeiro: você pode usar BIN 0 se a li- 
nha inteira for vazia. Segundo: coloque 
na linha 20 uma variável simples "a" em 
lugar de "data", que foi inserida no 
programa anterior para que este ficasse 
mais compreensível. Poderia ser qual- 
quer outra coisa, como "b", "c" ou 
"x", ou mesmo "maria"; mas para is- 
so deveria ser utilizada uma variável 
idêntica na linha 40. 

Quando você for entrar os dados pa- 
ra as outras duas partes do navio, não 
haverá necessidade de redigitar o progra- 
ma todo. Depois de executá-lo a primei- 
ra vez, e com o primeiro gráfico na me- 
mória, mude a linha 40 para USR "b", 
por exemplo. Mude também a linha 30 
de modo que ela passe a conter os no- 
vos dados das outras partes do navio. 



Tome cuidado para que as suas linhas 
DATA tenham sempre oito dados, mes- 
mo que estes sejam apenas zeros. Um 
número menor de linhas provocará um 
erro do tipo: E Out of DATA, 20: 1 . Co- 
loque linhas a mais e você descobrirá 
que seu navio está afundando. 

Finalmente, para entrar os dados em 
decimal, converta os binários de acor- 
do com o método já descrito; a seguir, 
coloque-os na linha DATA omitindo a 
palavra BIN. A linha 30 do programa 
do destróier ficará assim: 

30 DATA 0.0,0.7,3.255,127.63 



SQMH1E] 

Uma vez compreendidos os princí- 
pios gerais, você pode colocar no com- 
putador qualquer um dos gráficos des- 
ta página. Depois de ter feito uns três 
deles, você verá que já tem prática sufi- 
ciente para criar os seus próprios dese- 
nhos e colocá-los no computador. 
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UM ASSISTENTE 
DE ARTE 



Mesmo não sendo um Leonardo da Vinci, 
você pode realizar belos 
desenhos com a ajuda do computador. 
Para isso, basta executar o 
programa apresentado nesta lição. 



Você não precisa ser um Rafael ou 
mesmo um Pablo Picasso para desenhar 
com desenvoltura. Devidamente progra- 
mado, seu computador pode se transfor- 
mar em uma poderosa ferramenta de de- 
senho, capacitando-o a realizar traba- 
lhos gráficos de boa qualidade com li- 
berdade igual (ou até maior) que a de 
um artista que trabalha apenas com ma- 
terial convencional: lápis e papel. 

Na indústria, a combinação de pro- 
gramas de Desenho Auxiliado por Com- 
putador (conhecido pela sigla CAD, da 
expressão em língua inglesa Computer 
Aided Design) com computadores de 
grande porte permite não só a execução 
de desenhos de objetos com muita rique- 
za de detalhes como também a simula- 
ção de situações em que tais objetos são 
submetidos à ação de determinados fa- 
tores como carga, vento, vibração ou 
variações térmicas. Essas técnicas extra- 
polam a capacidade do micro domésti- 
co, visto que exigem o processamento de 
um volume muito grande de dados, as- 
sim como uma capacidade gráfica alta- 
mente desenvolvida, para que se possa 
produzir imagens de vários ângulos do 
objeto em estudo. 

Frequentemente, no entanto, o dese- 
nhista necessita apenas estudar um de- 
talhe ou a aparência geral do objeto. 
Nestes casos, o CAD se torna uma fer- 
ramenta capaz de substituir lápis e pa- 
pel na execução de desenhos técnicos, 
permitindo o traçado preciso de curvas, 
linhas retas e figuras geométricás, com 
a vantagem da possibilidade de correção 
instantânea. 



VANTAGENS DO PROGRAMA 



O CAD pode ser aplicado aos com- 
putadores domésticos, seja para explo- 
rar o aspecto técnico do desenho, seja 
para produzir belas formas. Mas, ape- 
sar de quase todos os micros existentes 
no mercado brasileiro (com exceção das 
linhas Apple e TRS-80) já apresentarem 
comandos para desenhar formas ele- 
mentares dentro do BASIC, é sempre 
necessário um longo programa para se 
construir formas mais sofisticadas. 
Exemplos de como isto é feito já foram 
apresentados em artigos anteriores. 



A beleza do programa editor de de- 
senhos consiste em que, uma vez na me- 
mória do computador, ele possibilita a 
criação de imagens até o limite gráfico 
da máquina, sem que seja necessário ela- 
borar novos programas. Além disso, ele 
coloca todos os comandos para gráficos 
sob o controle direto do teclado; dessa 
forma, tudo o que se tem a fazer é es- 
colher uma opção ou mover o cursor 
usando as teclas apropriadas. Esse re- 
curso oferece, em alguns casos, possi- 
bilidades que não são encontradas no 
BASIC padrão do computador. 

Como as habilidades gráficas dos di- 
versos micros variam muito, existem 
grandes diferenças entre os programas, 
esquematizados para explorar ao máxi- 
mo as vantagens e minimizar as fraque- 
zas do computador ao qual estão desti- 
nados. Os Spectrum, por exemplo, po- 
dem mostrar facilmente texto e gráficos 
na mesma tela, o que é impossível nos 
micros das linhas Apple e TRS-Color. 
Por outro lado, estes podem guardar de- 
senhos que não estão à vista, enquanto 
o MSX, por exemplo, não pode. 

Devido à limitada capacidade gráfi- 
ca do ZX-81, não apresentaremos pro- 
grama para esse micro. O programa pa- 
ra o Sinclair Spectrum rodará somente 
em máquinas com um mínimo de 48K. 



AUXILIO AO DESENHO 



Apesar das diferenças, os programas 
funcionam de forma semelhante: o 
usuário é apresentado a um menu (ou 
lista) de opções de desenho, que ofere- 
ce formas como linhas, elipses, círculos 
ou retángulos. Ao selecionar uma delas, 
você pode construir formas muito inte- 
ressantes, usando as teclas de controle 
do cursor para posicioná-lo na tela; as 
linhas resultantes serão precisas e regu- 
lares. E se um erro for cometido, alguns 
computadores lhe darão a oportunida- 
de de correção. 

Você encontrará também a opção de 
mudar a cor com que desenha ou, em 
alguns casos, de colorir uma determina- 
da área. Quando terminar, pode esco- 
lher entre apagar tudo e recomeçar ou 
gravar a imagem de forma que ela pos- 
sa ser recolocada na tela, mais tarde. Is- 




to lhe possibilitará também carregar na 
memória (e alterá-lo) um desenho de seu 
agrado que não tenha sido montado por 
este programa. 



EXECUTE 0 PROGRAMA 



As diterenças entre as diversas má- 
quinas serão explicadas nos blocos es- 
pecíficos. Em todos os casos, o progra- 
ma aparece dividido em duas partes: 
nesta lição trataremos da primeira (de- 
senhos com linhas simples); a segunda 
parte, com variações mais sofisticadas, 
será abordada no próximo artigo. 



Um menu e o cursor serão mostrados 



Illllllll 
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m 


DESENHE COM A AJUDA DO 


COMPUTADOR 


■ 


COMO ESTENDER OS COMANDOS 


GRÁFICOS JÁ EXISTENTES 


■ 


COMO USAR 0 PROGRAMA 



■ 


APRENDA A DESENHAR A 


MAO LIVRE 


■ 


COMO OBTER MAIOR PRECISÃO 


USANDO A OPÇÃO "LINHA" 


■ 


APRENDA A USAR CORES 




na tela, assim que o programa for exe- 
cutado. Para selecionar um item do me- 
nu, coloque o cursor à sua esquerda, 
usando as teclas Q (para cima). A (para 
baixo), O (para a esquerda) e P (para a 
direita). Em seguida, pressione <EN- 
TER> para fazer a escolha; o vídeo se- 
rá apagado, deixando o cursor numa te- 
la vazia. Você poderá, a qualquer mo- 
mento, retornar ao menu (ou deixá-lo) 
apenas pressionando <ENTER>. 

A primeira opção do menu é "Dese- 
nhar", que coloca pontos na tela. Para 
usar essa opção, posicione o cursor no 
ponto em que você deseja iniciar o de- 
senho e pressione a barra de espaços. Ao 
ser movimentado, o cursor deixará uma 
trilha de pontos. O movimento pode ser 
acelerado pressionando-se a tecla 
<SHLFT> juntamente com a tecla que 
controla a direção do deslocamento. Pa- 



ra terminar a linha desenhada, acione a 
barra de espaços novamente, o que lhe 
permitirá mover o cursor sem marcar a 
tela ou retornar ao menu para selecio- 
nar outra opção. 

A opção "Linha" funciona de for- 
ma semelhante à anterior. A diferença 
é que a linha obtida é cheia: pressione 
< ENTER > para selecioná-la e tecle a 
barra de espaços para desenhar e nova- 
mente para terminar. A opção selecio- 
nada permanecerá disponível até que 
uma nova seja escolhida. Dessa forma, 
pode-se ir até outro ponto e iniciar uma 
nova linha, e assim por diante. 

Existem duas opções que lhe permi- 
tem colorir a tela: "Fundo", para pin- 
tar a moldura e o fundo e "Tinta", pa- 
ra colorir à medida que se desenha. Se- 
lecionada uma dessas alternativas, uma 
mensagem será mostrada para que vo- 



cê escolha as cores. O cursor lhe mos- 
trará a cor em uso, de forma que se po- 
derá ver o efeito instantaneamente. 

Depois de ter respondido a todas as 
questões, o programa volta ao desenho, 
com o cursor no local onde foi deixa- 
do. Pode-se fazer a opção "Tinta" an- 
tes ou enquanto se desenha. Somente 
após se ter deixado a opção de desenho 
(ao pressionar a barra de espaços pela 
segunda vez) é que a linha será fixada. 

Atenção, o programa contém código 
de máquina, de forma que deve ser gra- 
vado (SAVE) antes de se executar 
(RUN). 

10 BORDEH 4: PAPER 7: INK 0: 
OVER 0: CLS 

20 POKE 23656,0: LET OP-1 
40 DIM 0(12): FOR N-l TO 12: 
READ 0<N): NEXT ti : LET x-127: 

LET y-87 
60 LET Jll-x: LET yl-y 
65 LET xx-0: LET yy-0 
70 FOR n-6S368 TO 65368+73: 
READ a: POKE n,a: NEXT n 
100 RAND USR 65380 
1020 PRINT INK 9;AT 2,9;" 



INK 9;AT 4,9:' 
INK 9; AT 5,9;' 
INK 9;AT 6.9;' 
INK 9;AT 7,9;' 



1040 PRINT 
NHA 

1050 PRINT 
NDO 

2060 PRINT 
KTA 

10 70 PRINT 
T ANGULO ■ 

1080 PRINT INK 9;AT 8,9:" 

IXA " 

1090 PRINT INK 9;AT 9,9;" 
RCULO 

1100 PRINT INK 9;AT 10,9:' 
PAGAR 

1110 PRINT INK 9;AT 11.9;' 
OPS ■ 

1115 PRINT INK 9;AT 12.9;' 
OPIAR " 
1120 PRINT 
ARREGAR 
1130 PRINT 
RAVAR 
1140 PRINT 



INK 9;AT 13,9; 
INK 9;AT 14,9; 
INK 9;AT 15,9; 



1150 PLOT 72.48: DRAU INK 9;11 
1,0: DRAW INK 9:0,111: DRAW I 
NK 9r-111.0: DRAW INK 9:0,-111 
1155 FOR n-l TO 100: NEXT n 
1160 PRINT INVERSE 1; PAPER 9:. 
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AT OP+2.10;":>" 

1170 PAUSE 0: LET AS-INKEYS: IF 

AS-"" THEN GOTO 1170 
1175 IF AS-CHRS 13 AND OP-9 THE 
N RAND USR 65404: RAND USR 653 
68: GOTO 1000 

1180 IF AS-CHRS 13 THEN RAND U 
SR 65392: RAND USR 65368: FOR n 
-1 TO 100: NEXT n: GOTO O(OP) 
1190 PRINT AT OP+2,10;" * 
1200 IF A$-"a" THEN LET OP-OP+ 
I: IF OP-13 THEN LET OP-12 
1210 IF A$-"q" THEN LET OP-OP- 
1: IF OP-0 THEN LET OP-1 
1220 GOTO 1160 
2000 R em desenhar 
2005 FOR n-1 TO 50: NEXT n 
2010 GOSUB 8000 

2060 IF INKEYS-CHRS 13 THEN RA 
ND USR 65380: GOTO 1000 
2070 IF INKEYSOCHRS 32 THEN G 
OTO 2010 

2OB0 FOR n-1 TO 50: NEXT n 

2090 GOSUB 8000: PLOT X,y 

2095 IF INKEYS-CHRS 13 THEN RA 

ND USR 65380: GOTO 1000 

2100 IF INKEYS-CHRS .2 THEN GO 

TO 2005 

2110 GOTO 2090 

2500 REM linha 

2505 FOR n-1 TO 50: NEXT n 

2510 GOSUB 8000 

2515 IF INKEYS-CHRS 13 THEN RA 
ND USR 65380: GOTO 1000 
2520 IF INKEYSOCHRS 32 THEN G 
OTO 2510 

2525 FOR n-1 TO 50: NEXT n 
2530 LET xx-0: LET yy-0: LET hx 
-x: LET hy-y 

2540 GOSUB 8000: PLOT hx.hy: DR 
AW OVER l;XX.yy: FOR n-1 TO 5: 
NEXT n: PLOT hx,hy: DRAW OVER 



li: 
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2550 IF INKEYSOCHRS 32 THEN G 
OTO 2540 

2560 PLOT hx.hy: DRAW xx.yy: GO 
TO 2500 

3000 REM fundo e borda 

3010 PRINT *1:AT 0 . 0 ; "Cor de tu 



ndo (0 a ?)?" 

3015 LET aS=INKE¥S 

3020 IF aS<"0" OR aS>"7" THEN 

GOTO 3015 

3030 POKE 65535, VAL aS*6 

3035 RAND USR 65416 

3040 FOR n-1 TO 50: NEXT n 

3050 PRINT H:AT 0 . 0 ; 'Cor da bo 

rda (0 a 7)7" 

3060 LET aS-INKEYS 

3070 IF aS<"0" OR aS>"7" THEN 

GOTO 3060 

3080 BORDER VAL aS 

3090 PRINT #1;AT 0,0:" " ; TAB 31 

;" " : TAB 31 ; " " 

3095 RAND USR 65416: RAND USR 6 
5380: GOTO 1000 
3500 REM tinta 

3510 PRINT *1;AT 0 , 0 ; "Selecione 
tinta (0 a 7)" 
3520 LET a$- INKEYS : IF aS<"0" O 
R aS>"7" THEN GOTO 3520 
3530 INK VAL aS 

3540 PRINT tl ; AT 0,0;" " ; TAB 31 

; " "i GOTO 1000 

7500 GOTO 1000 

8000 REM rotina INKEYS 

8005 PLOT OVER l;x,y 

8010 LET AS-INKEYS 

8020 IF AS-"q" AND y<175 THEN 

LET yl-y+1: LET yy-yy+1 

8030 IF AS-"a" AND y>0 THEN LE 

T yl-y-1: LET yy-yy-1 

8040 IF AS-"P" AND x<255 THEN 

LET Xl-X+I: LET XX-xx+1 

8050 IF A$-"o" AND X>0 THEN LE 

T xl-X-1 : LET xx-XX-1 

8060 IF AS="Q" AND y<172 THEN 

LET yl-y+4: LET yy-yy+4 

8070 IF aS-"A" AND y>3 THEN LE 

T yl-y-4: LET yy-yy-4 

8080 IF aS-"P" AND x<252 THEN 

LET xl-x+4: LET xx-xx+4 

8090 IF aS="0" AND x>3 THEN LE 

T xl-x-4: LET xx-xx-4 

B095 PLOT OVER 1 ;x, y 

8100 LET x-xl : LET y-yl : RETURN 

9000 DATA 2000.2500.3000.3500,4 



000.4020.5000,5500,0,6000.7000. 
7500 

9010 DATA 17,0.64.33.80,195.1.0 

.27,237,176.201.17.60,195.33.0, 

64,1,0,27,237.176,201 

9020 DATA 17,168.222.33.80.195. 

1,0.27,237,176,201,17.80.195,33 

,168,222.1,0,27,237,176,201 

9030 DATA 33,0,88,6,4,197,6.176 

,203,158.203,166.203,174.58.255 

,255,134,119.35.16.242,193.16.2 

36,201 



O programa começa mostrando um 
submenu, que permite escolher valores 
para o modo, tela e cor. Use as setas pa- 
ra mover o cursor e a barra de espaços 
para fazer a seleção. 

Depois de escolher os valores apro- 
priados, pressione <ENTER> para ter 
o menu principal. Para acessar as op- 
ções, posicione o cursor (usando as se- 
tas) ao lado do número do item e pres- 
sione a barra de espaços. Isso propor- 
ciona a limpeza da tela, deixando-a com 
o cursor pronto para desenhar. Para re- 
tornar ao menu a qualquer momento, 
pressione < ENTER > . 

A primeira opção do menu principal 
é "Mudar a tela", que dá acesso ao sub- 
menu. A opção seguinte é "Desenhar", 
usada para desenhar a mão livre, como 
se faz com um lápis. Quando seleciona- 
da, essa opção permite mover o cursor 
até o ponto escolhido para dar começo 
ao desenho; enquanto a barra de espa- 
ços for mantida pressionada, uma linha 
permanecerá na tela. Para interromper 
o desenho, basta soltá-la. Pode-se ace- 
lerar o movimento pressionando-se 
<CLEAR> . Observe que isso só fun- 
ciona quando não se desenha. 
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Na próxima lição, você verá como adiciona 

Em qualquer das opções de desenho, 
pode-se mudar de cor pressionando-se 
um número entre 0 e 8: isto lhe forne- 
cerá a cor correspondente que consta do 
seu manual. Para sair de "'Desenhar" 
pressione < ENTER > , voltando ao me- 
nu principal. 

A opção "Traçar Linha" permite de- 
senhar linhas relas. Selecione a opção 
com as setas, desloque o cursor até o 
ponto onde deseja iniciar o desenho e 
pressione a barra de espaços. Escolha 
então a cor {números de 0 a 8). A cor 
do cursor depende da cor de fundo, mas 
não afeta a cor da linha. Mova o cursor 
até o ponto onde deseja terminar a li- 
nha e acione a barra de espaços para 
desenhá-la. Pressione < ENTER > pa- 
ra voltar ao menu principal. Tecle 
<CLEAR> para deixar o programa. 

10 PCLEAR 8 

20 CLS:PA«239:PB-223:PC-247:PD- 
191:PE-183 

30 DIM SCU228) ,CP(614) 

40 DEFFNR(Z)=SQR(<XS-X)*(XS-X)+ 

(T8-Y)MIS-Í)J 

50 MD--1 :ST"-1 :OP-l :CL-1 :X-127 : 
Y-95 

60 GOTO 80 

70 FOR K-l TO 1500:NEXT 
80 GOSUB 1000 

90 IF MD<0 THEN PRINT «449, "err 
o NAO FOI DEFINIDO MODO GR 
AFICO":GOTO 70 

100 IF ST<0 THEN PRINT «449. "er 

ro NAO FOI DEFINIDO TIPO DE T 

ELA" :GOTO 70 

110 OT-l:PMODE MD.l 

120 CLS:PRINT 67 , "MENU PRINCIPA 

L" 

130 PHINT §103. "1- MUDAR TELA" : 
PRINT «135, "2- DESENHAR" : PRINT 
«167, "3- TRAÇAR LINHA" : PRINT «1 
99. "4- RETANGULO" : PRINT «231. "5 
- CAIXA":PRINT «263. "6- CIRCULO 



140 PRINT 6295, "7- DISCO":PRINT 
«327, "8- ELIPSE" : PRINT 6359, "9 
- COPIAR":PRINT «390. "10- PREEN 
CHER" : PRINT «422, "11- ERRO" : PRI 
NT «454. "12- GRAVAR /CARREGAR" 
150 POKE 1097+OT-32.128 
160 IF PEEK(341)-PC AND 0T>1 TH 
EN POKE 1097+OT*32 ,96;0T=0T-1 : G 
OTO 150 

170 IF PEEK(342)=PC AND OT<12 T 
HEN POKE 1097+OT*32 . 96 : 0T=OT+l : 
GOTO 150 

180 IF PEEK(345)=PC THEN 200 
190 IF PEEK(339)=PD THEN CLS : EN 
D ELSE 160 

200 IF OTO 11 THEN 220 
210 PMODE MD.5:PUT (0 . 0) - í 255 . 1 
91),SC:GOSUB 500 i PMODE MD , 1 : GOT 
O 120 

220 GOSUB 510 

230 GET10, 0) - (255. 191) .SC 

240 EF=0 

250 ON OT GOSUB 1000.2000,3000. 
3000,3000,3000,3000.3000,4000,5 
000.0,6000 
260 GOTO 120 

500 FOR K-l TO 4:PCOPY K+4 TO K 
: NEXT : RETURN 

510 FOR K-5 TO 8 : PCOPY K-4 TO K 
: NEXT : RETURN 

1000 CLS. -PRINT «6, "preparação d 
a tela" 

1010 PRINT «102. "1- MODO GRAFIC 
O": PRINT «166,"2- TIPO DE TELA" 
:PRINT «230.-3- LIMPAR TELA" 
1020 PK-PEEK(1062+64*OP) :POKE 1 
062+64*OP,63 AND PK 
1030 IF PEEK(341)-PC AND OP>l T 
HEN POKE 1062+64*OP,PK:OP-OP-1: 
GOTO 1020 

1040 IF PEEK(342)-PC AND OP<3 T 
HEN POKE 1062+64*OP.PK:OP-OP+1: 
GOTO 1020 

1050 IF PEEK(33B)-PD THEN RE TUR 
N 

1060 IF PEEK(345)-PC THEN 1080 
1070 GOTO 1030 

1080 CLS:ON OP GOSUB 1200,1300, 
1400 



ilos mostrados na leia do TRS-Color. 

1090 FOR K-l TO 200 :NEXT :GOTO 1 
000 

1200 PRINT «33, "QUE MODO GRAFIC 
O DESEJA USAR (0-4) ?" ; 

1210 AS-INKEY$:IF AS<"0" OR AS> 
"4" THEN 1210 

1220 PRINT AS : MD- VAL ( AS ) : PMODE 
MD, 1: RETURN 

1300 IF MD<0 THEN PRINT «449. "e 
rro NAO FOI DEFINIDO MODO G 
RAFICO":FOR K-l TO 1000:NEXT:RE 
TURN 

1310 PRINT «33, "QUE TIPO DE TEL 
A DESEJA USAR (0 OU 1) 7": 

1320 AS-INKEYS:IF A$<"0" OR AS> 
"1" THEN 1320 

1330 PRINT AS : ST-VAL (AS) : RETURN 
1400 PRINT e33,"TEM CERTEZA QUE 

QUER LIMPAR A TELA (S/N)?" 
1410 AS=INKEY3:IF A3<>"S" AND A 
3<>"N" THEN 1410 
1420 IF A3--N" THEN RETURN 
1430 PRINT «129 , "COM QUE COR VO 
CE DESEJA LIMPAR A TELA (0-8)7 

1440 AS-INKEY$:IF AS<"0" OR AS> 
-8- THEN 1440 

1450 PRINT AS: PMODE MD,5:PCLS V 
AL (AS) ! PMODE MD.1:PCLS VAL (AS): 
RETURN 

1500 FOR K-0 TO 7:IF PEEK038+K 
)-PA THEN CL-K 

1510 NEXT : IF PEEK (338J-PB THEN 
CL -8 

1520 IF PEEK(338)-PD THEN EF-1: 
RETURN 

1530 DRAWBM"+STRS(X)+"."+STRS( 
y)+" ;C"+STRS( (PPOINTÍX. Y>+3)AND 
7)+"BE4G2BD4NF28L4NG2BU4H2- :CO 
LOR CL 

1550 IF PEEK(339)-PD THEN DF-10 

ELSE DF-1 
1560 IF PEEK(341)-PC THEN Y-Y-D 
F:G0TO 1610 

1570 IF PEEK(342)-PC THEN Y-Y+D 
F:GOTO 1610 

1580 IF PEEK(343)-PC THEN X-X-D 
F:GOTO 1610 

1590 IF PEEK(344)-PC THEN X-X+D 
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F:GOTO 1610 
1600 RETUBN 
1610 X-255 AND X 

1620 IF Y>191 OB Y<0 THEN Y-Y+l 
91»(2*(Y>191)+1) 
1630 GOSUB 500: RETUBN 
2000 SCBEEN 1, ST: GOSUB 1500 
2010 IF EF-1 GOSUB 500:BETUBN 
2020 IF PEEK(34S)-PC THEN PMODE 
MD.5:PSET(X,Y.CL) : PMODE MD,1:P 
OKE 345, 255 
2030 GOTO 2000 
3000 SCBEEN 1, ST, -GOSUB 1500 
3010 IF EF-1 GOSUB 500:RETUBN 
3020 IF PEEK(345)OPC THEN 3000 
3030 XS-X:YS-Y 
3040 GOSUB 1500 
3050 GOSUB 500 
3060 IF EF-1 THEN RETUBN 
3070 ON OT GOSUB 0,0,3130,3140, 
3140,3150,3150.3160,0,0,0 
30BO IF PEEK(345)-PC THEN 3100 
3090 GOTO 3040 

3100 IF OT-5 THEN LINE (X , Y) - (XS 
,YS) .PSET.BF 

3110 IF OT-7 THEN PAINT {X.YJ.C 
L.CL 

3120 GOSUB 510:GOTO 3000 

3130 LINE (XS , YS) - {X , Y) . PSET : BET 

URN 

3140 LINE<XS,YS)-{X.Y) .PSET.B.R 
ETURN 

3150 CIRCLE(X.Y) ,FNR(Z) ,CL:RETU 
RN 

3160 IF XSOX THEN 3190 

3170 IF(2-YS-Y)>191 OB (2'YS-Y) 

<0 THEN RETURN 

3180 LINE (X.Y)-(X,2*YS-Y) , PSET 
:BETURN 

3190 CIBCLE(XS,YS) .ABS(X-XS) ,CL 
. ABS l ÍY-YS) / <X-XS) ) : RETUBN 
4000 RETURN 
5000 RETURN 
6000 RETURN 



O programa começa oferecendo a 
possibilidade de trabalhar nas páginas 
1 ou 2 de gráficos de alta resolução. A 
seguir, escolhe-se a cor de fundo. 

Depois que a tela é preenchida com 
a cor de sua preferência, chega-se ao me- 
nu principal de opções. Tanto neste co- 
mo no programa anterior, seleciona-se 
o item desejado pressionando-se as se- 
tas do teclado até que o vídeo comece 
a piscar. Então, pressiona-se <CR> ou 
< RETURN > . 

Para desenhar linhas de qualquer ta- 
manho e em qualquer posição faça a op- 
ção "TRAÇAR LINHAS" (isso é feito 
da maneira usual). Posicione então o 
cursor em uma das extremidades da li- 
nha que você deseja. Pressione a barra 
de espaços. Você ouvirá um bip e um 
ponto aparecerá na tela. Mova o cursor 
até a outra extremidade da linha e acio- 
ne novamente a barra de espaços. Sua 



linha será traçada no mesmo instante. 

Se você quiser desenhar em outras co- 
res, pressione uma das teclas de 0 a 7. 
Cada uma delas lhe oferece a cor cor- 
responde, cuja tabela você encontrará 
no seu manual. Nesse momento, você 
notará que a questão das cores não é 
muito simples. Existem várias interações 
que ocorrem entre as cores próximas. 
Assim, nem sempre a cor escolhida apa- 
recerá adequadamente na tela. Logo, nc 
entanto, você aprenderá a contornar es- 
se problema. 

Outra opção disponível é "APA- 
GA", que limpa a tela em uso, dando 
a você a possibilidade de escolher uma 
nova cor de fundo. 

O menu principal oferece nove alter- 
nativas, mas apenas algumas delas es- 
tão disponíveis no momento. A primei- 
ra ("NOVA TELA") leva você de vol- 
ta ao inicio do programa, permitindo 
que se refaçam as opções. Note que a 
tela escolhida será apagada. 

As cinco opções seguintes dizem res- 
peito à possibilidade de desenhar. Por 
enquanto, porém, apenas "DESE- 
NHAR" e "TRAÇAR LINHAS" estão 
à sua disposição. A opção "DESE- 
NHAR" funciona da seguinte forma: ao 
ser feita a escolha do item, ele ficará pis- 
cando; pressione <CR> ou <RE- 
TURN > ; imediatamente, a tela gráfi- 
ca será colocada à sua disposição, com 
o cursor posicionado em seu centro. O 
cursor pode ser movimentado pela tela 
usando-se as teclas I, J, M, K, U, N, ', 
', O. Para começar a desenhar, pressio- 
ne a barra de espaços. Você ouvirá um 
bip e o cursor desaparecerá. A partir 
desse momento, todo o trajeto percor- 
rido ficará marcado na tela. Para parar 
de desenhar e ter o cursor de volta, te- 
cle novamente a barra de espaços. 

Para voltar ao menu principal, pres- 
sione mais uma vezocomando <CR>. 

A opção "MUDAR DE TELA" exi- 
ge um cuidado especial. Só é possível de- 
senhar na tela escolhida no início do 
programa. Assim, essa opção permite 
apenas que você dê uma olhada na ou- 
tra tela, que não está sendo usada. De- 
pois de selecioná-la, escolha uma das al- 
ternativas de desenho, A outra tela lhe 
será então mostrada; não se esqueça, 
porém, de que não é possível desenhar 
sobre ela. Para retornar à tela original, 
tecle <CR> e selecione novamente 
"MUDAR DE TELA". 

Finalmente, aprenda a sair do pro- 
grama, teclando <ESC> quando esti- 
ver no menu principal. 

10 ONERR GOTO 9000 
20 PI - 4 * ATN (1) 
30 DIM CLSÍ7) ,OPS(8) 



40 FOR I - 0 TO 7: READ CL$(I) 
: NEXT 

50 FOR I - 0 TO B: READ OPS(I) 
: NEXT 

60 TEXT : HOME : PRINT "Eacolh 
a a pagina de alta resolução:" 
70 VTAB 6: INPUT 'Pagina? (1 o 
u 2) ";PG 

80 IF PG < > 1 AND PG < > 2 
THEN 60 

90 HOME : PRINT "Escolha a cor 
de fundo:" 
100 VTAB 10: FOR I - 0 TO 7 : H 
TAB 8r PRINT CLS < I ) : NEXT 
110 I - 0:LM - PG " 8192 
120 FLASH : VTAB 10 + I: HTAB 
6: PRINT SPC{ 2>tCLS(I); SPC ( 
1) i 

130 GET AS-: IF A$ - CHBS (13) 

THEN 210 
140 IF AS < > CHR$ (8) AND A 
3 < "> CHR3 (21) THEN 130 
150 NORMAL : VTAB 10 + I: HTAB 

6: PRINT SPC« 2);CLS(D; SPC( 

2) i 

160 IF AS - CHRS (8) THEN 190 

170 IFI-7 THEN I - 0: GOTO 
120 

1B0 I - I + 1: GOTO 120 

190 IF I - 0 THEN 1-7: GOTO 

120 

200 I ■ I - li GOTO 120 

210 IF PG = 1 THEN HGR : GOTO 

230 
220 HGR2 

230 NORMAL - POKE - 16304,0: 
POKE - 16302,0: POKE - 16301 
+ PG.O: POKE - 16297,0: HCOLOB 
- I: HPLOT 0,0: CALL 62454:X - 
100:Y - X: HCOLOR- 3 
240 OP - 0 

250 FOR I - 1 TO 200: NEXT : T 
EXT : HOME 

260 PRINT "Escolha a sua opcao 

270 VTAB 10: FOR I - 0 TO 8: H 
TAB 8: PRINT OPS(I): NEXT 
2R0 SP$ - " " 

290 FLASH : VTAB 10 + OP : HTAB 
6: PRINT SPS;OPS(OP) "; 

300 GET AS: IF AS = CHR3 (13) 
THEN NORMAL : GOTO 390 

310 IF AS - CHRS (27) THEN N 

ORMAL : HOME ! END 

320 IF AS < > CHRS (6) AND A 

3 < > CHRS (21) THEN 300 

330 NORMAL : HTAB 6: PRINT SPS 

jOPS(OP) ;SP3; 

340 IF AS - CHRS (8) THEN 370 

350 IF OP - 8 THEN OP - 0 : GOT 
0 290 

360 OP - OP + 1: GOTO 290 

370 IF OP - 0 THEN OP - B: GOT 

O 290 

380 OP - OP - 1: GOTO 290 

390 POKE - 16301 + PG.O: POKE 

- 16304, 0:AA - 0 
400 ON OP + 1 GOTO 60,2000.300 
0 , 3000, 3000 ,40 00 , 5000 . 6000 . 7000 

1000 XI = X:Y1 = Y 
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1010 GET AS 

1020 IF AS > "O" AND AS < "7" 

THEN HCOLOR= VAL (AS) ! GOTO 1 
010 

1030 IF AS - CHBS (13) THEN 

POKE M,ME: TEXT : GOTO 290 

1040 IF AS - "I" THEN Y - Yl - 
2 

1050 IF AS - "M" THEN Y - Yl + 



1060 IF AS - 



THEN X - XI 



1070 IF AS - "K" THEN X - XI 
2 

1080 IF AS ■ 



1090 



IF AS 
Yl 



1 



THEN X = XI 
"U" THEN X - XI 



1100 IF AS - "N" THEN X = XI 

lil - Yl + 1 
1110 IF AS - "." THEN X - XI + 

1:T - Yl + 1 
1120 RETUBN 

1500 IF M < > 0 THEN POKE M, 
ME 

1520 L - INT (Y / 64) :C - INT 
(Y / 8) - {8 * INT (Y / 64)): 
T - Y - (8 * INT (Y / 8) ) 
1530 M = LM + {L * 40) + (C * 1 
28) + (T * 1024) 
1540 M - M + t INT (X / 7) ) 
1550 ME - PEEK ÍM) 
1560 POKE M,255 - 2 ' (X - ( I 
NT (X / 7) * 7) ) 
1570 BETUBN 

2000 IF AA ■ 0 THEN GOSUB 150 
0 

2010 GOSUB 1000: IF A$ • * * T 
HEN AA - ABS (AA - 1 ) : IF AA - 

1 THEN POKE M.ME 
2020 IF AA - 1 THEN HPLOT X,Y 

TO XI. Yl 
2030 GOTO 2000 
3000 Cl - 0 

3010 GOSUB 1500: GOSUB 1000: I 
F AS < > CHR$ (32) THEN GOTO 

3010 
3020 POKE M.ME 

3030 Cl - Cl + 1:PX(CI) - X:PY( 
Cl) - Y: PB INT CHRS (7); HPLO 
T X,Y:M = 0 

3040 IF Cl < > 2 THEN 3010 
3050 ON OP - 1 GOTO 3060.3070. 
3080 

3060 HPLOT PX(l).PYU) TO PXÍ2 

) .PY(2) :M - 0: GOTO 3000 

3070 PBINT CHRS (7) ; : PBINT 

CHRS (7);: GOTO 3000: BEM BOTI 

NA NAO DISPONÍVEL 

3080 PR INT CHRS (7) : : PR INT 

CHBS (7);: GOTO 3000- REM ROTT - 

NA NAO DISPONÍVEL 

4000 PBINT CHBS (7);: PBINT 

CHRS (7);: GOTO 250: REM ROTIN 

A NAO DISPONÍVEL 

5000 IF PG = 1 THEN HGR ■ GOT 
O 5020 
5010 HGR2 

5020 TEXT : GOTO BO 

6000 PG - INT (PG - ( - 1 " PG 

) ) : GOTO 250 

7000 PR INT CHRS (7) ; : PBINT 
CHRS (7);: GOTO 250: REM ROTIN 



A NAO DISPONÍVEL 
9000 IF PEEK (222) - 53 THEN 
X - X1:Y - Yl: PRINT CHBS <7); 
: HESUME 

9010 PBINT CHBS (7);: GOTO 25 
0 

10000 DATA PRETO 1, VERDE. VIOL 
ETA . BRANCO . PRETO 2 . LARANJA . AZUL 
, BRANCO 2 

10010 DATA NOVA TELA . DESENHAS 
. TRAÇAR LINHAS , RETANGULO , CIRCUL 
O, ELIPSE, APAGA. MUDAR DE TELA. GR 
A VAR /CARREGAR 



O programa começa perguntando 
que cor de fundo você deseja. Respon- 
da com um número de 0 a 15. A corres- 
pondência de cores está no manual do 
seu micro. Em seguida, a tela gráfica de 
alta resolução será colocada à sua vis- 
ta, mostrando no rodapé as opções dis- 
poníveis. Elas são doze. No entanto, 
apenas algumas estão disponíveis no 
momento. As outras serão apresentadas 
no próximo artigo. 

Inicialmente, temos Desenhar, que 
permite traçar linhas em qualquer dire- 
ção na tela. Selecione a opção colocan- 
do o quadrado sobre a abreviatura Des 
e tecle < RETURN > . Você verá então 
o pequeno cursor na tela. Ele pode ser 
movimentado com as setas do teclado. 
Pressione a barra de espaços no ponto 
em que quiser começar a desenhar: pa- 
ra onde quer que você movimente o cur- 
sor ele deixará um trilho marcado na cor 
de sua escolha. 

Mas, como escolher a cor? É fácil: 
basta teclar, quando dentro de um mó- 
dulo de desenho, uma tecla entre O e E, 
como se fosse uma numeração hexade- 
cimal. Ou seja, os números de 0 até 9 
funcionam normalmente; para escolher 
cores que tenham código de 1 1 a 15, use 
as letras de A a E. Para sair desse mó- 
dulo e escolher outra coisa, pressione 
novamente < RETURN > ; você obterá, 
assim, controle sobre o quadrado das 
opções. 

A opção Pintar tem o efeito do co- 
mando PAINT do BASIC. Ela preenche- 
rá uma figura com a cor que estiver sen- 
do usada. Deve-se tomar o cuidado de 
usar a mesma cor da periferia da figura 
para que o computador não estrague o 
seu desenho. Outra coisa importante é 
que a figura deve ser totalmente fecha- 
da; senão, o computador pintará toda a 
tela com a cor de sua preferência. 

XXX provoca o apagamento total e 
definitivo do desenho. Portanto, tenha 
cuidado: se você pressionar < RE- 
TURN > com o quadrado sobre essa 
opção, o programa retornará ao início 
e apagará tudo o que foi desenhado. 



10 X-100:Y-100:CO-15 
20 PI=4*ATN(1) 
30 SCREEN0:COLOR 15.4,4 
40 CLS:LOCATE 5 . 5 : PRINT" Eaco 1 ha 
' de fundo da página gráf 



(0 



1 5 ) ■ 



50 INPUT CL:IF CL>15 OR CL<0 TH 
EN PRINT"VaJor í legal !": GOTO 50 
60 COLOR 15 . CL . CL : SCREEN2 : OP-1 
711 OPEN"GBP : "FOB OUTPUT AS tl 
80 PSET(8, 166) .0 
90 PRINTH." Apa Dea Lin Re 
t Cai Cir":PSET(8,176) ,0:PRIN 
Til," Dia Eli Pin XXX" 
100 CLOSE 

110 GOSUB390:LINE (CL) - (C+24 . L 
+9) . 15, B 

120 AS = TNKF.YS:IFAS-""THEN120 
130 GOSUB390 

140 TFAS-CHRSU31THEN200 
150 LINE (C, L)-<C+24,L+9) , CL . B 
160 IFAS=CHRS(29)THEN0P-0P-1:IF 
OP<1THENOP=] 0 

170 TFA$=CHRS(28)THENOP=OP+l:IF 
OP>10THENOP-1 
180 GOTO 110 
190 AA=0 

200 ON OP GOTO 480,44 0.480,480. 
4R0 .480 , 480.600 , 740 .770 
210 X1-X:Y1-Y 

220 A5=INKEYS:IFAS=""THEN220 
230 IFAS>"0"ANDAS<"9"THENCO-VAL 

(AS) 

240 IFAS>"A"ANDAS<"E"THENCO=ASC 
(AS) -55 

250 IFAS=CHRS (30) THENY-Y1-1 
260 IFAS-CHBS ( 3] ) THENY*Y1+1 
270 IFAS"CHRS (28) THENX-X1+1 
280 IFAS=CHRS(29)THENX=X]-1 
290 IFA$=CHRS(13)THENGOT0110 
100 RETURN 

310 t FM>0THENV POKE BASE (12) +M+Y1 
M0D8 , ME : VPOKEBASE (1 1 ) +M+Y1MOD8 . 
HF 

320 MX=INT(X/8) : MY=INT (Y/B) 

330 M=MY*32+MX:M=M«B 

340 ME=VPEEK(BASEU2)+M+YMODS) 

350 MF-VPEEK(BASE(ll)+M+YMOD8) 

160 VPOKE 8ASE(12)+M+YMOD8.2 - (7 

-XMOD8) 

3 70 VPOKE BASE(ll)+M+YMOD8, (4*1 
CL=4) ) "16 

380 RETUBN 

390 IFOP<7THENC- (OP"5) "6ELSEC- ( 

0P-6)*5*8 

400 C-C-26 

410 IFOP<7THENL-164ELSE L-174:P 
SET (C , L) , 0 

4 20 RETUBN 
430 GOTO 200 

440 IFAA'0THENGOSUB310 

450 GOSUB210: JFAS=" "THENAA»ABS 

(AA-1) 

460 IFAA-1THENLINE(X.Y)-(X1.Y1) 
.CO 

4 70 GOTO440 
480 GOTO 110 
600 GOTO 110 

740 GOSUB310 :G0SUB210 : IFASOCHR 

S(32)THEN740 

750 PAINT (X.Y) , CO 

760 GOTO 740 

770 GOTO 30 
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NOVAS POSSIBILIDADES 


DO PROGRAMA CAD 


■ 


OPÇÕES SOFISTICADAS 


■ 


CORRIGIR E COPIAR 


■ 


CORES NO SPECTRUM 




Adicione rotinas especiais ao seu 
programa CAD (Desenho Assistido por 
Computador) e veja como tirar o melhor 
proveito da sofisticação que elas 
proporcionam à listagem original. 



Com o programa CAD (Desenho As- 
sistido por Computador), apresentado 
na página 414, vimos colocar os recur- 
sos gráficos do computador sob controle 
direto do teclado, o que nos permitiu fa- 
zer alguns desenhos bem sofisticados. Se 
quisermos, porém, explorar todo o po- 
tencial do programa — especialmenie a 
possibilidade de colorir — deveremos 
examinar várias outras funções. O me- 



nu já nos deu uma ideia das diferentes 
opções, mas ainda não tivemos acesso 
a elas. 

Carregue o programa anterior e adi- 
cione as linhas fornecidas neste artigo. 
Cada rotina é seguida de notas e suges- 
tões de como tirar o melhor proveito das 
novas possibilidades do seu programa. 



4000 R EM retangulo e caixa 

4010 LET caixa=0: GOTO 4030 

4020 LET caixa=l 

4030 FOR n-1 TO 50: NEXT n 

4040 GOSUB 8000 

4050 IF INKEY5=CHRS 13 THEN 

ND USR 65380; GOTO 1000 

4060 TF INKEYSOCHRS 32 THEN 

OTO 4040 

4070 FOR n-1 TO 50: NEXT n 



0 LET xx=D: LET yy=0 : LET hx 

LET hy = y 
0 GOSUB 8000: FOR n» 1 TO 2: 
T hx.hy 

0 DRAW OVER l;0.yy: DRAM O 
liXX.0: DRAW OVER IjO.-yy: 
AW OVER l;-xx,Q: NEXT n 
D IF INKEYSOCHRS 32 THEN G 
OTO 4090 

4120 PLOT hx.hy: DRAW 0 , yy : DRA 
W XX. 0: DRAW 0,-yy: DRAW -XX . 0 
4130 IF caixa=0 THEN GOTO 4030 
4135 IF xx=0 THEN GOTO 4040 
4140 FOR n=hx TO hx+xx STEP SGN 

4150 PLOT n.hy: DRAW O.yy: NEXT 

4160 GOTO 4(140 

5000 REM circulo 

5010 FOB n-1 TO 50: NEXT n 

5020 GOSUB 8000 

5030 IF INKEYS-CHRS 13 THEN RA 
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IX 



ND USR 65380: GOTO 1000 

5040 IF INKEYSOCHRS .12 THEN G 

OTO 5020 

FOR ti- [ TO S0: NEXT n 
5060 LET xx = 0: I.ET yy=0: LET hx 
*x: I.ET hy-y 

5070 GOSUB 8000: CIRCLE OVER 1 
:hx.hy.AHS xx-. CIRCLE OVER ljh 
x.hy.ABS xx 

5080 TF INKEYSOCHRS 3 2 THEN G 
OTO 5070 

5090 CTRCIF hX.hy.ABS XX: GOTO 
5000 

5500 BEM apagar 
55)0 GOSUB 8000 

5520 IF POTNT (X,y)-J THEN PLO 
T OVER 1 ; X. y 

5510 IF TNKEYS-CHHS 13 THEN RA 

ND USR 653H0: GOTO 1000 

5540 GOTO 5510 

6000 REM copiar 

6010 COPY : GOTO 1000 

7000 INPUT " INTRODUZA O NOME "; 

LINE nS: IF LEN nS>10 THEN GO 
TO 7000 

7010 LOAD nSCODE 50000: RAND US 

R 65368: GOTO 1000 

7500 INPUT "INTRODUZA 0 NOME "l 

LINE nS: IF nS-"" OR LEN nS>10 

THEN GOTO 7500 
7510 SAVE nSSCREENS : GOTO 1000 

Selecione a opção RETANGULO e 
mova o cursor até onde deseja colocar 
um canto da figura que pretende dese- 
nhar; em seguida, pressione <SPA- 
CE>. Desloque o cursor para o canto 
diagonalmente oposto. Enquanto execu- 
ta o movimento, um retãnguio ficará 
piscando, para lhe dar a ideia exara do 
que está desenhando. Você pode, assim, 
escolher o tamanho e a forma ideal, sim- 
plesmente passeando com o cursor. 
Quando tudo estiver do seu agrado, 
pressione < SPACE > , para fixar o de- 
senho. 

A opção CAIXA Funciona da mesma 
maneira que RETANGULO, só que a 
área interna é preenchida. 

CIRCULO é a outra forma que você 
pode desenhar. Coloque o cursor no lo- 
cal que será o centro do circulo e pres- 
sione <SPACE>. Em seguida, mova- 
o para qualquer ponto da periferia e 
pressione novamente a tecla de espaço. 

A opção COPIAR envia para sua im- 
pressora a imagem da tela. Depois de se- 
lecioná-la, responda às perguntas apre- 
sentadas. Terminado o trabalho, o pro- 
grama retornará ao menu. 

Para fazer correções e mudanças, use 
as opções APAGAR ou OOPS. Peque- 
nos detalhes podem ser corrigidos com 
a primeira opçào. Quando terminar, te- 
cle < ENTEIO para retornar ao menu. 

Para mudanças radicais, utilize 
OOPS, que apagará tudo o que foi fei- 
, to depois de sua última visita ao menu. 

Os dois itens restantes são GRAVAR 



e CARREGAR (na fita, somente). Ao 
selecionar um dos dois, um nome será 
solicitado. Você pode CARREGAR sem 
especificar um nome de arquivo, sim- 
plesmente pressionando <ENTER>, 
mas, para GRAVAR, o nome é sempre 
necessário. 



D 



4000 SCREEN 1 , ST : GOSUB 1500 

4010 IF EF-1 GOSUB 500:RETURN 

4020 IF PEEK(345)OPC THEN 4000 

4030 XS-X:YS-Y 

4040 GOSUB 1500:GOSUB 500 

4060 IF EF-1 THEN RETURN 

4070 IF ABS({XS-X)*(YS-Y))>2300 

0 THEN 4040 

4080 LINE(X.Y)-ÍXS.YS) ,PSET.B 

4090 IF PEEK(345)OPC THEN 4040 

4100 PMODE MD,S:GET(X,Y)-(XS,YS 

} . CP, G: PMODE MD. 1 

4110 XS-XS-X:YS-YS-Y 

4120 GOSUB 1500:GOSUB 500 

4130 IF EF-1 THEN RETURN 

4140 IF(X+XS)<0 OR (X+XS) >255 O 

R(Y+YSK0 OR (Y+YS)>191 THEN 41 

20 

4150 LINE(X,Y)-(X+XS,Y+YS) , PSET 
,B 

4160 IF PEEK(345)OPC THEN 4120 
4170 GOSUB 500:PUT(X,Y)-(X+XS,Y 
+YS) , CP. PSET: GOSUB 510 
4180 GOTO 4120 

5000 CLS : PRINT" SELECIONE A COR 

DA BORDA (0-8) " 
5010 AS=INKEY5:IF AS<"0" OR AS> 
"8" THEN 5010 

5020 BC-VAL IAS) : SCREEN 1 . ST 
5030 GOSUB 1500:GOSUB 500 
5040 IF EF-1 THEN RETURN 
5050 IF PEEK f 345) OPC THEN 5030 
5060 PAINTÍX.Y) .CL.BCtGOSUB 510 
:GOTO 5030 

6000 CLS:PRINT" SALVAR OU CARRE 

GAR DO GRAVADOR (S/C) ?" 

6010 AS-INKEYS:IF ASO"S" AND A 

SO"*C" THEN 6010 

6020 IF AS-"S" THEN 6100 

6030 PRINT" CONFIRMA QUE QUER C 

AR REGAR OUTRO DESENHO (S/N 

)?" 

6040 AS=INKEYS:IF AS<>"N" AND A 

SO"S" THEN 6040 

6050 IF AS-"N" THEN RETURN 

6060 MOTORON : PRINT : PRINT " POSI 

CIONE 0 TAPE, APERTE ' PLAY 1 E E 

NTAO PRESSIONE <ENTER>" 

6070 IF INKEYSOCHRS (13) THEN 6 

070 

6060 MOTOROFF:PRINT:PRINT:INPUT 
"INTRODUZA O NOME DO ARQUIVO ": 
AS 

6090 SCREEN 1,ST:CL0ADM ASlGOSU 
B 510:RETURN 

6100 PRINT : INPUT "NOME DO ARQUIV 
O ';AS 

6110 MOTORON: PRINT: PRINT" POSIC 

IONE 0 TAPE, APERTE "RECORD' E EN 

TAO PRESSIONE <ENTER>" 

6120 IF INKEYSOCHRS 113) THEN 6 

120 



A opção RETANGULO permite que 
você desenhe rAàngulos de várias cores, 
em qualquer lugar da tela. Selecione a 
opção e mova o cutepr até o ponto da 
leia onde você quer canto da figu- 
ra. Pressione a barra\e espaço para 
identificar o ponto. MovWi cursor pa- 
ra o canto oposto. Da mesma maneira 
que com DESENHO e LINT^A, você 
pode escolher cores ou abandonata op- 
ção pressionando <ENTER>. 
do estiver satisfeito com o desenho, 
pressione novamente a barra de espaço* 

CAIXA funciona como a opção an- V 
terior, mas a figura é preenchida com a ^ 
cor em uso. 

CIRCULO e DISCO são como RE- 
TANGULO e CAIXA. O primeiro pon- 
to escolhido fica na periferia da forma. 
Mova o cursor, até chegar ao ponto de- 
sejado, que é o centro. 

ELIPSE difere um pouco de CIRCU- 
LO. O primeiro ponto escolhido é o cen- 
tro. Ao mover o cursor em qualquer di- 
reção, verá apenas uma linha. Mas, ao 
movê-lo na horizontal e depois na ver- 
tical, por exemplo, uma elipse começa- 
rá a crescer. Ajuste-a até obter o que de- 
seja e pressione a barra de espaço. 

A opção COPIAR permite que você 
duplique uma imagem já desenhada na 
tela em outra parte dela. Para usá-la, 
posicione o cursor em um canto da área 
a ser copiada e pressione a barra de es- 
paço. Ao mover o cursor em direção ao 
canto oposto, verá um retângulo que de- 
marca a região onde o desenho será du- 
plicado. Determine a área, quando es- 
tiver satisfeito com o seu tamanho e for- 
ma, pressionando novamente a barra de 
espaço. Mova essa área até o ponto de- 
sejado, usando as setas. Pressione a bar- 
ra de espaço para efetuar a cópia, apa- 
gando o que havia naquela área. Até 
metade da tela pode ser copiada, sem 
problemas. 

A opção PREENCHER funciona co- 
mo o comando PAINT em BASIC. Ao 
selecioná-la, você deve informar a cor 
dos limites onde o PAINT deve parar. 
Mova, então, o cursor até a área a ser 
preenchida e pressione a barra de espa- 
ço. Escolha a cor pelas teclas 0 a 8. 

Para corrigir possíveis erros, selecio- 
ne a opção ERRO, que apaga tudo o que 
foi feito desde sua última visita ao me- 
nu. Pode-se, também, corrigir detalhes, 
selecionando a cor de fundo e apagando 
linhas ou pontos. Áreas maiores devem 
ser corrigidas com CAIXA ou DISCO. 

A última opção permite que desenhos 
sejam carregados ou gravados na fila: 
conecte o cassete e responda às pergun- 
tas apresentadas. 
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.1070 HPLOT PXU).PY(l) TO PX(2 
),py(l) TO PX{2).PY(2) TO PXU) 
.PYÍ.2) TO PXU).PYU):M ■ 0: GO 
TO .1000 

3080 P.A - SQB UPXU) - PX(2)) 
» (PXU) - PX(2)] + (PYU) - P 

Y(2) ) - (PY(1 ) - PY (2) ) ) : FOR I 
= 0 TO 2 * PI STEP PI / 1B0 

3090 HPLOT PXÍ2) + BA * SIN ( 

I) ,PY(2) - RA * COS U) 

3100 NEXT 

3110 GOTO 3000 

4000 Cl - 0 

4010 G0SIJB 1500: fiOSUB 1001): I 
F AS < > CHRS (321 THEN GOTO 

4010 
4020 POKE M.ME 

4030 Cl - Cl * l:PX(Ct) = X:PY( 
Cl) - Y : PRINT CHRS {?);: HPLO 
T X.Y:M - 0 

4040 IF Cl < > 3 THEN 4010 
4050 CE = SOR (ÍPX[1> - PX(2)) 

* (PXU) - PX(2) ) ♦ <PYU ) - P 
Y (2) ) - (PYU) - PY (?) ) ) :CE - C 

E / 2 

4060 Al = SQR <(PX(1) - PX(3)> 

* (PX(U - PX(3) ) + (PYU) - P 
Y(3) ) * (PYU ) - PY (3) 1 ) 

4070 A2 - SQB ( ( PX ( 3 ) - PX ( 2 ) 1 
« (PX<3) - PX(2) ) + (P< (33 - P 
Y (2) ) * (PY(3) - PY (2) J ) :AE = ( 
Al + A2> / 2 

4080 BE - SQR (AE * AE - CE * 
CE) 

4090 FOR I - 0 TO 2 ' PI STEP 
PI / 180 

4100 IF PXU) < > PX(2) THEN 
4120 

4110 HPLOT PX(1) + BE * COS í 

1) .PYU) + { - 1 " (PYU) > PYÍ 

2) ) ) * CE - AE * SIN (I) : NEXT 
: GOTO 4000 

4120 HPLOT PXU) + (— 1 " (PX 
U) > PX(2I ) ) * CE + AE • COS 
(I) ,PY (1) - BE * SIN [I) : NEXT 

: GOTO 4000 
7000 TEXT : HOME : PRINT "Grav 



r/Ca 



rega: 



70 JO VTAB 10 

7020 INPUT "Opcao? (G/C) ";RS 
7030 IF RS < > "G" AND H$ < 
> "C" THEN 7030 

7040 INPUT "Nome do desenho? " 
;DES 

7050 INPUT "Pagina? ";P 
7060 IF RS = "C" THEN 7080 
7070 PRINT CHHS (4 ) ; "BSAVE" ; D 
ES;".A";P * 8192 ; " . L" ; 8192 : GOT 
O 250 

7080 PRINT CHBS (4 ) ; "BLOAD" ; D 
ES;".A";P * 8192: GOTO 250 

Usaremos agora as opções mais so- 
fisticadas do nosso editor de desenho. 
RETANGULO, CIRCULO e ELIPSE 
estão à sua disposição. 

Para a opção RETANGULO, mova 
o cursor até um canto do quadrilátero 
I que deseja iraçar. Tecle a barra de es- 
paço, leve o cursor para o canto diago- 



nalmente oposto e tecle novamente a 
barra de espaço. Sua figura está pron- 



CIRCULO funciona de maneira pa- 
recida, só que o primeiro ponto corres- 
ponde ao centro da figura a ser traça- 
da. O segundo determina o tamanho de- 
la, ficando na periferia. 

Ao usar a opção ELIPSE, não se es- 
queça de que o maior eixo da figura de- 
ve estar sempre na horizontal ou na ver- 
tical. Selecione três pontos para traçá- 
la. Os dois primeiros funcionarão como 
os focos da elipse e o terceiro ficará na 
periferia. 

Por fim, GRAVAR/CARREGAR 
permite que você grave uma imagem em 
disquete ou que a carregue na memória 
do micro. É possível, inclusive, carregar 
um desenho pronto de algum outro pro- 
grama ou jogo. A identificação de uma 
imagem de alta resolução no díretório 
é fácil: em geral, ela ocupa 34 seiores do 
disco e tem a letra B à frente do nome 
do arquivo. Para carregá-la, simples- 
mente coloque o disquete no drive e di- 
gite o nome correio do arquivo quando 
este for solicitado pelo programa. 




CORES NO SPÊCTRUM 

O programa apresentado permiti 
que você faça desenhos coloridos no 
Spectrum, mas é preciso ter cuidado 
para evitar problemas de sobreposição 
de cores. Se duas ou mais cores forem 
colocadas no mesmo retângulo de ca- 
ractere, a última tomará o lugar das ou- 
tras. Planeje seu desenho de maneira 
que cores adjacentes sejam alinhadas 
de acordo com esses retãngulos. 
Lembre-se de que em cada linha temos 
32 retãngulos que contêm oito sub 
visões na horizontal e 22 retãngulos 
com oito subdivisões na vertical. 



680 F0R.! = 0TO2*PI STEP PI/90 
690 JFPX ( ) )OPX (2) THEN720 " 
700 IFPY(1)<PY(2)THENS=]ELSES= 



720 IFPXU)<PX(2)THFNS=1ELSES = - 



4B0 CT»0 

490 GOSUB110 :GOSl)B21 0 : IFASOCHR 
9(32] THEN490 

500 CI-CI+l : PX (Cl) -X ! PY (Cl) -Y :B 

EEP : PSET (X , Y) ,CO:M=0 

510 IFCIO2THEN490 

520 ONOPGOTO590 , 590 .530 , 540 ,550 

,560,560 

510 LINE(PXU) ,PYU) )-(PX(2) ,PY 

(2) ) . CO :M=0 :GOTO480 

540 LINE(PXU) ,PY U ) 1 - (PX(2) , PY 

(2) ) ,CO, B:M=0 :GOTO480 

550 LINE (PX (1 ) . PY { 1 ) ) - {PX (2) . PY 

(2) ) ,CO.BF:M=0:GOTO4B0 

560 P.A=SQR { (PX (1) -PX (2) 1 * ( PX (1) 

-PX(2^ ) + (PY {] ) -PY(2) )* (PYU)-PY 

(2) ) ) 

570 CIRCLE (PXU) . PY U) ) , RA , CO : 

M-0 : IFOP=6THENGOTO480 

580 PAINT (PX (1 ) +1 , PY (L) ) , CO : GO 

TO480 

590 LINE (PXU) , PYU) )- (PX(2) . PY 
(2) ) , CL , BF :M=0 : GOTO480 
600 CI = 0 

610 GOSUB310 :GOSUB2) 0 : IFASOCHR 
S (32) THEN6J 0 

620 CI-CI+l ■ PX (Cl ) -X : PY (Cl) -Y :B 

EEP:PSET(X.Y) ,CO:M=0 

630 IFCIO3THEN610 

640 CE=SQR ( (PX (1 ( -PX ( 2 ) ) * { PX (1 ) 

-PX(2) ) + (PYU)-Py (2) ) * (PY U) -PY 

(2)1) :CE-CE/2 

650 Cl -SQR ( (PXU )-PX(3) ) " (PX (1) 

-pxu) i + (pyu) -py(.i) )* (PYUí-py 

660 C2 = SQB ( (PX (.1) - PX (2) ) * (PX (3) 

-px(2) ) +(py (3)-py [2) ) «(py (i) -py 

(2) ) ) :AE-(Cl+C2)/2 
670 BE-SQB ( AE * AE -CE"CE ) 



Apagar permite que você suprima o 
desenho de determinadas áreas da tela. 
Selecione a opção e coloque o cursor no 
canto do retângulo que corresponde à 
área que pretende apagar. Pressione a 
barra de espaço. Leve o cursor para o 
canto diagonal oposto e pressione no- 
vamente a barra de espaço. Tudo o que 
estiver dentro do retângulo formado pe- 
los 2 pontos será apagado. Tecle < RE- 
TURN> para trocar sua opção. 

Retângulo e Caixa funcionam de ma- 
neira semelhante, sendo que a primeira 
opção desenha uma figura vazia, ao 
contrário da segunda. Ao selecionar 
uma delas, leve o cursor a um extremo 
da figura e (ecle a barra de espaço. 
Desloque-o até a outra extremidade e re- 
pila a operação. Sua figura será dese- 
nhada instantaneamente. 

Circulo e Disco têm uma relação se- 
melhante à das duas opções anteriores. 
O primeiro ponto será o centro da figu- 
ra e o segundo determinará o tamanho 
"dela, ficando na periferia. 

Elipse requer três pontos para cum- 
prir sua função. Os dois primeiros de- 
terminam os focos da elipse e o tercei- 
ro, um ponto da periferia. Essa figura 
não é preenchida por cor. Para desenhos 
coloridos, você deverá recorrer à opção 
Pintar. 
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COMO EDITAR LINHAS 


DE UM PROGRAMA BASIC 


■ 


0 CONTROLE DO CURSOR 


■ 


TECLAS FUNDAMENTAIS 


E MOVIMENTOS MAIS COMPLEXOS 



Os micros da linha MSX possuem 
sofisticados recursos de edição. Suas 
teclas de controle e seu cursor 
tornam possível usar o vídeo como se 
fosse uma verdadeira "folha de papel". 

Todos os interpretadores da lingua- 
gem BASIC oferecem alguns recursos 
para a edição de programas, ou seja, 
técnicas de entrada e alteração das linhas 
que os compõem. O primeiro interpre- 
tador BASIC, desenvolvido na década 
de 60 na Universidade de Dartmouth, 
nos EUA, fixou os recursos mais ele- 
mentares de edição: numeração, inser- 
ção, apagamento e listagem de linhas. 
Estes foram posteriormente adotados 
em todos os outros dialelos do BASIC 
que surgiram. 

O passo seguinte consistiu em dar ao 
programador a possibilidade de alterar 
caracteres, já que, com os recursos an- 
teriores, o erro de um caractere obriga- 
va-o a digitar novamente a linha toda. 

Com esse objetivo, desenvolveram-se 
comandos como o EDIT, presentes nos 
micros da linha Sinclair, TRS-80 e TRS- 
Color. Embora os recursos de edição 
disponíveis no EDIT sejam bastante ver- 
sáteis, eles ainda apresentam uma limi- 
tação: operam apenas em uma linha — 
cujo número precisa ser explicitado — 
de cada vez. 



A limitação mencionada não passa de 
um resquício do tempo em que o BA- 
SIC era operado através de terminais 
impressores, desprovidos de movimen- 
tação bidimensional do cursor. 

Os projetístas do MSX, porém, sou- 
beram superar essa limitação, abrindo 
a possibilidade de se editar um progra- 
ma inteiro, e não uma linha de cada vez, 
desde que o trecho a ser editado estivesse 
exibido na tela. O comando EDIT foi, 
assim, suprimido. 

O conceito de edição de. programas 
no MSX aproxima-se. incidentalmente, 
do utilizado nos avançadíssimos micros 
profissionais da linha PC: envolve a uti- 



lização de teclas especiais, ou da com- 
binação de determinadas teclas, para 
"passear" o cursor de texto pela tela, 
inserir e apagar caracteres em qualquer 
ponto da mesma, etc. O computador 
"lembra-se" das modificações realiza- 
das na página de vídeo desde que se 
pressione a tecla <ENTER> ou <RE- 
TTJRN> após o término das modifica- 
ções em uma determinada linha. 

Uma possibilidade interessante do 
MSX é a de editar também os números 
de linha. Quando se utiliza esse recur- 
so, obtém-se duas linhas: a que tinha o 
número original, em sua própria posi- 
ção, e outra — que pode ser uma dupli- 
cata^da anterior ou incluir modificações 
— , que é automaticamente inserida em 
sua nova posição. 

As teclas fundamentais para a edição 
no MSX são as seguintes: 

^ - desloca o cursor de tex- 
to em uma posição para 
a direita 

^ - desloca o cursor de uma 

posição para a esquerda 
A - desloca o cursor para 
I cima 

- apaga o caractere ime- 

<diatamcnte anterior ao 
cursor e recua o cursor 
de uma posição (retro- 
■ cesso) 

1 - desloca o cursor para 
* baixo 
<INS> - ativa ou desativa o mo- 
do de inserção de carac- 
teres 

< DEL > • apaga um caractere e re- 
junta o restante da linha 

<ENTER;> - consolida as modifica- 
ções realizadas em uma 
Unha 

A tecla HOME também pode ser uti- 
lizada durante o processo de edição, pa- 
ra fazer o cursor retornar à posição no 
topo esquerdo da tela. 

Ao editar um programa, use primei- 
ro o comando LIST, para colocar na te- 
la o trecho do programa que deseja edi- 
tar. Em seguida, desloque o cursor até 
a linha a ser editada. Para fazer as mo- 
dificações, escreva por cima do texto 
exibido, ou insira e apague caracteres 
por meio das teclas INS e DEL. Em se- 
guida, pressione a tecla <ENTER> ou 



<RETURN>, se quiser preservar as 
modificações feitas. 

A tecla INS em gera! está desativada 
— ou seja, se você pressionar qualquer 
tecla de caractere, ele será impresso so- 
bre o que estiver sob o cursor no mo- 
mento. Para inserir um ou mais carac- 
teres em determinado ponto de uma li- 
nha, primeiro desloque o cursor até lá. 
Em seguida, pressione uma vez a tecla 
INS, colocando o computador em mo- 
do de inserção. Para encerrar o proces- 
so, pressione INS novamente ou, então, 
< ENTER > . 

Para verificar se o computador está 
em modo de inserção, observe o cursor 
de texto: de um retângulo, ele se trans- 
forma em um traço pequeno. Se você 
pressionar a tecla DEL durante o modo 
de inserção, poderá apagar caracteres 
sem desligar a inserção. 

Com o auxílio da tecla < CON- 
TROLA pode-se obter movimentos 
mais complexos do cursor, assim como 
o acionamento de funções adicionais de 
edição. Pressionando-se simultanea- 
mente <CONTROL> e uma outra te- 
cla alfabética, chega-se a alguns resul- 
tados interessantes: 
<CONTROL> <F> ■ desloca o cur- 
sor para a pri- 
meira letra da 
próxima pala- 
vra da linha 
<CONTROL> <B> • desloca o cur- 
sor para a pri- 
meira letra da 
palavra ante- 
rior, na linha 
<CONTROL> <N> • desloca o cur- 
sor para o fi- 
nal da linha 
<CONTROL> <E> - apaga a linha 
corrente desde 
o ponto onde 
está o cursor 
até o final 
<CONTROLxU> - apaga toda a 
linha onde es- 
tá o cursor 
Convém lembrar, finalmente, que os 
recursos "normais" de edição de pro- 
gramas (numeração, inserção de linhas, 
renumeração, listagem, apagamento, 
etc), presentes no editor padrão do BA- I 
SIC, também funcionam no MSX. 
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Microcomputadores podem se revelar 
grandes jogadores de baralho, com a 
vantagem de que nunca se cansam de 
jogar. Veja aqui como produzir 
gráficos para um carteado. 



Seus amigos e parentes se negam a jo- 
gar baralho com você? Já se cansaram 
de perder dinheiro? O cacife é muilo al- 
to para seu orçamento? A solução para 
qualquer um desses problemas pode es- 
lar na série dc artigos que iniciamos 
aqui. Programando seu micro para jo- 
gar Vinte-e-um, você terá uma vítima 
perfeita e poderá jogar sem perder uni 
níquel. 

Nesta primeira seção, veremos como 
programar os gráficos necessários para 
criar um baralho na memória — e na te- 
la — de seu computador. O restante do 
programa — o jogo propriamente dito 
— será apresentado nos dois próximos 
artigos dc Programação de Jogos. Gra- 
ve o programa por partes, à medida 



que for sendo ampliado. 

Se você nào sabe jogar Vinte-e-um, 
não se preocupe: explicaremos as regras 
na última seção da série. Antes, porém, 
você precisará de um baralho completo. 



A rotina gráfica que possibilita ao 
, compulador mostrar as cartas na tela é 
a seguinte: 

] (} BORDER 4: PAPER 4: JNK 9: 
CLS ■ POKE 23658 . B : LET B-0: 

I.ET C-l WU 
20 FOR M=USR "A" ' 
POKE 

10 DIM CC521 FOR I 



I.ET C[N) -K: NEXT N 

40 DIM AU3.13,2> 

50 FOR N = C TO 10 - FOR M»C TO 

N: BEAD A(N,M,C! ,A(N.M,2) : 

NEXT M : NEXT N 

60 FOR N-ll TO 13: LET AIN.C, 
C»=4: LET A(N,C.2)-2: NEXT N 
70 I.ET CC=C' LET CP=100 
80 GOSUB 5000 
S00 LET y=0: LET X- 1 
525 LET Z-C(CC) 
530 íioaiJB 5500 
540 STOP 
5000 CLS : PH I NT AT 10.5;"EMbAR 
Al.HANDO AS CARTAS" 
5010 FOR N=C TO 100 
'-020 LET X=1NT (RNU»52) + 




I 
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DOS NAIPES 




DE ALTA RESOLUÇÃO 


■ 


COMO USAR VPOKE 


■ 


COMO DESENHAR 




NA TELA GRÁFICA DO MSX 




AS CARTAS DO BARALHO 


■ 


COMO EMBARALHAR 


■ 


POSICIONAMENTO 




E DISTRIBUIR AS CARTAS 



SOSll NEXT N 
5060 CLB • RET1IRN 
5500 tOR N = Y TO Y+8: PRINT P, 
ER 7;AT N,X;" NEXT N 

5510 l ET ST=1HT ((Z-CI/131 
5520 LET CH'M4tST 
*.b 30 LET VA-Z-tl3*ST) 
'.540 TF ST<2 THEN INK 2 
5560 LFT AC-147+VA 
5<,f)0 PRINT PAPER 7;AT Y.X;CH 
Ai' ; Al Y.X+4:CHHS AC ; AT Y*8.X 
HRS AC; AT Y+8.X+4;CHRS AC 
5610 FOR N-C TO VA • ÍF AIVA.N 



l H THEPJ PRINT 
A(VA.N.C) ,X+A(VA, 
Sí.20 NEXT N 
5B90 INK 9 
5^00 RETURN 
4000 DATA O . "il . I 
8.8,0,8,28.6?. . I 



PAPER 7; AT 



.2) 




9010 DATA 0,8, 20. 34. 34, fi2, 34, 34 

.0.78.34.2,4,24.32,67 

40 20 DATA 0,28.34,2,12.2.34,28, 

0.4,12.20.36.67.4 . 14 

'1030 DATA 0,62.32,32.60,2.34.28 

, 0 . 28 . 34 , 37 . 60 , 34 . 34 . 78 

9040 DATA 0,62.34.2,4,8,16.16,0 

,28.34,34.28,34,34.28 

9050 DATA 0.2B, 34.34, 30.2,34, 28 

,0,76. 82, 8?. 82, 82, 82, 76 

9060 DATA 0.14,4.4.4.4,36,24,0. 

28. 34, 34. 34.58.102. 30.0, 1 18, 36, 

40,48,40. 36. 118 

9070 DATA 85 , B5 , 8S . 85 , 85 , 85 . 85 . 
85 

9100 DATA 4 , 2 
9110 DATA 2.2,6,2 
91 20 DATA 2.7,4.2.6.2 
9130 DATA 1.1, 1,3,7, 1,7, 3 
9140 DATA 1.1,1.3.4,2.7,1,7,3 
9150 DATA 1 .1 . 1 . 3.4, 1.4.3.7.1 , 7 



9160 DATA 1.1.1.3,2,2,4.1.4.3,7 

.1.7,3 vjffii^ 

9170 DATA 1.1.1.3.2,2,4,1.4,3,6 

, 3/f , 1.7.3 

9180 DATA 1.1.1.3.3,1,3.3.4.2.5 



.7.1. 



A u nha 10 scleuona ;h .ihcs dj bnr- 
, Ji» ciu.icicreí c do iundo; POKE 
com que iodas as leiras sejam maiús- 
tmtt, As. duas variáveis — B e C — são 1 
, lis fio lugar de "0" c "1" no rev 
Ilftfí do programa. Devido a maneira 
como o SpéciíUni trabalha com núme- 
ros e variáveis, 'Isso permitirá uma eco- 
nomia de 6 byles, sempre que esses va- 



lores aparecerem. Assim, o programa 
poderá rodar no Spectrum de I6K. 

A linha 20 prepara os caracteres 
(UDGs) usados nos naipes, números e 
letr?s de cada carta. Os dados para is- 
so eslão nas linhas DATA 9000 e 9070. 
Em seguida, a linha 30 cria um conjun- 
to de 52 canas nào embaralhadas. A ma- 
triz A, dimensionada na linha 40, é 
preenchida com os valores das linhas 
DATA 9100 e 9190, que contêm as 
coordenadas das figuras dos naipes em 
cada carta. A linha 50 preenche parte 
da matriz com as coordenadas dos sím- 
bolos das cartas numéricas, enquanto a 
linha 60 preenche o restante com as 
coordenadas dos mesmos nas cartas 
com figuras. É possível criar desenhos 
para as cartas com figuras, mas seria 
bem cansativo e demorado digitar os 
dados necessários. Além disso, o pro- 
grama ficaria grande demais para o 
Spectrum de 16K. 

A linha 70 coloca os valores 1 e 100 
nas variáveis CC e CP, respectivamen- 
te. CC é a carta atual, ou o elemento da 
matriz de cartas que o computador se- 
lecionou por último. CP è a quantida- 
de de fichas que o jogador possui. 

A linha 80 chama a sub-rotina que 
embaralha as cartas. Ela começa na li- 
nha 5000, que apaga a tela e comunica 
que as cartas estão sendo embaralhadas. 
O computador embaralha as carias es- 
colhendo duas, ao acaso, e trocando 
suas posições. O laço FOR. ..NEXT en- 
tre as linhas 5010 e 5050 repete o pro- 
cesso 100 vezes. Existe uma chance de 
que uma mesma carta seja escolhida 
"trocando de posição consigo mesma". 
Isso, na prática, não tem nenhuma im- 
portância, pois o número de trocas de 
posição é suficiente para garantir uma 
boa "embaralhada". 

O valor da linha 5010 pode ser alte- 
rado para aumentar o número de trocas, 
mas números um pouco maiores que 100 
já provocam uma demora inaceitável. A 
iuh-rotina termina na linha 5060. que 
limpa a tela e retorna. 

A linha 525 coloca na variável Z o va- 
lor da carta atual — elemento CC da 
matriz C. Em seguida, a linha 530 cha- 
ma a sub-rotina 5500, que coloca as car- 
tas na tela. A linha 5500 apresenta a par- 
te branca da carta. A linha 5510 selecto- 
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na o naipe correio (os naipes são nume- 
rados de 0 a 3). A linha 5520 calcula o 
código do caractere que contém o sím- 
bolo do naipe escolhido. A linha 5530 
identifica a cana — afinal, o número de 
vezes que o símbolo do naipe vai apare- 
cer depende disso. 

Antes de desenhar o naipe, o compu- 
tador seleciona a cor adequada. A linha 
5540 atribui a cor vermelha aos naipes 
com número 0 ou 1, e a preta aos ou- 
iros dois. 

A linha 5600 desenha o número da 
carta usando o caractere adequado, es- 
colhido pela Unha 5560. A linha 5610 de- 
senha os símbolos do naipe, cujas coor- 
denadas são obtidas na matriz A, 

Finalmente, com a escolha da cor 9 
(cor de contraste), termina a sub-rotina. 



Sprites são mais adequados para mo- 
ver figuras. Como as cartas ficarão pa- 
radas, convém utilizar outra técnica pa- 
ra desenhar os números, letras e naipes 
das cartas. 

10 CLEAP. 500:COLOR 15,12,12:SCR 
EEN0 : KEY OFF 

20 LOCATF. 8.11:PHTNT "EMBARALHA 
Ni 'C AS CARTAS" 

30 DTM NUS (13) . NA ( 3 2 ) : FOR K-l T 

0 1 3 ! READ NUS(K) tNEXT 

40 DATA BD2S4(15ER 3FD2NL4D3 , RDLD 

R . RDNLDL , DRDU2 . NRDRDL . [)2RUl.UR . R 

S8DGD.ND2RDNLDI. .NDRDNLD, D2SIUBR 

S12N1J2RU2L , S4BD5F2R2U6L3R4 , S4NR 

5D6R3NH2NFR2U6 , DNDS8RS l 2NEF 

50 FOR 1=1 TO 32 

60 NA (1 ) -VPEEK (BASE (2) +23+1 ) 

70 NEXT I 

82 DIM S0(61l 

84 R = RND ( -TTME) : MN= 1 00 

88 SCREEN 2 : FOR 1-0 TO 3 

90 VPOKE BASE ( 10) +252 + 1 . 32 

92 VPOKE BASEflO)+252 + I + 2bf).32 

94 VPOKE BASE{10)+252+I+512,32 

96 NEXT I 

J20 FOR I-L TO 32 

130 VPOKE BASE (121+2015+1, NA ( I ) 

131 VPOKE RABI ( 1 1 ) +201 5 + 1 , (ABS ( 
I<17) «5+DM6+15 

1.32 VPOKE RASEO 21+4063 + 1 , NA ( I ) 

133 VPOKE BASE ( 1 1 1 +4063+ I i (ABSf 
F<17)*5+1)»16+15 

134 VPOKE BASEíl 7) ¥61} 1+1 ,NA(I 1 

139 VPOKE HASEf 11 1+611 1+1 . (ABS ( 
K17)*5+1>*16+I5 

140 NEXT 

160 FOR K-0 TO SI : SO [ K ) =K ' NEXT 

180 GOSIIH 15QQ;N-0 

190 FOR CX-31 TO 200 STEF 4H : FO 

n er*i to 140 step 104 

200 CiOSUB 1 000 :<;OSt)B 200(1 : FOR 3 

-l TO 500 : NEXT J.CT.CX 

210 FOR .1-1 TO 1000:NEXT:r.OT() 1 



ST+ 



-N+J : IF 



101(1 RETURN 

1500 FOR X-52 TO 2 STEP -1 

1510 Q'1NT (UNO ( 1 ) "X) + t 

1520 T-SO(X-l) :SQ(X-l)-SOÍO-ll 

SQ(Q-1)-T 

1530 NEXT 

1540 FOR X-0 TO 9 : SO (X + 52 1 ~SQ ( ! 



I - (CX+42 ,CY 



) : NEXT 
1550 RETUPN 
2000 LINE (CX-l.CY- 
+71) .15, BF 

2005 LINE (CX-2.CY-1)-(CX-2.CY+ 
71) .12 

2010 SS-NUS(NM) :PX-CX+24:PY=CY+ 
24:G0SUB 2550 ! PY=CY+1 5 : COSUB 25 
50:PY=CY+35:GOSUB 2550:FOR J-0 



1000 ST-INTÍSOd 



i/)3)- 



: nm ■ 
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2bi 



v [■■■■■ 



\V RASI 



2* sm<px/ai t 12. 252 
2520 VPOKE BASE (10 
2 + INTíPX,'H)+12.251 
2530 VPOKE BASE 
2+TNTÍPX/H) +■ 12,. 
2S40 ypoKK RASEÍ10 
2*INT(PX/H)+32.: 
2550 VPOKE BASE 
7 + TNT ( PX/8) ♦ 12 , 



HNTIPY 
RETIIHN 

flHTÍPV 
riKTUUN 



A linha 10 cuida do espaço string da 
memória (retire o comando CLEAR pa- 
ra ver o que acontece), das cores da tela 
e das teclas de função na parte inferior 
do vídeo. A linha 20 comunica que as 
cartas estão sendo embaralhadas. 

As letras e números das cartas serão 
desenhados com DRAW. A linha 30 co- 
loca as instruções para o desenho den- 
tro da matriz NUS, depois que as leu na 
linha DATA 40. A linha 30 também di- 



mensiona essa matriz. 

Como não podemos usar sprites, co- 
locaremos os símbolos dos naipes (os 
caracteres 3 a 6) diretamente na tela 
de alta resolução, com VPOKE. A linha 
50 buscará os desenhos desses símbo- 
los dentro da tabela de padrões da tela 
de 40 colunas. O endereço inicial da ta- 
bela de padrões da tela 0 começa em 
BASE (2). 

A linha 60 dimensiona a matriz SQ, 
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usada para em baralhar as cartas, e, ain- 
da, seleciona a tela de alta resolução e 
inicializa o gerador de números randô- 
micos. 

O laço FOR...NEXT das linhas 120 
a 140 transfere os padrões dos símbo- 
los dos naipes para a tabela de padrões 
da tela de alta resolução. Além disso, 
coloca as çores desses símbolos na tabela 
de cores. 

Como a tela de alta resolução é divi- 



dida em três porções, tudo deve ser fei- 
to três vezes. Assim, as linhas 130, 132 
e 134 cuidam dos padrões, enquanto as 
linhas 131, 133 e 135 se encarregam das 
cores. 

O laço FOR... N EXT das linhas 70 a 
110 modifica a tabela de nomes da 
tela de alta resolução, impedindo que 
os símbolos sejam desenhados agora. 
Apague essas linhas para ver o que acon- 
tece. 




A linha 160 coloca valores de 0 a 51 
nos primeiros elementos de SQ. A linha 
180 chama a sub-rotina que embaralha 
as cartas (linhas 1500 e 1510). O valor 
0 é colocado em N; isso significa que o 
primeiro elemento de SQ esiá sendo co- 
locado em questão. 

A linha 190 inicia um laço FOR... 
NEXT que usa as variáveis CX e CY. 
cuja função é posicionar os símbolos 
dos naipes nas cartas. 

A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1 000, fornece o nai- 
pe — ST — e o valor — NM — da car- 
ta em questão. A segunda, da linha 2000 
à 2140, calcula as posições onde os sím- 
bolos dos naipes devem ser desenhados 
naquela carta. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
mento. Vários padrões se repetem na 
disposição dos símbolos dos naipes — 
as cartas de menor valor geralmente 
usam um só deles, enquanto as de maior 
valor requerem três ou mais. A sub- 
rotina verifica quais desses padrões são 
necessários para colocar os símbolos de 
determinado naipe em número e posi- 
ção adequados. 

Antes do cálculo das posições dos 
naipes na tela, os números ou letras cor- 
respondentes ao valor da carta são de- 
senhados em cantos opostos da mesma 
pelas linhas 2030 e 2040, que usam a in- 
formação contida em NUS. 

As linhas 2050 a 2090, com base no 
valor da carta e de CX e CY, calculam 
as posições onde os símbolos dos naipes 
serão colocados na tela. As coordena- 
das da posição estão em PX e PY. 

Uma vez que PX e PY tenham sido 
calculados, a sub-rotina da linha 2500 
é chamada. Ela calcula a posição da ta- 
bela de nomes — BASE (10) — em que 
devemos colocar os símbolos dos naipes, 
para que eles apareçam numa posição 
correspondente a PX.PY. Essa sub- 
rotina é responsável pelo desenho pro- 
priamente dito. 

A linha 2000 desenha a parte branca 
da carta, mas não apaga os desenhos 
produzidos com VPOKE. Isto é feito 
pela linha 2010, que apaga qualquer 
símbolo de naipe que tenha restado de 
uma antiga carta. 

A linha 210 provoca uma pausa an- 
tes que o programa volte para a linha 
1 90. Esta desenha uma nova série de oi- 
to cartas. 



Apresentamos a seguir o programa 
que mostra as cartas na tela do Apple. 
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Para que funcione no TK-2000, preci- 
saremos fazer uma pequena alteração. 

10 HOME :E = 35000: HIMEM ! E: 
HTAB 9: VTAB 12: PRINT "EMBARAL. 
HANDO AS CARTAS" 

20 F = INT (E / 256} : POKE 232 

. E - F * 256: POKE 233, F 

30 FOB I - E TO E Ml ♦ 17 * 

32 

40 BEAD A: POKE I , A 
50 NEXT 

60 SCALE- 1 : ROT- 0 
7 0 DATA 20 ,0 .42 .0 .74 .0 . 
106 .0 .138 ,0 .170 ,0 .202 .0 
,234 .0 .10 .1 .42 ,1 .74 .1 .1 
06 .1 .138 .1 ,170 
234 .1 .10 .2 .42 , 



27 ,87 ,7 
159 ,0 ,0 



,105 .209 ,219 ,63 



.74 .2 ,10 

109 .209 
,169 .251 
213 ,63 



6 ,2 ,138 ,2 
72 DATA 0 ,72 ,45 
,251 ,219 .23 .77 .73 
.219 .27 .110 .73 .9 
,63 ,63 ,55 ,77 ,73 ,169 ,251 
219 ,27 .6 .0 .0 ,0 
74 DATA 0 ,72 ,45 ,109 ,209 
.27 ,223 ,155 .73 ,9 .77 .218 . 
59 ,63 .159 ,9 ,77 .73 ,218 .21 
9 ,251 ,74 .45 .109 ,209 ,219 , 
219 



DATA 
.251 .219 
.63 ,255 

.219 .74 
19 ,19 .0 
78 DATA 



.109 .209 
,141 ,219 
,74 ,73 .105 ,218 ,223 
5 .109 .209 .219 .2 

,0 ,0 ,0 
0 ,72 .77 ,77 ,218 
,251 ,251 .74 .77 ,77 .218 .63 
.63 ,159 ,73 ,9 ,77 ,218 ,25L , 
219 .74 ,73 .77 .216 .219 ,219 
,2 ,0 ,0 ,0 ,0 ,0 
80 DATA 0 ,72 .45 .109 .209 
,219 .27 ,159 .9 .77 ,73 ,218 . 
59 ,63 .159 ,73 ,9 .77 ,218 ,25 
1 .219 .74 .45 .109 ,209 .219 , 
219 .19 .0 .0 .0 .0 
82 » BATA 0 .72 .45 ,109 .209 
.2J« .27 ,159 ,9 .77 ,73 .218 , 
= i 159 ,9 ,77 ,77 .218 ,25 
209 .219 . 

45 ,45 ,141 , 
73 .105 .218 
77 ,209 .219 
209 ,219 ,219 
0 

45 ,109 .209 
77 ,77 ,218 , 
.77 ,218 .25 
.209 ,219 . 

,109 .209 
,77 ,216 . 

77 .218 .25 
218 ,219 ,2 




DATA 



19 



5 ,T73 ,2 
,105 ,169 
.169 . 
41 ,45 ,213 



,251 .187 ,10 
.251 .187 .105 

219 .19 ,0 .0 ,0 .0 .0 
DATA 1^.72 .9 .45 .141 
223 .155 ,73 ,9 ,77 ,21B 
219 .74 .73 ,77 .218 ,251 



94 DATA 0 .8 ,45 ,45 ,109 ,2 

18 .223 .27 ,87 .77 .9 .141 ,27 
,223 ,27 ,87 ,109 ,9 ,141 ,27 

.223 .31 ,87 ,45 .45 ,109 ,218 
.251 ,219 ,2 ,0 ,0 
96 DATA 0 ,8 .77 .73 .209 ,2 
23 ,219 .87 ,77 ,9 .141 .219 ,2 
23 .187 ,41 ,45 .77 ,209 ,27 ,2 
23 .187 ,105 ,73 .141 .251 .219 

, 187 .0 ,0 ,0 .0 .0 
98 DATA 0 ,72 ,109 ,109 .26 
,63 ,63 .63 ,87 ,45 ,45 ,45 .21 
3 .59 .63 , 255 ,74 ,41 ,109 ,20 
9 ,219 ,223 ,83 .73 .73 ,209 ,2 

19 .219 .19 ,0 ,0 ,0 

100 DATA 0 .72 ,9 .77 ,209 . 
27 .63 .223 .74 .45 .45 ,141 ,5 
9 ,63 ,63 .191 ,9 .45 .45 ,141 
.219 ,63 ,223 ,74 ,9 ,77 ,209 , 
219 .219 ,19 ,0 .0 
102 DATA 0 ,72 ,41 ,109 .209 

,27 ,63 .223 ,74 .9 .77 ,209 . 
255 ,31 ,191 ,41 ,45 .45 ,173 , 
59 .31 ,31 .191 ,73 ,105 .137 , 
219 ,63 ,223 ,2 ,0 ,0 
104 DATA 0 ,72 .9 ,77 ,209 , 
27 ,63 .223 ,74 ,45 ,45 ,141 ,5 
9 ,63 ,63 ,191 ,41 ,45 ,45 ,173 

,27 .31 ,31 ,159 ,73 ,105 ,137 

,219 ,63 .223 ,2 ,0 
110 DIM SQ(61) 

120 FOR K = 0 TO 51:SQ(K) - K: 
NEXT 

160 HGR : POKE - 16302.0 

170 HC0LOH= 1: FOB I - 0 TO 19 

li HPL0T 0.1 TO 279,1: NEXT 

180 GOSUB 1500:N - 0 

190 FOR CX - 6 TO 250 STEP 54: 

FOB CY = 2 TO 120 STEP 100 
200 GOSUB 1000- GOSUB 2000: FO 
B J = 1 TO 500: NEXT J , CY . CX 
210 FOB J - 1 TO 1000: NEXT : 
GOTO 190 

1000 ST - INT (SQ(N) / 13) + 1 
:NM = SQ(N) - 13 * ST + 14:N - 
N + 1: IF N > 51 THEN N - 0 
1010 BETURN 

1500 FOB X - 52 TO 2 STEP - 1 
1510 0 = INT ( AND (1) * X) + 
1 

1520 T - SQ1X - 1):SQ(X - 11 - 
SQ<Q - 1) :SQ{Q - 1) = T 
1530 NEXT 

1540 FOR X - 0 TO 9:SQ(X + 52) 

- SQ(X} : NEXT 
1550 BETUBN 

2000 HCOL0R- 3: FOB I - CY TO 
CY + BO: HPLOT CX.I TO CX + 50. 
t; NEXT 
2010 S = NM 

2020 HCOLOS^ 0 j A 
2030 DRAW S AT CX + 3 i CY > 8 
2040 HOT- 32: DBAW S AT CX + 4 
8j_ÇY + 72 : ROT- D 

IF NM / 2 < > INT (NM / 
>B NM > 10 THEN PX - CX + 2 
- CY + 39: GOS1IB 2500 
IF NM = 2 GR NM = 3 OR NM 
|>R NM = B^THEN PX - CX + 
«■ 27: GOSUB 2500:PY 



= PY + 26:PX = PX + 8: ROT- 32: 

GOSUB 2500: BOT- 0 
2060 IF NM < 4 OH NM > 10 THEN 

2140 

2090 IF {NM * 10 OB NM - 8) TH 
EN NS - INT ( (NM - 1) / 2) : GO 
TO 2100 

2095 NS = INT (NM / 2) 

2100 FOR J - 0 TO NS - 1 

2110 PX - CX + 8:PY - CY + 20 + 

J * 38 / (NS - 1) :F > <J * 38 
/ (NS - 1) + 20 > 39) : ROT- F * 
32:PX - PX + F - B:PY - PY + F 
* 2: GOSUB 2500: R0T= 0 
2120 FE = (J * 38 / (NS - 1) + 
20 < 34) :F = NOT (FE OH F):PX 
- CX + 32 + ( NOT FE) * 8:PY ■ 
PY + F * 2: ROT- NOT FE • 32: 
GOSUB 2500: ROT- 0 
2130 NEXT 
2140 BETURN 

2500 ON ST GOTO 2510,2520,2530 
,2540 

2510 HCOLOB- 0: DBAW 14 AT PX . 
PY: BETUBN 

2520 HCOLOR- 0: DRAW 15 AT PX. 
PY: RETUBN 

2530 HCOLOR= 0: DRAW 16 AT IN 
T (PX) , INT (PY) : BETUBN 
2540 HC0LOR" 0: DRAW 17 AT IN 
T (PX) . INT (PY) : BETUBN 

Se você tiver um monitor monocro- 
mático e quiser dar um aspecto mais 
agradável à tela, apague a linha i 70. 

Os usuários do TK-20O0 devem mu- 
dar a linha 160 para: 




1160 MP 



HGR 



As primeiras linhas do programa são 
responsáveis por monlar na memória do 
Apple uma tabela de figuras contendo 
as letras e números das cartas, bem co- 
mo os símbolos dos naipes. As linhas 
DATA 70 a 104 foram criadas pelo nos- 
so programa editor de figuras. As pri- 
meiras delas, com exceção da mensagem 
"EMBARAL HANDO AS CARTAS", já 
apareceram diversas vezes em JNPUT. 

A linha 1 10 dimensiona a matriz SQ, 
usada para embaralhar as cartas. A li- 
nha 120 enche essa mesma matriz com 
valores de 0 a 51. 

A linha 160 liga a tela de alta resolu- 
ção. No Apple, um POKE faz com que 
a tela seja totalmente utilizada. No 
'a selecionada é a segun- 
MP precede HGR, pa- 
fcmo efeito. 

mo de fun- 
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A linha 200 chama duas sub-rotinas. 
A primeira, da Unha 1000, fornece o nai- 
pe — ST — e o valor NM — da carta 
em questão. A segunda, da linha 2000 
à 2140, calcula as posições em que de- 
vem ser desenhados os símbolos do nai- 
pe da mesma carta. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
mento. Vários padrões se repetem na 
disposição dos símbolos dos naipes — 
as canas de menor valor geralmente 
usam um só deles, enquanto as de maior 
valor requerem dois ou mais. A sub- 
rotina verifica quais desses padrões são 
necessários para desenhar os símbolos 
de determinado naipe em número e po- 
sição adequados. A instrução ROT com- 
plica um pouco mais essa sub-rotina, 
pois faz com que alguns símbolos apa- 
reçam de cabeça para baixo. 

Antes do cálculo das posições, as li- 
nhas 2030 e 2040 desenham os números 
ou letras da carta em questão em can- 
tos opostos da mesma, usando DRAW. 

As linhas 2050 e 2090 calculam as po- 
sições de cada símbolo do naipe, com 
base no valor da carta. PX e PV são as 
coordenadas desta posição. 

Uma vez que PX e PV tenham sido 
calculadas, a sub-rotina da linha 2500 
é chamada. Essa rotina usa DRAW pa- 
ra desenhar os símbolos dos naipes. 

A linha 210 provoca uma pausa an- 
tes que o programa volte para a linha 
190. Esta desenha uma nova série de dez 
canas. 



Apresentamos a seguir a seção do 
programa para o TRS-Color que dese- 
nha as cartas. Digite-a e use RUN para 
ver o computador distribuir as cartas. 

10 pmode 3.1 

20 cls:pbint £226 . "estou embaba 
lhando as cartas" 

30 DIM NUS(13):F0B K=l TO 13:RE 
AD NUS(K) s NEXT 

40 DATA BD2S4U5EB5FD 2NL5D 3 , RDLD 
fi, RDNLDL , DRDU2 , 
DGD. ND2RDNLDL . NDP. 
2NU2RU2L . S4BD5F2J 
6R3NH2NFJ 
50 FOR^ 
P 32 
60 RE 
: NEXT 
70 DA\ 
187, 1Ê 



0 DATA 2.0,3 
176,238. 2 
3.0,3,0 





90 DATA 1 , 0,6.64.9, 12B, 38.96.25 
,144.102.100,153.152,102.100.15 
3.152.34,32,1.0 

100 DATA 2,0,9,128,6,64.9.128.3 
4,32,153.152.102.101.153.152.10 
2,101,17,16.2.0 

110 DIM C(3) ,D(3) .H(3) . S ( 3 J , SQ ( 
61) 

120 GET (0.0) - {13. 10) .H,G 

130 GET(0,11)-(13,21) , D, G 

140 GET (0.22) - (13,32) ,S.G 

150 GET(0,33)-U3.43) ,C.G 

160 FOR K=Q TO 51:SQ(K)=K:NEXT 

170 PCLS 6 : SCREEN 1 , 1 

160 GOSUB 1500:M-0 

190 PCLS 6:FOR CX=6 TO 200 STEP 

50:FOR CY-11 TO 10B STEP 97 
200 GOSUB 1000:GOSUB 200Q:FOR J 
=1 TO 500:NEXT J.CY.CX 
210 FOR J-l TO 1000:NEXT:GOT.O 1 
90 



-0 

1010 RETURN 

1500 FOR X-52 TO 2 STEP -1 
1510 Q-RND(X) 

1520 T-SQ(X-l) :SQ(X-1)-SQ(Q-1) : 
SQ(Çj-l) -T 
1530 NEXT 

1540 FOR X-0 TO 9 : SQ (X+52 ) -SQ (X 
) : NEXT 
1550 RETURN 

2000 LINE(CX.CY)-(CX+44,CY+72) , 

PRESET.BF 

2010 SS-NUS(NM) 

2020 IF ST>2 THEN COLOR 7 ELSE 
COLOR 8 

2030 DRAW"S12BM"+STRS<CX+3>+-." 
+STRS(CY+2)+SS 

2040 DRAWS12BM-+STR$(CX+35>+". 
"+STRS(CY+64)+SS 

2050 IF(NM/2 O INT(NM/2) AND N 

M07) OR NM>10 THEN PX-CX+16: P 

Y-CY+31 :GOSUB 2500 

2060 IF NM-2 OR NM-3 OR NM-10 O 

R NM-8 THEN PX-CX+16: PY-CY+19: 

GOSUB 2500: PY-PY+24 : GOSUB 250 

0 

2070 IF NM-7 THEN PX-CX+16: PY- 

CY+39: GOSUB 2500 

2080 IF NM<4 OR NM>10 THEN 2140 

2090 IF (NM-10 OR NM-8) THEN NS 

-INT((NM-l)/2) ELSE NS-INT(NM/2 

) 

2100 FOR J-0 TO NS-1 

2110 PX-CX+3:PY-CY+12+J*38/{NS- 

1) :GOSUB 2500 

2120 PX-CX+30:GOSUB 2500 

2130 NEXT 

2140 RETURN 

2500 ON ST OOTO Z510 . 2520 . 25 30 . 
2540 

2510 PUT{PX.PY)-(PX+13.PY+10) ,H 
,OR : RETUHN 

2520 PUTÍPX.PYj-IPX + lS.PY+lj 
. OR ■ RETURN 

2530 PUT(PX,P*Í-ÍPX+13,PY+ 
, OR : RETURN 

2540 PUTÍPX.PYt^tPX+lS.Pf 
, OR : BETURN 



Escolhemos um PMODE com 4 co- 
res, de modo que os naipes e números 
das carias sejam azuis ou vermelhos. A 
linha 20 comunica ao jogador que as 
cartas estão sendo embaralhadas. 

O comando DRAW coloca na tela de 
alta resolução as letras para os ases, reis, 
damas e valetes, bem como os números 
das cartas. As instruções para esse co- 
mando são lidas na linha DATA 40 e 
guardadas na matriz NUS pela linha 30, 
usando READ. 

A linha 60 coloca os símbolos dos 
naipes na tela, usando POKE. Os pa- 
drões para esses símbolos são obtidos 
nas linhas DATA 70 a 90. As linhas 120 
a 150 usam o comando GET para guar- 
dar os símbolos na memória, tão logo 
sejam desenhados. As matrizes que os 
guardam foram dimensionadas na linha 
1 10, juntamente com a matriz SQ, em- 
pregada para embaralhar as cartas. A li- 
nha 1 60 coloca os números 0 a 5 1 na ma- 
triz SQ. 

A linha 180 chama a sub-rotina que 
começa na linha 1500, para que as car- 
tas sejam embaralhadas. O valor zero é 
colocado em N, o que significa que o ele- 
mento 0 da matriz SQ está em questão. 

A linha 190 colore a tela de ciano e 
inicia dois laços FOR.. .NEXT que in- 
cluem as variáveis CX e CY, usadas pos- 
teriormente para posicionar os símbo- 
los dos naipes nas cartas. 

A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1000, calcula o nai- 
pe — ST — e o número — NM — da 
carta em questão. A segunda, da linha 
2000, calcula as posições em que os sím- 
bolos do naipe da carta serão desenhados. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funcidna- 
mento. Existem certos padrões quese re- 
petem na disposição dos símriolos^É 
naipe — as cartas de menor valor usarn 
apenas um deles, enquanto as de maj^r 
valor requerem dois ou mais. 
rotina verifica quais os padn 
sários para deserihi 

Antes do cálcuí 
pe, a letra ou o 
nhado em dois canti 
ma, coj 



■ • " pai 
cal 



opostos i 
comando DRAW e a infor- 
tida em NUS. 
2050 a 2090 calculam as.rx>- 

naipe com base 

cartaJ^B PV são as coor- 
dessas^J^^Ls, calculadas a 
partir de CX L ^5^B 

Uma vez que B(L^"rY tenham sido 
calculadas, a sub-rotina 2500 é chama- 
desenhando os símbolos do naipe. 
A linha 210 provoca uma pausa an- 
que o programa volte à Unha 190.Es- 
apaga a tela e mostra outra carta. 
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Aqui estão mais algumas funções 
matemáticas em BASIC. Suas aplicações 
práticas vão desde o cálculo da área 
de um piso até o cálculo da velocidade 
de um corpo em queda. 



A função de potenciação tem varia- 
das aplicações, sobretudo quando pre- 
cisamos calcular áreas e volumes em 
nossos programas. 

No computador, essa função, repre- 
sentada por T, é colocada sempre entre 
dois números. Por exemplo: 2T 3 (diz-se 
"dois elevado à terceira potência"). 



a dos computadores aqui 
indicados, a função de potenciação de- 
ve ser digitada por meio da tecla (cir- 
cunflexo), e é assim que ela aparecerá 
nas listagens. As exceções são: 



5 El 



Usa-se a tecla T para digitar a opera- 
ção de potenciação. 



Usa-se a tecla ** (duplo asterisco) pa- 
ra digitar a operação de potenciação. 

Um número elevado ã potência de 
outro é simplesmente o primeiro núme- 
ro multiplicado por ele mesmo um cer- 
to número de vezes. O segundo número 
determina quantas vezes. 

De volta ao exemplo inicial, dois ele- 
vado à terceira potência é dois multipli- 
cado por dois três vezes. Ou seja: 



A operação é a mesma para qualquer 
ar de números. 



Convencionalmente, representa-se a 
função de potenciação colocando-se o 
segundo número, em tamanho menor, 
junto ao primeiro. Por exemplo, 2 S , 5*. 
O computador, porém, não entende es- 
sa notação matemática. 



AO QUADRADO E AO CUBO 



A potência de dois e a potência de 
■ três recebem denominações especiais. 
| Qualquer número elevado à potência de 



dois é dito "elevado ao quadrado", e 
qualquer número elevado à potência de 
três é dito "elevado ao cubo". De fato, 
existem razões para esses nomes. 

Quando calculamos a área de um re- 
tângulo (seja ele um tapete ou qualquer 
objeto retangular), medimos seu com- 
primento e largura e, em seguida, mul- 
tiplicamos os dois números. O resulta- 
do dessa multiplicação é um número em 
unidades quadradas. A área é medida 
em "metros quadrados" porque, na ver- 
dade, estamos calculando quantos qua- 
drados, de lados iguais a um metro, ca- 
bem nesta área. Da mesma maneira, um 
número elevado a dois é dito ao quadra- 
do (uma área quadrada é representada 
pela multiplicação da unidade básica 
por ela mesma). 

Enquanto a potência de dois recebe 
um nome de medida de área, a potên- 
cia de três recebe um nome de medida 
de volume. Para calcular o volume de 
um cubo, multiplicamos o comprimen- 
to pela largura e, depois, pela altura. 
São necessárias, portanto, três multipli- 
cações da unidade básica (duas para a 
área e mais uma para a altura). Um nú- 
mero elevado à terceira potência é, as- 
sim, um número ao cubo. 



Vimos que um número ao quadrado 
calcula área e um número ao cubo cal- 
cula volume. Não é possível construir 
modelos para potências maiores que 
três. Se tivéssemos um objeto com qua- 
tro dimensões, seu volume seria medi- 
do em unidades de quarta potência, o 
que é obviamente absurdo. Contudo, as 
potências maiores têm muita utilidade, 
como veremos a seguir. 

Suponha, por exemplo, que quere- 
mos saber a probabilidade de um dado 
cair com a face seis para cima. É sim- 
ples: cada face tem a mesma chance de 
aparecer; portanto, cada face tem 1/6 
de chance. Suponha, agora, que quere- 
mos saber a probabilidade de obter seis 
duas vezes seguidas. Existe 1/6 de chan- 
ce de que apareça um seis na primeira 
vez e, se aparecer, existe outro 1/6 de 
chance de que apareça um seis na segun- 
da vez. A probabilidade total é 1/6 ve- 



zes 1/6, ou seja, 1/6 ao quadrado. O 
mesmo vale para quantas vezes quiser- 
mos. A chance de que o dado caia sete 
vezes com o três para cima, por exem- 
plo, é: 1/6* 1/6* 1/6* 1/6* 1/6* 1/6 
* 1/6 = (l/6)t7. 

Quando examinamos a conversão pa- 
ra binário, tivemos a oportunidade de 
usar números elevados a potências maio- 
res. Cada dígito binário representa uma 
potência do número dois. No número 
binário 1 1 1 1 1 1 1 1, por exemplo, o pri- 
meiro dígito da direita (bit 0) represen- 
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A GRANDES POTÊNCIAS 




NUM PROGRAMA 



ta um I,o segundo (bit 1) um 2, o ter- 
ceiro (bil 2) um 4 e os seguintes, respec- 
tivamente, 8, 16, 32, 64, 128. 

Veja que 4 é 2*2, ou 2 elevado à po- 
tência de 2; 8 é 2*2*2, ou 2 elevado à 
terceira potência, 16 é 2*2*2*2 e assim 
por diante: 

2"2 - 2*2 - 4 

2-3 . 2*2*2 - 8 

2"4 - 2*2*2*2 = 16 

2*5 - 2*2*2*2*2 - 32 

2*6 - 2*2*2*2*2*2 - 64 
2'? - 2-2*2*2*2*2*2 - 128 



Estão faltando dois valores nessa ta- 
bela. Pode-se perceber facilmente quais 
são eles, mas a explicação talvez se- 
ja um tanto surpreendente. O primeiro 
valor é 2T1. Obviamente, pela analo- 
gia binária, ele deve ser 2. Na verdade, 
se 2T2 é 2 multiplicado por ele mes- 
mo uma só vez, 2TI deve ser 2 multi- 
plicado por ele mesmo uma vez a me- 
nos, ou seja, nenhuma.vez. 2T1 fica, en- 
tão, valendo 2. 

O valor abaixo deste é 2T0. À primei- 
ra vista, parece que o resultado é zero mas. 



pela tabela acima, fica claro que é L 

Isso acontece porque 2 precisa ser 
multiplicado por ele mesmo uma vez a 
menos que 211. Como 2T1 é 2 mesmo, 
só há uma maneira de multiplicar uma 
vez a menos: dividir 2 por ele mesmo. 
E qualquer número dividido por ele 
mesmo, como sabemos, vale 1. 

Para verificar o que foi dito ou o va- 
lor de qualquer outra potência, você de- 
ve digitar: 

PRINT 2-X 




PROGRAMAÇÃO B 
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...onde X é o valor que preu-iuk n- 
car. Em seguida, tecle <ENTER> 
< RETURN > . 



Experimente atribuir qualquer valor 
a X, ainda que valores grandes possam 
acarretar erros de sobrecarga (overflow). 
O que aconteceria, por exemplo, se se 
fizesse X igual a 1/2? Retornaremos ao 
assunto mais tarde. Por enquanto, va- 
mos explorar um pouco mais a tão usa- 
da potência quadrada. 



COMPARE QUADRADOS 



O programa abaixo usa uma série de 
números para desenhar na tela diferen- 
tes quadrados, permite que se escolha 
dois deles e compara suas áreas. Acom- 
panhando-o. a ideia de potência ficará 
mais clara. 



10 SCREEN 2: COLOR IS, 12.3 

20 FOR N-17 TO ] STEP -1 

30 LINE(60,171)-(60*B*N,171-B*N 

) .1 .B 

40 NEXT 

50 IF INKEYS= " " THEN 50 
60 CLS: SCREEN D 

70 PR INT"Deae ja comparar al guina 

área la/n) ?" 
80 AS-TNKEYS : IF ASO"s" AND AS< 
>"n" AND AS<>"S" AND AS<>"N" TH 
EN 80 

90 IF AS="n" OR A3="N" THEN 270 
100 PRtNT:INPUT"Qual o primeiro 
quadr ado cuja área quer compar 
ar (1-17) " ; A: A=INT (A) : IF AO O 
B AM7 THEN 100 

110 PRINTíINPUT-E qual é o aegu 

ndp (1-17) " ;B:B=INT(B) : IF B< 1 

OR B>17 THEN LIO 

120 TF A>B THEN 220 

130 CLStPRINT" A primeira área 





140 PRINTUSlNfi"tlt-l*":B*2/A'2i 

ISO PR1NT" vezea den-tro da aeo 
unda" 

160 FOR K=l TO 2500:NEXT 
170 CLS:SCREEN 2 

180 LTNE (60. 171) - (60+8*A. 171-B* 
A) ,1 ,BF : LI NE (60 , 1 71 ) - (60+B*B . 1 7 



l- 



. 1 . B 



190 IF TNKE Y S = " * THEN 190 
200 CLS:SCREEN 0:PRINT" Quer c 
Impar ar mai9 a 1 guma área (s/n) 
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90 HOME : VTAB 10 

100 PRINT "DESEJA COMPARAM ALG 

UMA AR EA (S/N) ?" 

110 GET AS: IF AS < > "S" AND 

AS < > "N" THEN 110 
120 IF AS ■ "N" THEN 500 
130 PR TNT : INPUT "QUAL 0 PR1M 
EIRO QUADRADO QUE DESEJA COH-PA 
RAR (1-17) ";A:A - INT (A)- IF 

A < ] OR A > 17 THEN 1 30 
140 PRINT : INPUT " E QUAL O SE 
GUNDO (1-17} "iB:B = INT (BJ í 
IF B < 1 OR B > 17 THEN 140 
150 IF A > B THEN 190 
160 HOME : VTAB 10 
170 PRINT "A PRIMETRA AREA CAB 
E*:B~2/A~2;" VEZES Í1ENTR 
O DA SEGUNDA" 
180 GOTO 210 
190 HOME : VTAB 10 
200 PRINT "A PRIMEIRA AREA E ' 
";A ' 2 / B " 2;" VEZES MAIOR Q 
UE A SEGUNDA " 

210 FOR T = 0 TO 2000: NEXT 

220 HGR2 : HCOLOR- 3 

230 KA = (A + l) * I0:LA ■ 190 



KA 

240 KB = 



10: 1.8 



1 90 



KB 



250 HPLOT 10. LA TO KA . LA TO KA 

,180 TO 10,180 TO 1 0 . LA 

260 HPLOT 10. LB TO KB.LB TO KB 

, 1 80 TO 10, 180 TO 1 0 , LB 

270 FOR T = 0 TO 3000: NEXT 

500 TEXT : HOME ! VTAB 10 

510 PRINT "QUALQUER TECLA PARA 

REINICIAR" i 
520 GET AS: IF AS = " " THEN S2 
0 

5 30 RUN 



10 CLS 

20 PRINT AT 2.0;" Comprimento" 

; AT 3.0;"dos":AT 4 . 0 ; " 1 ados" 

30 PRINT AT 2.24;"Area";AT 3. 

24;"do";AT 4 , 24 ; " quad r ado" 

40 LET 7=0 : PLOT S5 , 23 

50 FOR n=l TO 13 

60 LET m=n: IF m>7 THEN LET 

70 DRAW 0.n*8 

80 DRAW PAPER m : n»8 , 0 

90 DRAW PAPER m ; 0 , - ( n* 8 ) 

100 DRAW PAPER 7;-(n*B),0 

110 PRINT AT 6+(13-n) ,0;n;AT 6 

+ U3-n) ,25;n*n 

120 PAUSE 10: NEXT n 

140 INPUT "Você quer comparar 

áreas (a/n) '<" ;aS 

150 IF aSO"s" AND aS<>"n" 

THEN GOTO 140 

160 IF aS="n" THEN GOTO 300 

170 INPUT "Qual e o primeiro q 

uadrado cuja area vore quer co 

aparar? (l-13)";a: IF a<l OR a 

>] 1 THEN GOTO 170 

180 INPUT "E qual e o segundo? 

(l-13)";b: IF b<l OR b>13 THEN 

I GOTO 180 

I 190 LET -=1NT (a) : LET y = T NT ( . 



b) 

200 IF x>y THEN GOTO 280 

210 CLS : PRINT "A segunda are 

a e ";y"2/x"2;" vezes maior do 

720 PLOT 20.0- DRAM x*8,0: 
DRAW 0,x*8: DRAW -x*8 , 0 : DRAW 
0.-x*8: DRAW Y *8,0: DRAW 0,y*8 
: DRAW -y«8,0: DRAW 0,-y*B 
230 PB INT "Você quer comparar 
mais áreas (s/n) ?" 
240 INPUT aS 

250 IF a$0"s" AND aSO"n" 

THEN GOTO 24 0 

260 IF aS="n" THEN LET 7=1: 

GOTO 300 

270 GOTO 170 

280 CLS : PRINT "A primeira ar 

o que a segunda" 
790 GOTO 2 20 

300 IF z=1 THEN CLS : LET z'0 
310 PRINT I NK 2: FLASH l ; AT 0 

,0;" Pressione qua I qi;er tecla 



120 PAUSE 0 

330 IF tNKEYS=" n" THEN STOP 
340 RUN 



10 PM0DE4,1:PCLS:SCREEN1.1 

20 FOR N-17 TO 1 STEP -1 

30 LINE (20, 171)-(20+8*N, 171-8* 

N) , PSET.B 

40 NEXT 

50 CLS 

60 IF INKEYS=" " THEN 60 

70 PRINT" VOCE QUER COMPARAR AR 

EAS (S/N) ?" 

BO AS=INKEYS:IF AS<>"S" AND AS< 
>"N" THEN 80 
90 IF AS="N" THEN 220 
100 PRINT:INPUT" QUAL E O PRIME 
IRO QUADRADO CUJA AREA VOCE QUE 
R COMPARAR (1-17) ";A: A- INT (A) :I 
F A<1 OR A>17 THEN 100 
110 PRINT: INPUT" E QUAL E O SEG 
UNDO (1-17)";B:B=INT(B) :IF B<1 
OR B>17 THEN 110 
120 IF A>B THEN 200 
130 CLS: PRINT" A SEGUNDA AREA E 
"; B"2/A"2 ; "VEZES MAIOR DO Q 
UE A PRIMEIRA" 
140 FOR K-l TO 6000:NEXT 
150 PCLS:SCREEN 1,1 
160 LINE(2O,171)-<20+8*A, 171-8* 
A) .PSET.B: LINE {20. 1 71 ) - < 20+8*B , 
171-8*B) , PSET.B 
170 IF INKEYS-'" THEN 170 
180 CLS.PBINT" VOCE QUER COMPAR 
AR MAIS AREAS (S/N) 7" 
190 GOTO 80 

200 CLS:PRINT" A PRIMEIRA ABEA 
E";A~2/B"2:PRINT §32," VE2ES MA 
IOR DO QUE A SEGUNDA . " 
210 GOTO 140 
220 CLS 

230 PRINT £33. "PRESSIONE QUALQU 
ER TECLA PARA RECOMEÇAR " 
240 IF INKEYS'"" THEN 240 
250 GOTO 10 
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A rotina que faz a comparação co- 
meça pedindo que se escolha o primei- 
ro dos dois quadrados que serão cote- 
jados. Em seguida, verifica se o núme- 
ro que entrou não é ilegal, ou melhor, 
se não é menor ou maior que o número 
de quadrados. 

A função INT transforma em intei- 
ro o número que entrou, caso este seja 
um decimai. 

Uma vez escolhidos os dois números, 
o computador compara-os a fim de de- 
terminar qual é o maior. Em seguida, 
eleva cada número ao quadrado (isto é, 
multiplica cada um por si mesmo) e di- 
vide o maior pelo menor. 

Finalmente, obtido o resultado, a ro- 
tina joga na tela a mensagem que diz 
qual número é o maior e o quanto ele 
c maior que o outro. 



A potência de dois, ou a função qua- 
drada, talvez seja a mais utilizada das 
potências. Mas muitas vezes precisamos 
usá-la no modo inverso, ou seja, achar 
o número que gerou o número ao qua- 
drado que conhecemos. Suponha que 
sabemos, por exemplo, que a área de um 
quadrado é 81 e queremos especificar o 
comprimento dos lados. 

Com o número 81 não é tão difícil: 
9 vezes 9 é 81; portanto, o comprimen- 
to de cada lado deve ser 9. Mas se a área 
fosse 127, por exemplo, o cálculo do 
comprimento do lado (ou do número 
que ao quadrado é 127) torna-se bem 
mais difícil. Os computadores possuem 
uma função que ajuda neste cálculo: a 
função raiz quadrada. 

Digite PRINT SQRÍ81) e tecle 
< ENTER > ou < RETURN > — o nú- 
mero 9 deverá aparecer na tela. Para sa- 
ber quanto vale a raiz quadrada de 127, 
basta repetir a operação, substituindo o 
81 dentro dos parênteses por 127. 

O computador dispõe do comando 
especial SQR porque a raiz quadrada é 
amplamente empregada. Mas podemos 
utilizar também, para o mesmo cálcu- 
lo, a função de potenciação. 

Se você já usou frações como potên- 
cia, deve ter observado que 2T.5 (ou dois 
elevado a 1/2) tem o mesmo efeito que 
SQR(2). Experimente em seu micro 
SQR(81) e depois 811.5. Os resultados 
podem não ser exatamente os mesmos 
mas, certamente, serão bem próximos. 

A ffação 1/3, usada como potência, 
calcula o inverso do cubo, ou seja, a raiz 
cúbica. A mesma analogia vale para as 
outras potências. Embora cada raiz te- 
nha sua própria aplicação, a raiz qua- 
drada é a mais usada de todas. 



O comando SQR faz muito mais do 
que simplesmente calcular o lado de um 
quadrado do qual se conhece a área. Al- 
gumas equações matemáticas têm núme- 
ros ao quadrado e raízes quadradas e, 
nesses casos, pode-se utilizar SQR para 
calcular o resultado no computador. 

O programa que apresentamos a se- 
guir usa uma equação para calcular o 
tempo de queda de um objeto (despre- 
zando-se a resistência do ar). Os físicos 
chamam essa situação de "'corpo em 
queda livre no vácuo". O programa 
também calcula a velocidade em que o 
objeto se encontra quando atinge o so- 
lo. Esses cálculos envolvem números ao 
quadrado e raízes quadradas porque 
qualquer objeto em queda e sob a in- 
fluência da gravidade cai cada vez mais 
rápido com o passar do tempo (desprc- 
zando-se a resistência do ar). Na verda- 
de, estamos tratando com o quadrado 
do tempo. Mas, antes de maiores deta- 
lhes, vejamos o programa funcionando. 
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: INPi 



0 TF D<0 THEN 20 

0 T=SQR( <2*D) /9.B1) 

0 V = SUR (2*D*9 . fll) 

0 T=ÍNT(T*10t))/100 

0 V = TNT (V*100) /100 

0 PRTNT : PRINT "Tempo até i 

: PR INT" ao solo =";T;"segi 

0 PRINT : PRT NT "Velocidade 

" ! PR !NT"de impacto =":V: 

por segundo" 
00 PR INT" t" ; ] . 6*TNT (2 . 25 



m/h] 1 
200 t.OCATE 



V+.5) 
20:pfilNT"Qua]q,uer 



210 IF TNKEYS-" 



HO GD 

10 HOME 

20 PRINT "QUAL A ALTURA DA QUE 

DA " ; ! INPUT D 

30 IF D < 0 THEN 20 

40 T ■ SQR ( (2 ■ D( / 9.81) 

5 0 V - SQR (2 * D * 9.81) 

60 T - INT (T * 100) / 100 

70 V ■ INT (V * 100} / 100 

BO PRINT : PRINT "TEMPO ATE CH 

EGAR" : PRINT "AO SOLO - " ; T ; " S 

EGUNDOS" 

90 PRINT : PRINT "VELOCIDADE M 
AXIMA" : PRTNT "DE IMPACTO ";V;" 

METROS POR SEGUNDO " 
100 PRTNT "<":1.6 * INT (2.25 

* V + . 5) j " KM/H) " 
200 VTAB 20: PRINT "QUALQUER T 
EC1.A PARA REINICIO" 
210 GET AS: IF AS ■ "" THEN 2J 
0 I 
220 RUN 
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10 CI.S 

20 INPUT " INTRODUZA A DTSTANC 

IA DA QUEDA (METROS)", D 

.10 IF D<0 THEN GOTO 20 

40 LET T=SQR ((2*D)/9.81) 

50 LET V=3QR (2*D*9.81) 

60 I.ET T-INT (T*100)/100 

70 LET V- JNT {VlOOl/lOO 

BO PRINT INVERSE 1 ' '"TEMPO P 

ARA CHEGAR AO CHAO:"; TNVERSE 

0'T;" SEGUNDOS" 
90 PRINT TNVERSE 1 ' "VELOCIDA 
DE MÁXIMA ATINGIDA:"; INVERSE 
0*V;" METROS POR SEGUNDO" 

100 PRINT "(";INT (2.25*9+. 5)i 

" MPH) ■ 

200 PRINT ' ' " PRESSIONE QUALQUE 
R TECLA PARA RECOMEÇAR" 
210 IF INKEYS'"" THEN GOTO 

210 
220 GOTO 10 



QD 



10 CLS 

20 INPUT "DIGITE A DISTANCIA DA 

QUEDA (EM METROS) " ; D 
30 IF D<0 THEN 10 
40 T-SQR ( (2*D> /9.B1) 
50 V-SQR(2*D*9.81) 
60 T-INTCT*100)/100 
70 V-INTÍV"100)/100 
80 PRINT «97, "tempo para chegar 

ao chao:":PRINT T:"SEGUNDOS" 
90 PRINT «225, "velocidade maxin 
a alcançada :": PRINT V ; "f.ETROS P 
OR SEGUNDO" 

100 PRINT " (" ; INT f 2 . 25*V+. 5) ; " 
MPH) " 

110 PRINT:PRINT"PRESSIONE QUALQ 
UER TECLA PARA RECOMEÇAR" 
120 IF INKEÍS-"" THEN 120 
130 GOTO 10 

Em primeiro lugar, o computador 
limpa a leia e pergunta pela altura da 
qual o objeto vai cair. Caso você respon- 
da com um número negativo, a pergun- 
ta será feita novamente, pois não se po- 
de calcular raiz quadrada de um núme- 
ro negativo. 

Depois o computador calcula o tem- 
po que o objeto levará para chegar ao 
chão e a velocidade com que chega. Is- 
so é feito nas linhas 40 e 50. 

A equação usada na linha 40 é uma 
das versões da "equação de movimen- 
to" que, depois de rearranjada, tomou 
a forma: 



vel a, já que seu valor é constante: no 
lugar de a vemos, assim, 9.81. 

A linha 40 resolve a equação, indi- 
cando o tempo que o objeto leva para 
atingir o solo. 

A linha seguinte resolve uma equação 
semelhante, que calcula a velocidade 
do objeto no momento em que atinge o 
solo. 

V - V" 2«D*9.B1 

Nessa equação, em vez de dividir, o 
computador multiplica o número 2*D 
pela aceleração. V significa, no caso, ve- 
locidade. 

Em ambas as equações, o sinal V 
sobre o "2*D*9.81" ou "2*D39.8I" 
significa raiz quadrada de — é aqui, 
portanto, que usamos a raiz quadrada. 
Uma vez obtida a resposta para uma das 
equações, pode-se mudá-la de modo que 
o computador calcule a altura da qual 
o objeto foi jogado. 

De um modo geral, a equação se apli- 
ca a qualquer objeto em queda, seja ele 
um tijolo ou um foguete, O que pode 
mudar é o valor da aceleração. No nos- 
so exemplo, a aceleração deve-se à gravi- 
dade; por isso, a é ajustado para este va- 
lor. A gravidade tem uma aceleração de 
9.81 metros por segundo por segundo. 
Em outras palavras, para cada segundo 
na queda de um objeto sua velocidade 
aumenta de 9.81 metros por segundo. 
Metros por segundo por segundo tam- 
bém pode ser escrito como metros por se- 
gundo ao quadrado — e é aqui que a 
função potência entra em cena. 

As equações para esse cálculo tomam 
a seguinte forma: 



T - V (2*D)/ a 

...onde Té o tempo necessário para per- 
correr determinada distância (nesse ca- 
so, para atingir o solo), Déa distância 
■ (fornecida por você) e a é a aceleração 
|(mede o quanto a velocidade aumenta 



i*(t 2) 



Tente modificar o programa de mo- 
do que ele calcule respostas para estas 
equações. Em vez de altura, poderíamos 
fornecer ao computador a velocidade 
com que desejamos que um objeto atin- 
ja o solo (para a segunda equação) ou 
o tempo que ele deve levar antes do im- 
pacto. Em ambos os casos, o computa- 
dor calcularia a altura necessária para 
satisfazer o dado fornecido. 

A capacidade de resolução de proble- 
mas desse tipo tem vários usos práticos. 
Na maioria deles, porém, as equações 
necessitam de um tratamento mais cui- 
dadoso, que leve em conta influências 
sobre o corpo em movimento. Alguns 




Por que recebo uma mensagem de er- 
ro quando tento calcular a raiz quadra- 
da de um número negativo? 

Os computadores não são capazes 
de calcular a raiz quadrada de um nú- 
mero negativo e, na verdade, isto não 
existe no universo dos reais (embora 
para certos propósitos se atribua um 
valor imaginário). 

Elevar um número ao quadrado sig- 
nifica multiplicá-lo por efe mesmo. Nú- 
meros positivos multiplicados entre si 
resultam num número positivo, mas o 
mesmo acontece com os negativos 
(negativo vezes negativo resulta num 
número positivo). Não existe nenhum 
número real que, elevado ao quadrado, 
resulte num número negativo. E é cla- 
ro que o computador acusa erro quan- 
do lhe pedimos para fazer o impossível. 

Quando usamos SQR num progra- 
ma precisamos estar certos de que o 
número em questão será sempre posi- 
tivo. Caso haja a possibilidade de que 
apareçam números negativos (resulta- 
dos de cálculos anteriores, por exem- 
plo), aconselha-se o uso da função 
ABS. Essa função converte um núme- 
ro em seu valor absoluto, ou seja, reti- 
ra o sinal negativo, se houver. Para 
inclui-la num programa, substitua SOR 
IA) por SQR(ABS(A», onde A repre- 
i está usando. 



exemplos de aplicação seriam o cálculo 
do desempenho de um carro em testes 
de frenagem e aceleração ou mesmo a 
reconstituição de um acidente automo- 
bilístico. Neste último caso, poderíamos 
precisar a velocidade em que se encon- 
trava o veículo no momento da batida. 
O cálculo é possível, contanto que co- 
nheçamos os valores correios para sa- 
tisfazer as equações. 

Por meio da função de potenciação 
pode-se calcular muitas outras coisas 
além do desempenho de um carro ou da 
área de uma casa. Ela permite determi- 
nar, por exemplo, o quanto uma árvo- 
re cresce, ou por que um pássaro do ta- 
manho de um elefante não pode levan- 
tar vôo. Num próximo artigo continua- 
remos a explorar o uso das funções ma- 
temáticas no computador, inclusive pa- 
ra a obtenção de efeitos gráficos. 
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USE MENSAGENS CLARAS 


■ 


ROTINAS DE PREVENÇÃO 


DE ERROS 


■ 


EXCLUA VALORES INCORRETOS 


■ 


INDICAÇÃO DE ERROS 



Nem sempre é fácil separar o joio do 
trigo, quando se trata de 
programação: programas inteiramente 
corretos podem apresentar 
erros inesperados. Aprenda a evitá-los. 



A palavra-chave é uso. Não importa 
se o programa é considerado bom de um 
ponto de vista estritamente técnico: se 
ele se mostrar complicado, alguém vai 
fatalmente acabar tendo dificuldades e 
cometendo erros. 

O segredo para contornar esse pro- 
blema é fazer programas bem ordena- 
dos, de forma que todos os seus módu- 
los sejam claros no que se refere à fun- 
ção e ao modo de uso. 

Isso significa oferecer muitas infor- 
mações e telas explicativas e proteger 



adequadamente tanto o programa quan- 
to o usuário de erros simples. 

O ideal seria colocar no programa 
proteções contra todos os erros possí- 
veis. Teclas pressionadas equivocada- 
mente, entradas irregulares, valores ab- 
surdos — tudo, enfim, que possa atra- 
palhar a correia execução de um pro- 
grama deve ser evitado. Para isso, é 
necessário que se incorporem vários ti- 
pos de rotinas de verificação de erros e 
validação de entradas ao programa. 
Muitos dos programas mostrados por 
INPUT dXè o momento fazem uso des- 
ses artifícios. 



Mensagens precisas são muito impor- 
tantes para ajudar o usuário a com- 
preender de que maneira deve respon- 



der quando apresentado, por exemplo, 
a um menu de opções. 

Suponhamos, por exemplo, um me- 
nu que mostre as seguintes opções, típi- 
cas de um programa que manipula um 
banco de dados: 

1. Criar um novo registro. 

2. Alterar um registro existente. 

3. Carregar um arquivo. 

4. Gravar um arquivo. 

Se for usada uma mensagem do tipo 
"Selecione uma opção:" ou "Faça sua 
escolha:", o usuário ficará em dúvida 
sobre o que fazer. Deve dar entrada ao 
número da opção ou digitar uma ou 
mais letras do nome da opção? 

Certamente, uma mensagem mais ade- 
quada seria "Indique a escolha (1-4)" ou 
"Tecle 1-4 para fazer sua opção". 

Esse tipo de indicação deve ser feito 



1. CRIAR NOVO REGISTRO 

2. ALTERAR REGISTRO 
EXISTENTE 

3. CARREGAR ARQUIVO 
4 GRAVAR ARQUIVO 

íNPICáS,ESC0LHA(1-4) 




ACÃOBAS 
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[ambém em perguntas que exijam uma 
resposta simples do género sim ou não. 
Assim, em vez de usar alguma coisa 
do tipo "Tenta novamente?" — onde 
"sim" pode ser indicado por uma tecla 
não específica, ou pelo acionamento do 
botão de disparo do joystick, ou teclan- 
do-se S — , especifique as possibilidades: 
"Pressione o botão de disparo para jo- 
gar novamente", ou "Tenta novamen- 
te? (S/N)". Estas são formas muito 
mais díretas e claras de proceder. 

Mesmo a mensagem "Pressione qual- 
quer tecla para continuar" pode causar 
confusão. Vale a pena prepará-la a fim 
de evitar que alguém queira pressionar 
algo como < BRE AK > ou <STOP> 
ou ainda <ESCAPE>, correndo, as- 
sim, o risco de terminar o programa. 
Por exemplo, nenhum problema pode 
acontecer com esta mensagem: "Pres- 
sione a barra de espaços para con- 
tinuar". 

Em alguns tipos de computador, a te- 
cla a ser pressionada pode ser evidencia- 
da por meio do caractere invertido na 
mensagem. 

Outra boa opção (que é também uma 
excelente técnica de programa), não im- 
porta a espécie de mensagem, é desati- 
var qualquer tecla que possa atrapalhar 
ou interrompe 1- a execução do progra- 
ma (isso pode ser feito com o emprego 
de rotinas que excluam todas as entra- 
das impossíveis). 

Para recapitular, ou mesmo para 
I uma simples resposta "sim" ou "não". 



pode-se usar algo c 



91) LET AS" INKEYS 
92 IF AS="" THEN GOTO 90 
95 IF AS<>"S" AND AS<>"N" 
THEN GOTO 90 



AND AS<>"N" THEN 



QBE] 

10 CET AS 

20 IF AS<>"S" AND AS<>"N" THEN 
GOTO 10 

Por outro lado, rotinas bem mais so- 
fisticadas podem ser usadas para inva- 
lidar a entrada de grupos de valores. 

Outra maneira de tornar as coisas 
mais fáceis para o usuário é restringir a 
quantidade de dados a serem digitados. 
Por exemplo: se for suficiente pressio- 
nar apenas uma tecla, então prepare o 
programa de acordo com essa possibili- 
dade. E, para evitar qualquer confusão, 
utilize sempre o mesmo tipo de mensa- 
gem e resposta ao longo de um progra- 
ma comandado por menus. Assim, se a 
seleção da opção do menu de abertura 
for feita pela teclagem de um número, 
tende a usar o mesmo sistema em todos 
os outros menus. 



Da mesma forma, empregue sempre 
o mesmo código para cada menu ou lis- 
ta de opções. Se a terceira opção for 
"GRAVAR" em um ponto e "SAIR 
DO PROGRAMA" em outro, alguém 
pode não ficar muito satisfeito com o 
seu programa. 

Essa regra deve também ser aplicada 
quando a entrada de dados for necessá- 
ria (particularmente, quando houver 
uma longa sequência). Quando os da- 
dos forem restritos a um pequeno gru- 
po e tiverem um padrão simples, pode- 
se usar uma mensagem múltipla. Um 
exemplo de dados desse tipo é um ar- 
quivo de nomes e endereços, no qual ca- 
da nome é seguido de quatro linhas de 
endereço e um número de telefone. 

Por outro lado, é necessário tomar 
cuidado com coisas mais complexas, co- 
mo um arquivo de cadastro de clientes, 
onde há pouca semelhança entre os da- 
dos, e o número de entradas muda de 
registro para registro. Alguns campos 
podem mesmo ficar vazios. 

Uma maneira de limitar o número de 
erros, neste caso, é fazer uma divisão da 
entrada de dados, por grupos ou indi- 
vidualmente. Assim, pode-se ter apenas 
uma mensagem para nome e endereço 
e outra para cada detalhe específico que 
vier depois. 

Monte as mensagens para que elas 
apareçam, uma de cada vez, ou em di- 
ferentes cores, ou (pelo menos) bem es- 
paçadas umas das outras. Limpar a te- 
la após cada série de entradas é muito 
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mais eficiente em lermos estéticos do 
que deixar a tela ir rodando para cima 
(scrotl) indefinidamente. 

Em alguns tipos de programa uma 
entrada não usual pode chamar uma 
sub-rotina particular. Assim, em um ar- 
quivo de dados, pode ser requerida uma 
informação adicional para determina- 
dos tipos de entrada. Nesse momento, 
se o usuário, razoavelmente familiariza- 
do com a sequência normal na qual os 
dados são entrados, não notar a nova 
série de entrada de dados, pode come- 
ter diversos tipos de erro. 

Nesses casos, são necessárias algumas 
rotinas de detecção de erros; mas é im- 
portante também deixar claro para o 
usuário que os dados requeridos muda- 
ram. Isso pode ser feito por meio de 
uma mensagem piscando ou um video 
inverso, ou mesmo de algum tipo de avi- 
so sonoro, como um bipe, se o seu com- 
putador puder emitir sons. 



A maneira mais fácil de evitar que o 
programa incorpore erros é dar ao usuá- 
rio a possibilidade de aceitar ou rejeitar 
os dados já digitados. Isso pode ser fei- 
to com o auxílio de uma mensagem do 
tipo: "OS DADOS ESTÃO CORRE- 
TOS? (S/N)". Neste caso, se você pres- 
sionar a tecla N provocara o reinício da 
rotina de entrada de dados. Mas isso só 
será necessário se uma grande quantida- 
de de dados for manipulada. 

Se você pretende incorporar a um 
programa uma rotina de confirmação 
dos dados, junte as entradas em grupos; 
desse modo, o programa ficará mais fá- 
cil de operar, evitando a repetição da 
confirmação a cada entrada. 

No entanto, apesar de rotinas desse 
tipo serem eficazes no combate aos er- 
ros, os programas tèm que ser protegi- 
dos contra entradas inadequadas. 

Por exemplo, como evitar que letras 
e números sejam colocados juntos on- 
de somente se requer um desses tipos de 
informação (ou letra ou número)? Deve- 
se sempre antecipar possibilidades de er- 
ro como esta quando se está montando 
uma rotina. 



Na maioria dos programas de contro- 
le de arquivos, o tamanho das entradas 
tem um limite máximo, seja em núme- 
ro de caracteres, seja em valor numéri 
co. Um programa que imprima etique 
tas, por exemplo, tem os seus dados res 
t ringidos pelo tamanho de cada etique 



ia. Afinal, não tem sentido fazer a digi- 
tação de um endereço de 25 ou de trin- 
ta caracteres se a entrada dispuser de es- 
paço para apenas vinte. 

Podemos usar mensagens ou mostrar 
o limite da entrada com indicadores co- 
mo caracteres invertidos ou qualquer 
outro efeito visual que deixe claro qual 
é o limite máximo aceitável. 

Ainda assim, rotinas adicionais de- 
vem ser usadas para invalidar entradas 
que excedam o máximo. Em alguns ca- 
sos, pode-se truncar o dado no tamanho 
certo e deixar para a rotina de confir- 
mação a tarefa de verificar se o dado se- 
rá aceito ou não. Na maioria das vezes, 
porém, é melhor recomeçar a rotina de 
entrada no ponto onde houve erro, colo- 
cando uma mensagem como "ENTRA- 
DA MUITO LONGA! DIGITE NOVA- 
MENTE." ou qualquer coisa parecida. 

Outra boa razão para se limitar o ta- 
manho das entradas é economizar me- 
mória. Afinal, não há sentido, por 
exemplo, em usar vinte ou mais carac- 
teres para o código de endereçamento 
postal, quando este nunca ocupa mais 
de cinco. Procure diminuir o tamanho 
dos campos tanto quanto possível para 
economizar memória, especialmente no 
caso de programas de arquivo. 



Estabelecer limites é importante tam- 
bém por outras razões, particularmen- 
te em programas que fazem uso de da- 
dos numéricos. Suponhamos, por exem- 
plo, que o programa pede três números 
(ou os lê da memória), e divide a soma 
dos dois primeiros pelo terceiro. Um pe- 
queno erro de digitação pode colocar 
um 0 no lugar de um 9 ou fazer com que 
o valor 0 apareça como resultado de ou- 
tra operação. Nesse caso, a não ser que 
o programa esteja protegido contra es- 
se tipo de erro, o resultado será uma 
mensagem "DIVISÃO POR ZERO" e 
o término abrupto do programa. 

Num caso como o nosso, a proteção 
exigida é mínima, visto que uma simples 
rotina de verificação de entradas do te- 
clado é suficiente para restringir entra- 
das inoportunas. 

Mas, no caso de cálculos "internos", 
onde é possível gerar um 0, devemos uti- 
lizar rotinas específicas. Este é um caso 
em que é preciso prever o pior. Assim, 
convém construir uma rotina com o uso 
de operadores relacionais (que serão 
abordados mais adiante, em outra li- 
ção). Podemos usar alguma coisa assim: 
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IF A=0 THEN GOTO 10000 

A linha 10000 será então o início de 
uma rotina que poderá ajustar o valor 
para algo diferente de 0 (mas aceitável 
pelo programa) ou avisar o usuário de 
que um cálculo impossível está para 
acontecer. Neste último caso, o progra- 
ma será redirecionado para a rotina de 
entrada de dados para que se escolha um 
valor alternativo. 

Uma gama especifica de valores po- 
de ser determinada usando-se simples- 
mente algo como o familiar: 

IF N>100 OR N<1 THEN. . . 

No caso de ser digitado um valor fora 
da faixa, essa instrução devolverá a exe- 
cução para o início da rotina de entrada. 

Qualquer que seja o seu procedimen- 
to dentro do programa, o usuário deve 
ser avisado sobre qual é a faixa aceitá- 
vel de dados e, se algum erro ocorrer, 
I ele deve ser informado com uma men- 
I sagem adequada. 



Desta maneira, ele saberá como pro- 
ceder. Isso tudo pode ficar em uma sub- 
rotina acessada só em caso de neces- 
sidade. 



INDICAÇÃO DE ERROS 



Se você der ao usuário instruções cla- 
ras de como proceder a cada vez que ele 
for confrontado com uma entrada de 
dados, uma grande parte dos erros será 
evitada. No entanto, quando algum er- 
ro ocorrer, deve-se informar exatamen- 
te a origem do problema para que ele 
não se repita. 

Esse procedimento exige um conjun- 
to de mensagens feitas especialmente pa- 
ra cada situação (não confundir com as 
mensagens de erro do computador). Es- 
tas, por sua vez, podem ser definidas e 
colocadas em uma sub-rotina especial 
que só deve ser chamada quando acon- 
tecer algum problema. 

Essas rotinas são normalmente usa- 
das para indicar valores fora dos limi- 




DETECTE ERROS AUTOMATICAMENTE 

Uma das formas de se evitar erros 
em um programa consiste em equipá- 
lo com dispositivos de detecção. Esses 
dispositivos funcionam no sentido de 
desviar o fluxo do programa, enviando-o 
a rotinas que corrigem a talha ou pre- 
vinem o usuário de sua ocorrência. 

Para isso, são necessárias instru- 
ções especiais. Os micros das linhas 
TRS-80, TRS-Color, Apple, TK-2000e 
MSX, por exemplo, dispõem do pode- 
roso comando de desvio ON ERROR 
GOSUB... Este deve ser colocado em 
um ponto do programa anterior ao blo- 
co em que se deseja detectar erros de 
execução. Normalmente, ele é digitado 
no começo do programa, Sua função 
consiste em preparar o computador pa- 
ra "saltar" para a linha indicada após 
o GOSUB, sempre que ocorrer um er- 
ro. O programador deve então escrever 
uma rotina (começando na linha indica- 
da) que identifique o erro e adote as 
medidas pertinentes. Para isso, existem 
as seguintes instruções suplementares: 

- Função ERR: retoma o número de có- 
digo do erro cometido. 

- Função ERL: retorna o número da li- 
nha onde ocorreu a falha. 

- Instrução RESUME: retorna a rotina 
de tratamento do erro para um ponto 
imediatamente após ao da ocorrência 



Os micros citados acima contam 
também com o comando ERROR n. que 
provoca uma indicação de erro num 
ponto do programa In é o número do 
código). Esse comando testa a instru- 
ção ON ERROR GOSUB e a rotina de 
tratamento de erros. 



tes, duplicação de nomes de um campo- 
chave de um arquivo de dados, ou ain- 
da entradas incorretas, seja pelo tama- 
nho excessivo, seja pelo uso incorreto de 
caracteres. Assim, é possível criar men- 
sagens para quaisquer tipos de erros em 
um programa. 

Uma matriz e uma variável indicado- 
ra são suficientes para definir um certo 
número de mensagens e fazer com que 
o computador escolha a que é adequa- 
da para a situação, após identificar o er- 
ro ocorrido. 

A matriz para tais mensagens deve ser 
dimensionada logo no inicio do progra- 
ma, como parte dos procedimentos de , 
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ínicialização. Ela deve ser ajustada de 
tempos em tempos de modo a incluir no- 
vas mensagens prevenindo erros que 
possam vir a ocorrer. Desta maneira, se 
você resolver usar um conjunto de no- 
ve mensagens de erro, este poderia ser 
um exemplo: 



10 DIM eS{9,20): FOR z=l TO 9 

: READ eS(z) : NEXT z 

20 DATA "Dado muito longo!"," 

Erro de digitação!" 

22 DATA "Senha er r ada ! " . "Nao 

24 DATA "Introduza novamente! 

26 DATA "Pressione (slim ou ( 



10 DIM EMS(9):F0R Z-l TO 9 : READ 

EMSÍZl :NEXT Z 
20 DATA "DADO MUITO LONGO!", "ER 
RO DE DIGITAÇÃO!" 
22 DATA "SENHA ERRADA ! " , "NAO CO 
NFERE ! " 

24 DATA " RE INTRODUZA OS DADOS! 
" . "NAO TOQUE! " 

26 DATA "PRESSIONE <S! IM OU (NJ 
AO! "SOMENTE NÚMEROS !". "SOMENT 
E LETRAS ! " 

Obviamente, você escolherá mensa- 
gens adequadas às condições do seu pro- 
grama. Assim, máis à frente no progra- 
ma, a cada entrada de dados, pode ser 
feita a seguinte verificação: 



L000 LET aS'""- LET em=0: INPUT 
1010 1F LEN aS>25 THEN LET em» 

loio if ■«<>" credito" then LBT 

em-3 

1010 IF a$="">" OR a3""9" THEN 
LET em = -l 

1010 TF aS="" THEN LET em-5 
1010 TF aS-" " THEN LET eni^f. 
1010 1F aS<>"s" AND aSO"n" THE 
N I.ET em-/ 

10)0 IF aS<"0" OR aS>"9" THEN 



LET 
1010 



08 . 



THEN 



Observe que a linha 1010 é opcional, 
ou seja, você pode escolhê-la ou não, de- 
pendendo da situação. Apenas a última 
opção utiliza uma linha adicional, a 
1015. Atenção para a quinta opção, que 
funciona apenas no TRS-Color e no 
Spectrum. 

Quando a checagem de entrada reve- 
la um erro, a variável ME assume um 
valor particular, relacionado com a 
mensagem previamente definida que 
corresponde acerro. 

A primeira opção testa se ocorreu 
uma entrada maior do que 25 caracte- 
res; a segunda insiste na senha correia. 
A terceira é típica de uma reconfirma- 
ção de informação. A quarta pede que 
um dado seja redigitado após uma en- 
trada vazia. A opção seguinte responde 
de modo inesperado quando a barra de 
espaços é pressionada. A sexta é uma va- 
riação da checagem que geralmente é 
feita após uma resposta sim/não. As 
duas seguintes verificam se apenas nú- 
meros ou letras foram digitados e a úl- 
tima testa a presença de um O (letra) no 
lugar de um 0 (número). 

O programa prossegue 1 , através de 
uma sub-rotina que mostra a mensagem 
adequada ao erro: 



1000 EM-0 : INPUT AS 
1010 IF L£N(AS).'25 THEN LM-l 
1010 IF A$O"CREDIT0" THEN EM= 3 
1010 IF AS-"5" OR AS="9" THEN E 
M=4 

1010 IF A$=~" THEN EM=5 
1010 IF AS*" " THEN EM-6 
1010 IF ASO"S" AND ASO"N" THE * 
N EM- 7 

1010 IF AS<"0" OR A$>"9" THEN E 2000 IF EM>0 THEN PR [NT TA8 i 
M-8 eS(em) 
1010 IF AS<"A" OR AS>"Z" THEN E 
M-9 

1010 FOR Z-l TO LEN (AS) : I E 
(AS,Z.l)-"0" THEN EM=2 
1015 NEXT Z 



2000 IF EM>0 THEN PRINT EMS (EM) 
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COMPUTADORES 



Já existem sintetizadores de voz para 
a maioria dos microcomputadores 
domésticos. Veja aqui a descrição dos 
tipos mais importantes e os efeitos 
que você pode obter com cada um deles. 



Nos filmes de ficção científica, vemos 
com frequência computadores capazes 
de falar. Você deve se lembrar, entre vá- 
rios outros, do HAL 9000, o tenebroso 
e megalomaníaco computador do filme 
"2001 — Uma Odisseia no Espaço", e 
os robôs falantes da série "Guerra nas 
Estrelas". Só muico recentemente, po- 
rém, os computadores reais e, particu- 
larmente, os microcomputadores pes- 
soais receberam periféricos que lhes 
conferem o dom da voz. No exterior, já 
existem sintetizadores de voz para qua- 
se todos os tipos de microcomputado- 
res — e a preços bastante baixos, gra- 
ças à nova geração de chips de circuito 
integrado, fabricados especialmente pa- 
ra a síntese da voz. Alguns desses sinte- 
tizadores podem ser encontrados tam- 
bém no Brasil. 



Por que dar ao micro a capacidade 
de falar? Bem, antes de mais nada, não 
há dúvida de que isso seria tremenda- 
mente divertido. Basta pensar na infi- 
nidade de coisas que você faria com um 
computador falante: ele poderia contar 
piadinhas, recitar poemas ou, então, 
efetuar tarefas mais práticas, como ler 
em voz alta instruções complexas para 
um jogo, dispensando-o de abrir o ma- 
nual a toda hora. 

A utilização dos sintetizadores de 
voz em jogos é, também, muito interes- 
sante. Você já deve ter visto alguns ví- 
deogames e flipers que tagarelam alegre- 
mente com o jogador. O sintetizador 
permite que você aumente a velocida- 
de dç interaçào com o jogo e que eco- 
nomize espaço na tela, se as mensagens 
ou instruções dirigidas ao jogador fo- 
rem faladas, e não exibidas. Além dis- 
so, como você não precisará ler fre- 
quentes mensagens na tela, poderá con- 
centrar sua atenção nos joysticks e nos 
gráficos. 

É claro que os sintetizadores de voz 
também têm aolicações mais "sérias", 
tais como auxiliar uma pessoa cega a uti- 
lizar o computador. Um programa es- 
pecial pode fazer com que o sintetiza- 
dor pronuncie, letra por letra, ou pala- 
' vra por palavra, tudo o que é digitado 



no computador, ou que leia em voz al- 
ta listagens de programas ou dados, à 
medida que aparecem na tela. 

Chips de síntese de voz estão come- 
çando a ser usados também em automó- 
veis, para lembrar ao motorista que ele 
esqueceu de colocar o cinto de seguran- 
ça, avisar -lhe que a pressão do óleo es- 
tá baixa, e assim por diante. E, sem dú- 
vida, podemos prever que seu uso se ex- 
pandirá grandemente no ramo dos ele- 
trodomésticos. Já temos uma amostra 
disso nos fornos de microondas que avi- 
sam quando o prato está pronto, ou em 
secretárias eletrônicas que atendem edu- 
cadamente aos telefonemas na ausência 
do morador. 

Os sintetizadores de voz também são 
muito úteis no ensino, tornando diver- 
tido aprender a soletrar palavras em 
qualquer idioma, ou a reconhecer letras 
e números. 

Seu micro pessoal é capaz de tudo is- 
so, desde que você conecte a ele o tipo 
apropriado de sintetizador de voz. 



OS TIPOS PRINCIPAIS 



Tecnicamente, existem dois métodos 
principais para se obter a síntese da voz 
humana. Eles são bem diferentes en- 
tre si, e ambos apresentam vantagens e 
desvantagens. 

O primeiro método utiliza amostras 
de fala humana: um locutor enuncia le- 
tras, números, palavras ou frases intei- 
ras, que são convertidas para números 
digitais e armazenadas permanentemen- 
te em um chip de memória. O segundo 
método armazena apenas sons elemen- 
tares (fonemas, sílabas), que um gera- 
dor de sons do computador produz, uti- 
lizando-os depois para compor palavras 
e frases mais complexas. 

O tipo de sintetizador que armazena 
amostras de fala humana alcança, na- 
turalmente, uma qualidade de reprodu- 
ção muito mais fiel. Em compensação, 
ocupa muito espaço na memória e seu 
vocabulário é mais restrito. 

O chip sintetizador de voz desenvol- 
vido pela Texas Instruments (já dispo- 
nível no Brasil, com um vocabulário em 
português) é um bom exemplo deste pri- 
meiro tipo. As ondas sonoras (o sinal de 



voz) são inicialmente convertidas para 
números digitais por um conversor ana- 
lógico-digital (ADC), de maneira que 
possam ser armazenadas em um chip de 
memória ROM. Posteriormente, quan- 
do a palavra ou frase é gerada, o sinal 
digital armazenado é convertido de volta 
para o sinal analógico original. Na ver- 
dade, não se armazena o sinal de voz 
original de forma integral, o que exigi- 
ria uma quantidade enorme de memó- 
ria, mas apenas informações sobre o si- 
nal. Consegue-se, assim, uma grande 
compactação do sinal original. Se a fa- 
la fosse integralmente digitada, precisa- 
ríamos de cerca de 500 kbytes para 2 mi- 
nutos de fala — muito mais memória do 
que a maioria dos micros domésticos 
dispõe. Felizmente, a técnica de com- 
pressão obtém uma redução de 98%, de 
modo que os dois minuto*, cabem em um 
simples chip de ROM. 

O segundo tipo de sintetizador de voz 1 
é o mais comum. Em vez de armaze- â 
nar palavras completas, ele gera apenas i 
os fonemas básicos do idioma, como , 
"bá", "ô", "chi" etc. Como estes fc- • 
nemas também são chamados de alófo- i 
nos, o sintetizador tornou-se conhecido i 
como sintetizador alofõnico. 

Existem cerca de sessenta fonemas 
deste tipo na maioria das línguas ociden- 
tais. Com eles, pode-se construir qual- 
quer palavra ou frase em uma determi- 
nada língua. É claro que os fonemas da 
língua portuguesa são bem diferentes 
dos da língua inglesa. Assim, em prin- 
cípio, é possível sintetizar fala em por- 
tuguês a partir de um sintetizador fabri- 
cado nos Estados Unidos, só que o com- 
putador terá um acentuado "sotaque" 
norte-americano. 

Neste método, não se armazena a fa- 
la verdadeira, mas apenas a informação 
digital que é empregada para ativar o ge- 
rador de sons interno, o qual produzirá 
uma aproximação digital do fonema de- 
sejado. Cada fonema tem um código, 
ou endereço inicial de armazenamento, 
que está disponível em uma tabela de 
consulta dentro do chip. 

Um programa escrito para o sinteti- 
zador deve preocupar-se apenas em cha- 
mar o código correio, quando ele é ne- 
cessário. Assim, economiza-se muita 
memória, pois para cada segundo de fa- 
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MELHORE A PRONUNCIA 



la são necessários somente 12 bytes de 
informação digital. 

Você já deve ter visto alguns dicio- 
nários que utilizam esquemas fonéticos 
escritos, para indicar a pronúncia das 
palavras. A representação de cada som 
muitas vezes corresponde à própria le- 
tra ou sílaba, como "te", "cha" etc; 
mas, em alguns casos, assume formas 
bem mais complexas, como "ng", "cz" 
etc. O número de sons e a forma exata 
como são indicados dependem, natural- 
mente, do idioma ou, ainda, do sotaque 
regional. 



da a partir dos fonemas. Mas esses sin- 
tetizadores apresentam uma desvanta- 
gem: a qualidade da voz, que é baixa, 
parecendo mais a voz típica de robôs — 
monótona, sem as modulações de inten- 
sidade e frequência que tornam a fala 
melodiosa e carregada de diversos tipos 
de significado (fim de uma frase, excla- 
mação, ironia, ênfase etc.) 

A maioria dos sintetizadores que ar- 
mazenam a fala, por sua vez, dispõe de 
um vocabulário bastante limitado (algo 
em lorno de cem palavras ou frases cur- 
tas), mais a pronúncia das letras do al- 



fabeto, dos números e alguns sufixos e 
prefixos, como "ésimos". Além disso, 
ao contrário dos sintetizadores alofôni- 
cos, eles não podem ser programados, 
o que diminui muito sua flexibilidade, 
ainda que se possa comprar chips adi- 
cionais com novos conjuntos de pala' 
vias. Mas eles apresentam uma vanta- 
gem: como a fala sintetizada é muito 
mais autêntica, são mais úteis quando 
mensagens curtas — mas que precisam 
ser muito claras — devem ser pronuncia- 
das (por exemplo, instruções como "pres- 
sione qualquer tecla para começar"). 



Os sintetizadores alofônkos têm a 
vantagem de dispor de um vocabulário 
praticamente ilimitado, pois qualquer 
palavra, em principio, pode ser construí- 



Illlllll! 
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COMO CONECTAR 0 SINTETIZADOR 



Quase todos os sintetizadores de voz 
são vendidos na forma de cartuchos (se- 
melhantes ã expansão de memória dos 
micros da linha Sinclair; são conectados 
ã interface de expansão na parte de trás 
do console) ou na forma de placas de 
circuito impresso, que devem ser encai- 
xadas em um dos soquetes internos do 
computador (é o caso dos micros da li- 
nha Apple). Os sintetizadores que ocu- 
pam o único soquete de expansão da 
máquina geralmente fornecem um so- 
quete de expansão próprio, ao qual se 
pode ligar um joystick, uma impresso- 
ra etc. 

Outro tipo bastante comum de sinte- 
tizador é o que utiliza uma porta serial 
padrão, do tipo RS-232C, para se comu- 
nicar com o computador. Assim, podem 
ser usados com muitos tipos diferentes 
de microcomputadores. 

Todos esses sintetizadores estarão 
prontos para operar tão logo sejam li- 
gados ao soquete correto. A saída do 
som pode ser feita através de uma co- 
nexão para um sistema de alta- 
fidelidade (amplificador e alto-falames), 
ou então para a TV. Em ambos os ca- 
sos, controla-se o volume e a altura do 
som gerado, o que possibilita torná-lo 
menos áspero ou "robótico". Outros ti- 
pos de sintetizador têm seu próprio sis- 
tema de amplificação e de alto-falante, 
ou utilizam o alto-falante interno do mi- 
crocomputador. Nesse caso, geralmen- 
te é impossível controlar o volume 
sonoro. 



síntese por software 



Os microcomputadores que possuem 
geradores sonoros sofisticados oferecem 
uma alternativa bastante razoável para 
se obter síntese de voz sem necessidade 
de hardware especial. Uma máquina 
bem popular na Europa e nos Estados 
Unidos, o Commodore 64, tem um po- 
deroso gerador de efeitos sonoros e mu- 
sicais, que pode ser programado para 
sintetizar voz por aproximação digital. 
O sintetizador possibilita o controle de 
diversos canais de som, simultaneamen- 
te, bem como a manipulação de vários 
parâmetros de modulação de frequên- 
cia, envelope e intensidade. 

No Brasil, os micros da linha TRS- 
Color e MSX podem ser usados desta 
maneira, ou seja, simplesmente adqui- 
rindo-se um software específico para 
síntese de voz. Evidentemente, o tipo 
utilizado, nesse caso, é o de síntese alo- 
fônica, ou por fonemas. 



COMO PROGRAMAR 0 SINTETIZADOR 



A forma mais direta de operação da 
maioria dos sintetizadores consiste, sim- 
plesmente, em pronunciar letras e núme- 
ros, cada vez que a tecla corresponden- 
te é pressionada no computador. Alguns 
modelos existentes para o Sinclair e o 
Spectrum também são capazes de pro- 
nunciar por extenso instruções, coman- 
dos e funções do BASIC, associados a 
cada tecla. 

Entretanto, para fazer com que o sin- 
tetizador emita palavras ou frases com- 
pletas, é necessário dispor de um softwa- 
re especial — geralmente em linguagem 
de máquina — que deve ser carregado 
na máquina antes da utilização do sin- 
tetizador. Este software habilita o inter- 
pretador BASIC, por meio de uma se- 
quência de comandos PRINT, a trans- 
mitir ao sintetizador a mensagem ou 
mensagens a serem pronunciadas. 

Um sintetizador de voz para os mi- 
cros da linha Apple, por exemplo, po- 
de ser programado por meio de instru- 
ções PRINT comuns, dentro de um pro- 
grama BASIC. Para isso, bastam alguns 
comandos POKE especiais, que habili- 
tam a interface do sintetizador. 

Existem três sistemas diferentes pa- 
ra especificar a sequência de fonemas ou 
de vocábulos que devem ser pronuncia- 
dos pelo sintetizador. O mais simples de- 
les utiliza códigos numéricos para iden- 
tificar os fonemas ou os vocábulos. Es- 
tes códigos dependem do chip sintetiza- 
dor que está sendo empregado; a forma 
de usá-los dentro de um programa tam- 
bém varia amplamente. Por exemplo, os 
códigos para "hello" (alô) são 27, 7, 45 
e 53. Os números pqdem ser entrados 
como uma linha DATA: 

DATA 27,7,45,53 

... ou como uma cadeia alfanumérica: 

LET AS-"27074553- 

O manual que acompanha o sinteti- 
zador explica detalhadamente, com mui- 
tos exemplos, como utilizar os códigos. 

A desvantagem desse sistema é que 
ele é pouco "natural", tornando muito 
trabalhosa a tarefa de especificar até 
mesmo sequências curtas de fonemas ou 
de palavras. Por isso, desenvolveu-se 
um segundo tipo de software, mais fá- 
cil de usar, que se baseia em algo seme- 
lhante aos esquemas fonéticos de pro- 
núncia encontrados nos dicionários. Por 
este método, as palavras que compõem 
a frase são escritas com notações espe- 
ciais para cada fonema. Veja como vo- 
cê poderia dizer "hello" em dois tipos 
diferentes de sintetizador: 



10 LET aS - "he (11) (oo) " : 
PAUSE 1 

U 

10 AS="HH1.EH,LL,0W,1- 
20 PRINT |A, AS 

O manual do sintetizador traz uma 
lista de todos os fonemas, indicando co- 
mo especificá-los. Como você vê, é bem 
mais fácil do que usar códigos numéri- 
cos mas, em compensação, é preciso co- 
nhecer detalhadamente a forma de es- 
pecificação dos fonemas. 

O terceiro sistema é bem mais sofis- 
ticado, fazendo a chamada "síntese por 
transformação direta texto-fala". Por 
enquanto, programas desse tipo existem 
somente para alguns idiomas, entre os 
quais o italiano, o alemão, o japonês, 
o francês e o inglês. Com eles, basta for- 
necer um texto escrito de forma correta 
ao sintetizador, e este produzirá auto- 
maticamente a sequência de fonemas 
que gerará a voz: 

à 

10 CALL -435 

20 PRINT "HELLO" 

As regras de conversão texto-fala não 
são, naturalmente, infalíveis, e a exis- 
tência de um grande número de exce- 
ções, notadamente no inglês, pode pro- 
duzir os mais absurdos resultados. 

Para usar em português um sistema 
como este, é necessário grafar as frases 
como um norte-americano as pronun- 
ciaria. Por exemplo, como será pronun- 
ciado o texto abaixo? 

20 PRINT "EHDEEHTOHURAH NOHVAH 
KOOLTOORAHL" 

Alguns sistemas de síntese de voz per- 
mitem a programação de entonação e 
ênfase, de modo que a fala saia menos 
monótona e mais interessante, com pau- 
sas e modulações capazes de dar diferen- 
tes conotações às palavras — o que é 
muito importante na linguagem falada. 
Com isso, pode-se indicar ao computa- 
dor qual a sílaba tónica de uma palavra, 
se a frase é interrogativa ou exclamati- 
va etc. 

Como se vê, os sintetizadores, além 
de nos proporcionar momentos de diver- 
são, poderão nos ensinar muita coisa so- 
bre nossa própria linguagem, se forem 
do tipo alofónico. 
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A DISTRIBUIÇÃO DAS CARTAS 



COMO APOSTAR 



PEÇA MAIS CARTAS 



TOTAL DE PONTOS 



TENTE QUEBRAR A BANCA 



Num luxuoso cassino, o homem da banca 
lança um olhar frio e indiferente. 
Você faz sua aposta e recebe uma 
nova carta. Há um momento de suspense. 
Será que você atingiu os 21 pontos? 



Além da rolina gráfica apresentada 
no artigo anterior, precisamos de duas 
outras para jogar Vinte-e-um: uma que 



se comunique com o jogador e outra que 
permita ao computador fazer o papel da 
banca. A parte que você digitará agora 
cuida do jogador. Ela faz três coisas: dá 
as cartas, permite ao jogador fazer apos- 
tas e pedir mais cartas, e mostra o total 
de pontos — soma dos valores das car- 
tas — e de fichas. 

A banca solicita ao jogador que apos- 
te, depois de ter dado duas cartas: uma 
para ele e outra para si mesma. Após re- 
ceber a segunda carta, o jogador pode 
"pedir" outra, "comprar" mais uma ou 
"parar" 

O programa tem rotinas para execu- 



tar as tarefas correspondentes às opções 
do jogador, distribuindo novas cartas 
e/ou dobrando a aposta, ou passando 
a vez de jogar para a banca. Depois de 
dar uma carta, o programa verifica se 
o total de pontos ultrapassou 21, ou se- 
ja, se o jogador "estourou". 

Além disso, o programa prevê duas 
outras situações: "natural" (quando o 
jogador faz 21 pontos com apenas duas 
cartas) e "mão de cinco" (quando cin- 
co cartas reunidas não chegam a somar 
22 pontos). Se qualquer delas ocorrer, 
o jogador será informado e a vez pas- 
sará para a banca. 



Adicione estas novas linhas ao pro- 
grama do artigo anterior. Note que a li- 
nha 530 foi apenas aumentada. 

90 DIM S(2) : LET BET-B 
100 DIM 0(2) : DIM U(2) 
500 LET Y-B: LET X-C: LET TF-B 
: LET AF-B: LET PF-B: LET FF-B 
520 FOR U=C TO 2 
'5.10 CIOSIJB 5500: GOSUB 6000: 

GOSUB 6500 
'535 IF ÇC-52 THIN LET CC-B 
540 VF.T 0(U)-C(GC+C) • 
-S50 LET X-X*6 . 

560 PRINT PAPEP.,7iAT 31. r BjtVO-' 
■'OS TEM -.rCP;" FICHAS ' - 
■>J70 IF U-C THEN INPtff "QUAL- E 
A SUA APOSTA? " ; AM IF W>CP 
- k AM-C THEN fílTk) 570 
•j'-'Q Ih U-C THKN LET CP-CP-AM i 
LET BET-Aí- 
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595 GOSUB 7000 : GOSUB 7000: 
NEXT U 

622 IF S<2)=21 THEN LET PF-C : 
PBJNT PAPER 2;AT 4,18;" NATUR 
AL " : GOTO 2500 
700 IF (S(C)<16 AND (S42K16 
OB S(2)>21) OR TF-C OB CP<AM) 
THEN GOTO 705 

702 INPUT "COMPBA , PEDE OR SATI 
SFEITO? LINE DS: IF DS<>"C" 
AND DS<>"P" AND DSO"S" THEN 
GOTO 702 

703 GOTO 715 

705 TF (S(C)>21 OR CPCAM OR TF 
-C) THEN GOTO 710 

706 INPUT "COMPRA OU PEDE? "; 
LINE DS: IF DS<>"C" AND DSO"P 
" THEN GOTO 706 

708 GOTO 720 

710 IF (S(C)<16 AND (S (2)<16 
OR S(2)>21)) THEN GOTO 770 

711 INPUT "PEDE OU SATISFEITO? 
"; LINE DS: TF DS<>"P" AND DS 
<>"S" THEN GOTO 711 

715 IF DS="S" THEN GOTO 2500 
720 IF LEN DS-B THEN GOTO 700 
725 IF DS{CK>"C" THEN LET TF 
•C: GOTO 905 

760 LET BET'BET+AM: LET CP-CP- 

m 

770 PRINT PAPER 7;AT 21.B:"VO 

CE TEM ":CP;" FICHAS" 

905 LET Z-C(CC) 

910 GOSUB 5500: GOSUB 6000: 

GOSUB 7000 

920 LET X'X+6 

921 IF S(C>>21 THEN GOTO 2000 
925 IF X-31 AND S(C)<22 THEN 
PRINT PAPER 2;AT 21, B;" MAO D 
E CINCO! ": LET FF = C : GOTO 

2500 
930 GOTO 700 
2000 IF CP-B THEN PRINT AT 21, 
B;'V0CE PEBDEU TODAS AS FICHAS! 
" : STOP 

2010 IF CP>-1000 THEN PRINT AT 
21,B;"PABABENS! VOCE QUEBROU A 
BANCA!": STOP 

2020 PRINT ICi "PRESSIONE 'S' PA 

RA OU TB A MAO" 

2030 IF INKEY$<>*S" THEN GOTO 
2030 

2037 IF PF=C OR DPF=C THEN GOS 
UB 5000 

2040 CLS ! GOTO 90 
2500 STOP 

6000 IF VA>10 THEN LET VA-10 
6010 LET S(C)-S(C)+VA: LET S(2> 
-S(2)*VA 

6020 IF VA=C AND AF=B THEN LET 

S(2) =SI2)+10: LET AF=C 
6030 IF S(C)>21 THEN PRINT FL 
ASH C; PAPEB 7;AT 20, B;" " : TAB 
9;"VOCE QUEBROU! " : TAB 31;' " : 
LET DPF=B: RETUR.N 
6040 PRINT AT 20, B:" " ; TAB 31;" 

6050 PRINT PAPER 7; INK B ; AT 2 
O.B;-SEU SCORE E 1 "íStCJi: IF S 
(2JOSÍC) AND S(2)<22 THEN PRI 
NT PAPEB 7; INK B ; " OU - ;S(2) 

I 6060 RETUBN 

| 6500 FOB N-10 TO 18 



6510 PRINT PAPER 7; INK 1 ; AT N 
,X;CHRS lóliCHRS 161:CHRS 161;C 
HRS 161;CHBS 161 
6520 NEXT N 
6530 RETURN 

7000 LET CC=CC+C: IF CC=53 THEN 

LET CC-C 
7010 BETURN 

As linhas 90 e 100 estabelecem a va- 
riável BET e três matrizes: S, que con- 
tém os dois totais do jogador (um ás vale 
1 ou 11); O, que contém as duas primei- 
ras cartas da banca; e W, que contém 
os dois totais correspondentes à soma 
dessas duas cartas, 

A linha 500 estabelece as coordena- 
das do canto superior esquerdo da car- 
ta, e coloca o valor 0 em quatro variá- 
veis indicadoras. TF indica se o jogador 
já pediu cartas. Quando isto acontece 
pela primeira vez, seu valor passa a ser 
1 (segundo as regras, após "pedir" uma 
carta, o jogador não poderá mais "com- 
prar" outras). AF é um sinalizador de 
ases usado para calcular os dois totais, 
já que um is vale 1 ou 1 1 . PF é um si- 
nalizador de "naturais", e FF é um si- 
nalizador de "mãos de cinco" (as regras 
do jogo serão apresentadas no próximo 
artigo). 

O laço FOR. ..NEXT entre as linhas 
520 e 595 cuida da distribuição das duas 
primeiras cartas do jogador e da banca. 
A linha 530 chama duas sub-rotinas: a 
da linha 6000 atualiza o total á medida 
que as cartas são dadas, e a da linha 
6500 desenha a parte de trás das cartas 
da banca. 

Analisemos essas sub-rotinas mais 
detalhadamente. A linha 6000 verifica 
se a carta em questão é uma carta de fi- 
gura. Se for, seu valor será 10. A linha 



6010 soma o valor da carta aos dois to- 
tais da matriz S. A 6020 verifica se a car- 
ta é um ás. A 6030 averigua e informa 
se o jogador "estourou". 

Depois que o programa retorna ao 
seu curso principal, a linha 535 verifica 
se a carta ai uai é de número 52; se isso 
acontecer, o número da carta será mu- 
dado para 0 (nosso baralho tem 52 car- 
tas, numeradas de 1 a 52). A linha 540 
coloca as cartas da banca na matriz 0. 
A 550 adiciona seis posições à coorde- 
nada X da carta seguinte. 

O número de fichas que o jogador 
ainda tem é mostrado pela linha 560. A 
linha 570 pede para que seja feita a 
aposta e verifica se há fichas suficien- 
tes. O valor da aposta é colocado na va- 
riável BET e subtraído do total de fichas 
pela linha 590. As variáveis AM e BET 
são necessárias para o caso de o joga- 
dor vir a "comprar" cartas. 

Os dois GOSUB 7000 da linha 595 se- 
lecionam a carta atual (CC), asseguran- 
do seu retorno ao início do monte de 
cartas para que este não acabe. O laço 
FOR... NEXT termina aqui. 

A Unha 622 verifica se as duas primei- 
ras cartas do jogador fazem um "natu- 
ral", ou seja, um total de 21 pontos. O 
sinalizador de "naturais", PF, se torna 
1 e o programa pára (a linha 2500 será 
apresentada no próximo artigo). 

As linhas 700, 705 e 710 testam as di- 
versas combinações de totais de pontos, 
o indicador TW e o número restante de 
fichas. Sua função é selecionar as op- 
ções para o jogador. Por exemplo, su- 
ponhamos que o total de pontos do jo- 
gador seja maior que dezesseis e menor 
que 21. Se ele ainda não tiver pedido ne- 
nhuma carta e o número de fichas for 
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suficiente, a linha 720 colocará à sua dis- 
posição as opções de "parar", "pedir" 
ou "comprar" cartas. Se, ao contrário, 
ele já tiver "pedido" alguma carta, não 
poderá mais "comprar" e apenas as op- 
ções de "parar" ou "pedir" mais car- 
tas lhe serão dadas pela linha 7 1 1 . A ou- 
tra combinação de opções — "com- 
prar" ou "pedir" mais carias apenas 
quando nenhum dos totais em S ultra- 
passar dezesseis — é oferecida pela li- 
nha 706. Se o jogador resolver parar a 
essa altura, essa versão inacabada do 
programa terminará. 

Caso apenas <ENTER> tenha sido 
pressionado, sem a letra corresponden- 
te à opção, a linha 720 repetirá as op- 
ções. A linha 725 acionará o indicador 
TW caso o jogador não tenha "compra- 
do" cartas. Se tiver, o programa irá pa- 
ra a linha 905. 

Se o jogador preferir comprar uma 
carta, a linha 760 modificará o valor da 
aposta (BET) e do restante das fichas 
(CP). A linha 770 mostra quantas fichas 
sobraram. As linhas dc 905 a 920 mos- 
tram as cartas restantes, que foram 
"compradas" ou "pedidas". A Unha 
921 atualiza os pontos do jogador. Ca- 
so ele tenha "estourado", o programa 
irá para a linha 2000, onde será feita 
uma série de verificações. 

A linha 925 verifica se o jogador tem 
uma "mão de cinco", examinando a po- 
sição da última carta dada ao jogador: 
se esta corresponder à quinta carta, e o 
total for inferior a 22, isso significa que 
o jogador tem uma "mão de cinco". O 
indicador FF será então acionado e o 
programa irá para a linha 2500. Se o jo- 
gador ainda não tiver parado de "pe- 
dir" cartas nem conseguido uma "mão 



de cinco", a linha 930 fará o programa 
voltar à linha 700. 



QUEBRANDO A BANCA 



Se o jogador perder todas as fichas, 
será informado pela linha 2000 e o jogo 
acabará. Se ganhar mais de 1000 fichas, 
ele "quebrará a banca", sendo informa- 
do pela linha 2010. Se isso acontecer, o 
jogo terminará. 

Se o jogador tiver menos de 1000 fi- 
chas, a linha 2020 perguntará se ele de- 
seja outra "mão". PRINT 1 é usado pa- 
ra colocar a mensagem na primeira li- 
nha da parte inferior do vídeo. 

Quando um dos jogadores obtiver 
um "natural", as cartas serão embara- 
lhadas novamente pela linha 2037, que 
chamará a sub-rotina adequada. Se ele 
quiser jogar outra vez a linha 2040 lim- 
pará a tela, reiniciando o jogo. 



Apague as linhas 190 e 200 do pro- 
grama anterior e adicione as próximas 
linhas. 

84 R=RND(-TIME) :MN=100 

66 CX-31 : CX = 1. : PL=0 : DL-0 : NC-2 : DA 

-0 : PA-0 ! P5 = 0 : TW-0 ! PF = 0 : NA=N : BT= 

0 

210 GOSUB 3000 

220 Dl-N:GOSUB .1000: FOR 1-107 T 
D 180 STEP 3:LINE ( 30 . 1) - (74 , 1 + 
2) ,6-8*(I/2-INT(I/2) ) , BF : NEXT 
240 GOSUB 5000;GOSUB 6500 
250 GOSUB 8000:GOSUB 5000:GOSUB 
7000 

260 GOSUB 5000:PRE5ET(8.80) :PRI 
NT ti, "Use as setas para apostar 
. " ! PRESET (8,92) : PRINTtl , "Depois 
aperte <RETURN>" : C LOS El 




265 AS-INKEYS:IF ASOCHRS (28) A 
ND ASOCHRS (29) AND ASOCHRS (31 
) AND ASOCHRS (30) AND ASOCHRS 
(13) THEN 265 

266 IF ASC(AS)=30 THEN BT-BT+10 
:GOSUB 5000:GOSUB 8000:GOTO 265 

267 IF ASCÍA$)=3.l THEN BT=BT+10 
* (BT>9) : GOSUB 5000:GOSUB 8Q00.-G 
OTO 265 

268 IF ABC (AS) =28 THEN BT=BT+1 : 
GOSUB 5000:GOSUB 8D00:GOTO 265 

269 IF ASC(AS>=29 THEN BT=BT+1* 
(BT>0):GOSUB 5000:GOSUB 8000:GO 
TO 26$ 

270 GOSUB 5800 : BT a INT (BT) : I F BT 
<1 OR BT>MN THEN 240 

2B0 OB=BT:MN«MN-BT 
290 CX=63:G0SUB 3000 
300 D2»N:GOSUB 1000:LINE (61.10 
6)- (105,185) ,12, BF:F0R 1=107 TO 
180 STEP 3:LINE (62 , 1 ) - (1 05 . 1 + 
2) ,6-8* (I/2=INT(I/2) ) , BF : NEXT 
320 IF PL-U AND PA»1 AND NC»2 
THEN 650 
330 CX-CX+32 

.140 PT=PL+10*(PA AND(PL<12)) 
350 IF PL>21 THEN 680 
360 IF NC-5 THEN GOSUB 5000:GOS 
UB 6000:PRINT»] , "VOCE TEM UMA 
MAO DE CINCO" :P5=1: GOSUB 5500:G 
OTO 500 

370 GOSUB 5000:GOSUB 6000 

380 GOSUB 8000 

390 GOSUB 5000:GOSUB 7000 

400 IF TW=0 THEN GOSU85000 : PRES 

ET(8,80) : PRINTtl, "(C)ompra ou": 

GLOSEI 

4)0 GOSUB 5000:PRESE'f (8-12*8* ( 
TU=0) .80) :PRINTtl."(P)ede mai3 
ou acha":PRESET{8.92) :PRINT*1 . " 
(S)uficiente ?" 

430 AS-INKEYS:1F ASO"P" AND (A 
SO"S- 0R PT<16) AND (A$<>"C" O 
R TW-1) THEN 430 

440 IF AS»"S" THEN GOSUB 5800 :G 
OTO 490 

450 IF AS»"P" THEN TW» 1 : GOSUB 5 
800:GOTO 480 

460 IF MN<OB THEN GOSUB 5B00:GO 
SUB 5000 : PRESET (8. 80) ■ PRINTtl , " 
Você não tem" : PRESET (8 ,92) : PRIN 
Til, "tanto dinheiro assim" : GOSU 
B 5500:GOTO 400 

470 BT=BT+OB :MN=MN-OB : GOSUB 700 
0:GOSUB 5000:GOSUB 8000:GOSUB 5 
000 :GOSUB 5800 

480 NC=NC+1 :GOSUB .1000: GOTO 120 
490 IF PT<16 THEN GOSUB 5000 : PR 
ESET(S.SO) :PRINT#l."Voce não po 
de parar tendo apenas ";PT:GOS(J 
B 5500 : CX-CX-32 :GOTO 370 
500 GOTO 750 

650 GOSUB 5000:GOSUB 6000:PRESE 
T(8,B8) : PRTNTIl , " VOCÊ TEM UM N 
ATURAL" : GOSUB 5500 : PF- l : GOTO 86 
680 GOSUB 5000:GO51IB 6000:PRESE 
T (B, 88) : PRINTtl . "Voe* estourou 
e perdeu a aposta* : GOSUB 5500 
750 GOSUB 5000:GOSUB 6000:IF MN 
>999 THEN PRINTtl , "PARABÉNS , UO 
CE QUEBROU A BANCA" : CLOSE1 . PLAY 

"T255ADFBFEADC" : GOSUB 5500:GOT| 
O 790 
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760 PRESET (8 . 80 ) : PRINTI 1 , "Apert 

e <RETURN> Dara" : PRESET (8 , 92) : V 

RINTI1 ," jogar novamente" 

770 IF INKEYS<>CHRS(13) THEN 77 

0 

780 CLOSEl rGOTO B6 

2005 LINE (CX-2.CY-1)-(CX-2,CY+ 

71) .12 

3000 GOSUB 10O0:GOSUB 2000:TF N 
M>10 THEN PL-PL+10 ELSE PL-PL+N 
M 

3010 IF NM=1 THEN PA-1 
3020 RE TU RN 

5000 OPEN " GR P : " FOR OUTPUT AS 
♦ l:COt.OR15: PRESET C8.B8) : RETURN 
5500 CLOSEl : FOR 1-1 TO 2000:NEX 
T : LINE (0.80)-<255,106) ,12,BF:R 
ETURN 

5800 CLOSEl:LINE (0 , 60 ) - (255 , 1 0 
6) , 1 2 . BF : RETURN 

6000 LINE (204,0)-(255.23) ,12,B 
F : PRESET (204,16): PHINTI1 , " PONTO 
S" : PRESET (204,0) : PRINTI l.PL: ! TF 
PA=1 AND PL<12 THEN PRESET(204 
,8) :PBTNTÍ1,"0U";PT 
6010 RETURN 

6500 LINE (204,0)- (255,23) , 12, B 
F-PRESET(204. 16) : PH TNT II , " PONTO 
S" : PRESET (204.0) : PRINTI l.PL; ;IF 
PA-1 THEN PRESET ( 204 , 8) : PRINTI 
1,-OU 11- 
6510 RETURN 

7000 LINE (204,32)-{255.55) ,12, 
BF : PRESET ( 204 , 48) : PRINTI 1 , "FTCH 
AS": PRESET 1204, 32) :PRINT|1,MN:C 
LOSEI1 : RETURN 

8000 PRESET(204.132) :PRTNT|1."A 
POSTA" : LINE ( 204 . 1 48) - (255 . 155) 
. 12, BF: PRESET (204 , 148) : PR1 NTI l . 
BT:CLOSE|] : RETURN 

A linha 86 estabelece o valor inicial 
de uma série de outras variáveis: CX e 
CY são as coordenadas do canto supe- 
rior esquerdo da carta. PL e DL são os 
totais do jogador e da banca, respecti- 
vamente. NC é o número de cartas que 
um deles tem, conforme aquele que es- 
teja jogando no momento. DA e PA são 
indicadores que passam a valer 1 , caso 
a banca ou o jogador tenham um ás. P5 
é outro indicador que passa a valer 1 , 
caso o jogador tenha uma "mão de cin- 
co cartas". TW mostra se o jogador já 
pediu uma carta; caso isso tenha acon- 
tecido, as regras impedem que ele "com- 
pre" novas cartas. PF indica se o joga- 
dor tem um "natural" (21 pontos em 
duas cartas) e NA é o número da pri- 
meira carta distribuída pela banca. 

A sub-rotina que fica entre as Unhas 
3000 e 3020 é chamada pela linha 210. 
Uma carta é mostrada na tela; se ela for 
maior que 10, o total de pontos do jo- 
gador será aumentado em dez pontos; 
caso contrário, o valor real da carta se- 
rá somado ao total. A linha 3010 verifi- 
ca se a carta é um ás e modifica o valor 

i de PA (indicador de ases do jogador) em 

; caso de necessidade. 
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A BANCA DA AS CARTAS 



O programa retorna da sub-rotina 
3000 para a linha 220. Dl é a primei- 
ra carta da banca. A sub-rotina 1000 
verifica qual o seu valor e naipe. O 
FOR.. .NEXT desenha o reverso da pri- 
meira carta da banca. 

Para facilitar a impressão de mensa- 
gens na tela de alta resolução, foram fei- 
tas várias sub-rotinas no final do pro- 
grama. A da linha 5000 abre um arqui- 
vo "GRP:" para que possamos impri- 
mir na tela gráfica por meio de PRINT 
1; acorusadaéobrancoePRESET(8,8*> 
estabelece a posição onde vai serimpres- 
sa a mensagem. A sub-rotina da linha 
5500 fecha o arquivo aberto pela sub- 
rotina anterior e apaga a mensagem es- 
crita no meio da tela, usando LINE,BF; 
isso é feito após uma pequena pausa por 
um laço FOR...NEXT para que o joga- 
dor tenha tempo de ler a mensagem. A 
sub-rotina da linha 5800 é igual à da li- 
nha 5500, só que não provoca uma 
pausa. 

A sub-rotina da linha 6000 mostra o 
total de pontos do jogador no canto su- 
perior direito da tela. A da linha 6500 
exibe, no mesmo local, o valor da pri- 
meira carta do jogador. A sub-rotina da 
linha 7000 mostra o total de fichas que 
restam ao jogador e a da linha 8000, o 
valor da aposta feita. 

A linha 240 revela os pontos do jo- 
gador com o auxílio das sub-rotinas. A 
linha 250 mostra o valor da aposta — 
que ainda é zero — e o total de fichas. 
Estas linhas usam a sub-rotina 5000 pa- 
ra abrir o arquivo que possibilita a im- 
pressão na tela gráfica. 

A linha 260 solicita ao jogador que 
faça sua aposta. O arquivo #l é' fechado 
para evitar problemas — não se deve 
deixar nunca um arquivo aberto. As li- 
nhas 265 a 269 permitem o uso das te- 
clas de controle do cursor para fazer 
apostas: as setas "direita" e "esquerda" 
subtraem ou somam 1 ao valor da apos- 
ta, as setas "para cima" e "para baixo" 
somam ou subtraem 10. 

A linha 270 apaga a mensagem ante- 
rior e também verifica se a aposta foi vá- 
lida; caso contrário, ela tem que ser feita 
novamente. Seu valor é subtraído do to- 
tal de fichas do jogador pela linha 280. 

A linha 290 traça a segunda carta do 
jogador e a linha 300 desenha o reverso 
da segunda carta da banca. A linha 320 
verifica se o jogador tem um "natural" 
(ou seja, 21 pontos em duas cartas). 
Neste caso, a linha 650 informa o fato 
e o jogo recomeça. 

A linha 330 cuida da posição da car- 
ta seguinte. PT é o maior total de pon- 



tos que pode ser obtido caso uma das 
cartas seja um ás. O menor total, ou o 
único total, se não houver ases, será PL. 
Se este for maior que 21 , a linha 680 in- 
formará ao jogador que ele "estourou". 
O programa continua na linha 750, on- 
de são impressas algumas mensagens, 
conforme a situação. 

A linha 360 verifica se o jogador tem 
uma "mão de cinco". Em caso positi- 
vo, o sinalizador P5 será ativado e o jo- 
gador informado; o programa continua- 
rá então na linha 500. 

A linha 370 mostra os pontos do jo- 
gador, a 380 exibe a aposta feita e a 390, 
■o restante das ficrias. 



AS 0PÇ0ES DO JOGADOR 



As opções de "comprar" ou "pedir" 
cartas e de "parar" são dadas pelas li- 
nhas 400 e 410, enquanto as linhas 430 
a 450 cuidam da resposta. Se o jogador 
tentar "comprar" cartas (o que dobra 
a aposta) sem ter fichas suficientes, a li- 
nha 460 dará a resposta adequada. A li- 
nha 470 ajusta e mostra o total de fichas 
antes que outra carta seja exibida pela 
linha 480. 

Por mais que tente, o jogador não 
conseguirá "parar" antes de obter pelo 
menos dezesseis pontos, devido às con- 
dições do IF da linha 430. A linha 490 
é na realidade desnecessária e só entra- 
rá em ação caso se mude a condição 
PT<16 da linha 430. 

A linha 750 atualiza o total de pon- 
tos do jogador e verifica se este tem mais 
de 999 fichas; neste caso, a banca "que- 
brará" e o jogador será informado, en 
quanto uma melodia comemora o fei 
to. As linhas 760 e 780 perguntam en 
tão se o jogador quer outra "queda" 



Apague a linha 170 e acrescente as 
próximas linhas ao programa do artigo 
anterior: 

150 MN - 100 

190 HCOLOB- 1: FOR 1 - 0 TO 19 
1: HPLOT D.I TO 279,1: NEXT 
200 CX - 6:CY - 2 : PI. - 0:DL - 0 
:NC = 2:DA - 0 : PA - 0:P5 - 0:TW 

- 0:PF - 0:NA * N 
210 GOSUB 3000 

220 Dl - N i GOSUB 1000: FOR I - 

100 TO 180: HCOLOR= 3 + 2 * ( 
INT (1/2) - I / 2} : HPLOT 6,1 

TO 56, 1 : NEXT 
230 FOR K - 1 TO 3500: NEXT 
240 HOME : TEXT : PRINT "VOCE 
TEM ":PL;: IF PA - 1 THEN PRIN 
T ■ OU II*: GOTO 250 



245 PRINT 

250 PRINT : PRINT "VOCE TEM 
MN : " FICHAS" 

260 PR TNT : INPUT "QUANTO VOCE 

APOSTA ?";BT 
270 BT - INT (BT) : I F BT < 1 0 
H BT > MN THEN 240 
2H0 OB = BT : MN - MN - BT 
290 CX - 60: GOSUB 3000 
300 D2 = N: GOSUB 1000: FOR I - 

100 TO 1B0: HCOLOR- 3 + 2 * ( 
INT (I / 2) = I / 2> : HPLOT 60. 
I TO 110,1: NEXT 
310 FOR K ■ 1 TO 4000: NEXT 
320 IF PL - 11 AND PA - 1 AND 
NC = 2 THEN 650 
330 CX ■ CX + 54 
340 PT ■ PL + 10 * (PA AND (PL 
< 12)) 

350 IF PL > 21 THEN 680 

360 HOME : TEXT : IF NC - 5 TH 

EN PRINT "VOCE TEM UMA MAO DE 

CINCO" :P5 = 1: FOR K = 1 TO 250 

0: NEXT : GOTO 500 

370 PRINT "VOCE TEM ";PL;: TF 

PA = 1 AND PL < 12 THEN PRINT 

■ OU ";PT: GOTO 380 

375 PRINT 

380 PRINT : PRINT "VOCE APOSTO 



U 



; BT 



390 PRINT : PRINT "VOCE TEM ": 
MN;" FICHAS" 

400 PRINT : IF TU - 0 THEN PR 

INT " (C)OMPRA OU ■ 

410 PRINT : PRINT "(P)EDE MAIS 

" i : IF PT > 15 THEN PRINT "OU 

ACHA (S)UFICIENTE"; 
420 PRINT " ?" 

430 GET AS: IF AS < > "P" AND 
(AS < > "S" OH PT < 16) AND ( 
AS < > "C" OR TW - 1) THEN 430 
440 IF AS - "S" THEN 490 
450 IF AS - "P" THEN TU - 1: G 
OTO 4B0 

460 IF MN < OB THEN PRINT : P 
RINT "VOCE NAO TEM TANTO DINHEI 
RO ASSIM" : GOTO 400 
470 BT - BT + OB : MN • MN - OB 
4B0 NC - NC + 1 : GOSUB 3000: GO 
TO 310 

490 IF PT < 16 THEN PRINT : P 
RINT "VOCE NAO PODE PARAR TENDO 

APENAS ":PT:CX - CX - 50: GOTO 

370 

500 GOTO 750 

650 HOME : TEXT : PRINT "VOCE 
TEM UM NATURAL": FOR K - 1 TO 1 
500: NEXT : PF - 1: GOTO 190 
680 HOME : TEXT : PRINT "VOCE 
ESTOUROU E PERDEU A APOSTA" 
750 PRINT : PRINT "VOCE TEM *t 
MN;" FICHAS": PRINT : IF MN > 9 
99 THEN HOME : INVERSE : HTAB 
8: VTAB 11: PRINT "VOCE QUEBROU 
A BANCA" ! FOR I - 1 TO 2000: XX 
- PEEK ( - 16336) : NEXT : GOT 
O 790 

760 PRINT : PRINT "APERTE <RET 

URN> PARA OUTRA MAO" 

770 GET AS: IF AS < > CHRS ( 

13) THEN 770 

760 GOTO 190 

3000 POKE - 16299,0: POKE - | 
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16304,0: GOSUB 1000: GOSUB Z000 
: IF NM > 10 THEN PL - PL + 10: 
GOTO 3010 
3005 PL - PL + NM 
3010 IF NM = 1 THEN PA = 1 
3020 RETURN 

Os leitores que possuem vídeo mono- 
cromático e que no último artigo prefe- 
riram apagar a linha 1 70 devem substi- 
tuir a linha 190 por: 

190 HGfi z 

A linha 150 faz com que o número 
de fichas (MN) do jogador seja 100. A 
linha 190 limpa a tela. 

A linha 200 estabelece os valores ini- 
ciais de uma série de variáveis. CX e CY 
são as coordenadas do canto superior es- 
querdo da carta. PL a DL são os totais 
de pontos do jogador e da banca, res- 
pectivamente. NC é o número de cartas 
do jogador ou da banca, conforme 
aquele que estiver jogando. DA e PA 
são indicadores, respectivamente, de que 
o jogador ou a banca possuem um ás. 
P5 é um indicador de que o jogador pos- 
sui uma "mão de cinco cartas". TW re- 
vela se o jogador já "pediu" cartas, sen- 
do então utilizado para evitar que ele 
"compre" cartas, segundo as regras do 
jogo. PF é um indicador de "naturais" 
(ou seja, pontos em duas cartas). NA é 
o número da primeira carta dada pela 
banca. Um indicador é uma variável que 
vale 0 ou 1, de acordo com a situação. 

A sub-rotina da linha 3000 é chama- 
da pela linha 210. Uma carta é coloca- 
da na tela; se for maior que 10, o total 
de pontos do jogador será aumentado 
em 10; caso contrário, o valor da carta 
será somado aos pontos do jogador. A 
linha 3010 verifica se a carta é um ás, 
se necessário. 



A BANCA DA AS CARTAS 



O programa retorna da sub-rotina 
para a linha 220. Ali, Dl é a primeira 
cana da banca e a sub-rotina 1000 é usa- 
da para descobrir seu valor e naipe. O 
FOR.. .NEXT desenha o reverso da car- 
ta da banca. 

A linha 230 faz uma pausa antes que 
a linha 240 limpe e ative a tela de tex- 
tos e informe o total ao jogador. A 
mensagem adicional "OU 11" é usa- 
da somente quando a carta é um ás. O 
número de fichas é escrito pela linha 
250. A linha 260 cuida da aposta do jo- 
gador e a 270 providencia para que a 
aposta seja maior que zero e esteja den- 
tro das posses do jogador (caso con- 
trario, ela terá que ser feita novamen- 
te). O valor da aposta é subtraído das 



fichas do jogador pela linha 280. 

A seguir, a linha 290 chama a sub- 
rotina que distribui as cartas, e a linha 
300 desenha a parte posterior da segun- 
da carta da banca. 

A linha 320 verifica se o jogador tem 
um "natural" depois da pausa causada 
pela linha 310. Em caso positivo, a li- 
nha 650 informará o fato ao jogador e 
o programa recomeçará. 

A linha 330 cuida da posição da car- 
ta seguinte. PT é o maior dos totais de 
pontos, para o caso de o jogador pos- 
suir um ás. Se não houver ases, PL será 
o menor (ou o único) total. Se PL for 
maior que 21, a linha 680 informará ao 
jogador que ele "estourou". O progra- 
ma continuará, então, imprimindo as 
mensagens da linha 750 em diante. 

A linha 360 verifica se o jogador tem 
uma "mão de cinco cartas", colocan- 
do 1 em P5 e criando uma pausa, caso 
isto seja necessário. 

A linha 370 mostra o total contido 
nas cartas do jogador (dois valores, se 
houver um ás e o valor menor for infe- 
rior a 12). A aposta do jogador è impres- 
sa pela linha 380 e a quantidade de fi- 
chas pela linha 390. 



AS OPÇÕES DO JOGADOR 



As opções de "parar", "comprar" 
ou "pedir" cartas são oferecidas pelas 
linhas 400 a 420. As linhas 430 a 450 cui- 
dam das respostas do jogador. Se este 
tentar "comprar" cartas sem ter dinhei- 
ro para dobrar a aposta, a linha 460 tra- 
tará de informá-lo. A linha 470 acerta 
o valor da aposta e do total de fichas an- 
tes da linha 480 dar a próxima carta. 

A condição PT< 16 da linha 430 im- 
pede que o jogador "pare" sem ler pe- 
lo menos dezesseis pontos. A linha 490 
é desnecessária e só entrará em ação se 
essa condição for modificada. O progra- 
ma continua na linha 750, que avisa ao 
jogador o número de fichas restantes, 
verificando se a banca foi "quebrada". 
Se isso acontecer, um ruído será pro- 
duzido. 

As linhas 760 a 780 oferecem ao jo- 
gador a opção de jogar outra "mão". 




Para que o programa funcione no 
TK-2000 são necessárias algumas modi- 
ficações. Em primeiro lugar, daqui pa- 
ra a frente use apenas a MP (segunda 
página de video). Quando o programa 
estiver completo, qualquer retorno a 
MA (primeira página de vídeo) vai 
danificá-lo. Então, primeiro digite MP 



e depois < RETURN > ; carregue o pro- 
grama inicial e faça as mesmas modifi- 
cações sugeridas para o Apple com ex- 
ceção das seguintes linhas: 
160 HGR2 

240 GOSUB 5000: PP. TNT "UOCE TE 
M ";PL:: TF PA - 1 THEN PRINT 
" OU 11": GOSUB 6000: GOTO 250 
245 PRINT : GOSUB 6000 
250 GOSUB 5000: PRINT "VOCÊ TE 
M " ; MN ; " FICHAS": GOSUB 6000 
260 GOSUB 5000: INPUT "QUANTO 
VOCE APOSTA ?":BT: GOSUB 6000 
360 GOSUB 5000: IF NC - 5 THEN 
PRINT " VOCE TEM UMA MAO DE Cl 
NCO":P5 - \: GOSUB 6000 GOTO 50 
0 

370 PRINT "VOCE TEM ";PI.;: IF 

PA - 1 ANI) PL < L2 THEN PR TNT 

' OU *:PT: GOSUB 6000: GOTO 3G0 

375 PRINT : GOSUB 6000 

380 GOSUB 5000: PRINT "VOCE AP 

OSTOU "iBT: GOSUB 6000 

390 GOSUB 5000: PRINT "VOCE TE 

M "iMN;" FTCHAS": GOSUB 6000 

400 GOSUB 5000: IF TW - 0 THEN 

PfiTNT " (C) OMPRA OU " 
460 IF MN < OB THEN GOSUB 500 
0: PRINT "VOCE NAO TEM TANTO DI 
NHEJRO ASSIM" * GOSUB 6000: GOTO 
400 

490 IF PT < 16 THEN GOSUB 500 

0: PRINT "VOCE NAO PODE PAR AH T 

ENDO APENAS " ; PT : CX ~ CX - 50: 

GOSUB 6000 : GOTO 370 

650 GOSUB 5000: PRINT "VOCE TE 

M UM NATURAL": GOSUB 6000 : PF * 

1 

660 GOSUB 4000: GOSUB 5000: IF 
DL - 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA COISA": GOSUB 60 
00: GOTO 610 

680 GOSUB 5000: PRINT "VOCE ES 
TOUROU E PEHDEU A APOSTA" : GOSU 
B 6000 

690 GOSUB 5000: I F MN < l THEN 
PR TNT "VOCE PEHDEU TODAS AS F 
ICHAS": GOSUB 6000: GOTO 790. 
700 IF PF * 1 THEN PRINT " EMB 
AR ALUANDO AS CARTAS": GOSUB 150 
0: GOSUB 6000: GOTO 750 
750 GOSUB 5000: PRINT "VOCE TE 
M ";MNi" FTCHAS": GOSUB 6000: I 
F MN > 999 THEN GOSUB 5000: PR 
TNT "VOCE QUEBROU A BANCA" : FOR 

] • 1 IO 2000: NEXT : GOTO 790 
760 GOSUB 5000: PHINT "APERTE 
<HETURN> PARA OUTRA MAO": GOSUB 

6000 

5000 HCOLOR- .1 : FOR 1 - 84 TO 
108: HPLOT 0 , I TO 255.1: NEXT : 

HTAB 1: VTAB 12: RETURN 
6000 FOH I - 1 TO 1000: NEXT : 

RETURN 

Note que você terá que procurar na 
listagem das modificações para o Apple 
algumas linhas que não estão aqui por 
falta de espaço. A diferença entre o pro- 
grama do Apple e do TK-2000 se deve 
ao fato de este último não possuir uma 
página só para textos. Assim, as men- 
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sagens lerão qu> 
gráfica. 

A sub-rotina da linha 5000 apaga 
qualquer coisa que tenha sido escrita an- 
tes e posiciona o cursor para a mensa- 
gem seguinte. A sub-rotina 6000 provo- 
ca uma pausa para que a mensagem pos- 
sa ser lida. No restante, o programa é 
igual ao do Apple e as explicações são 
as mesmas. 

As linhas 220 e 300 são um pouco di- 
ferentes das do Apple. Elas colocam as 
cartas da banca mais abaixo, abrindo 
um espaço para que as mensagens sejam 
impressas na tela. 



Acrescente as próximas linhas àque- 
las que digitou da outra vez: 

170 MN-100 
190 PCLS 6 

200 CX-6:CY-11:PL-0:DL-0:NC-2:D 
A-0 ! PA-0 : P5 = 0 :TW=0 : PF-0 : NA-N 
210 GOSUB 3000 

220 POKE 178. 156:D1-N:G0SUB 100 
0:LINE (6, 108) -(50,180) .PSET.BF 
230 FOR K-l TO 2000:NEXT 
240 CLS: PRINT" VOCE TEM" ; PL ; : IF 
PA-1 THEN PHINT "OU 11" ELSE P 
RI NT 

250 PHINT : PRINT" VOCE TEM" ; MN ; " 
FICHAS " 

260 INPUT" FACA SUA APOSTA " ; BT 
270 BT-INT(BT) :IF BT<1 OR BT>MN 

THEN 240 
280 OB-BT : MN-MN-BT 
290 CX-56:GOSUB 3000:POKE 178,1 
56 

300 D2-N:GOSUB 1000 : LINE ( 56 . 108 

)-(100,180) .PSET.BF 

310 FOR K-l TO 2500:NEXT 

320 IF PL-11 AND PA-1 AND NC- 2 

THEN 650 

330 CX-CX+50 

340 PT-PL+10MPA AND(PL<12>) 
350 IF PL>21 THEN 680 
360 CLS.IF NC-5 THEN PRINT" UOC 
E TEM UMA MAO DE CINCO" : P5-1 r FO 
R K-l TO 1500 :NEXT:GOTO 500 
370 PRINT" VOCE TEM";PL;:IF PA- 
1 AND PTX12 THEN PRINT "OU"iPT 
ELSE PRINT 

380 PRINT: PRINT" UOCE APOSTOU"; 
BT 

390 PRINT : PRINT" UOCE TEM"; MN;" 
FICHAS" 

400 PRINT:IF TW-0 THEN PRINT" ( 
OOMPRA OU" ; 

410 PRINT" (P)EDE MAIS CARTAS"; 
:IF PT>15 THEN PRINT" OU (S)ATI 
SFEITO" ; 
420 PRINT " ?" 

430 A$-INKEYS:IF ASO"P" AND (A 

3<>"S" OR PT<16) AND <ASO"C" O 

R TW-1) THEN 430 

440 IF A3-"S" THEN 490 

450 IF AS-"P" THEN TW-1: GOTO 48 

0 

460 IF MN<OB THEN PRINT " VOCE 



pressas na tela nao tem tanto dinheiro" :goto 40 



470 BT-BT+OB :MN-MN-OB 

480 NC-NC+1 :GOSUB 3000:GOTO 310 

490 IF PT<16 THEN PRINT " UOCE 

NAO PODE PARAR AGORA" ; PT : CX-CX- 

50; GOTO 370 

500 GOTO 750 

650 CLS; PRINT" VOCE TEM UM NATU 
RAL" ; FOR K-l TO 1000 : NEXT : PF-1 : 
GOTO 190 

680 CLS: PRINT" UOCE ESTOUROU E 
PERDEU A APOSTA" 

750 PRINT : PRINT" UOCE TEM" ; MN ; " 
FICHAS" :PRINT: IF MN>999 THEN PR 
INT "MUITO BEM, VOCE QUEBROU A 
BANCA ! " : SCREEN 0.1: PLAVT6ADFBF 
EADC";GOTO 790 

760 PRINT ; PRINT" PRESSIONE (S) 
PARA RECOMEÇAR" 
770 IF INKE¥S<>"S" THEN 770 
780 GOTO 190 

3000 SCREEN 1,1: GOSUB 1000:GOSU 

B 2000:IF NM>10 THEN PL-PL+10 E 

LSE PL-PL+NM 

3010 IF NM-1 THEN PA-1 

3020 RETURN 

A linha 170 faz com que o número 
de fichas do jogador seja igual a cem. 
A linha 190 limpa e dá cor à tela. 

A linha 200 estabelece o valor inicial 
de uma série de variáveis, CX e CY são 
as coordenadas do canto superior es- 
querdo da carta. PL e DL são, respecti- 
vamente, os totais de pontos do jogador 
e da banca. NC é o número de cartas de 
quem estiver jogando no momento, jo- 
gador ou banca. DA e PA são indica- 
dores que passam a valer 1 se a banca 
ou o jogador tiverem um ás. P5 é um 
indicador que sofrerá a mesma modifi- 
cação caso o jogador consiga uma "mão 
de cinco cartas". TW é um indicador 
que passará a valer 1 quando o jogador 
"pedir" uma carta. Segundo as regras, 
a partir de então ele não poderá mais 
"comprar". PF é um indicador de "na- 
turais" e NA o número da primeira car- 
ta dada pela banca. 

A sub-rotina da linha 3000 é chama- 
da pela linha 210. Uma carta é coloca- 
da no vídeo. Se for maior que 10, o to- 
tal do jogador será aumentado erp dez; 
caso contrário, o valor da carta será so- 
mado aos pontos do jogador. Se a car- 
ta for um ás, a linha 3010 colocará 1 no 
sinalizador de ases PA. 



A BANCA DA AS CARTAS 



Quando o programa retornar, a linha 
220 usará POKE para obter o padrão 
usado no reverso das cartas. DI é a pri- 
meira carta da banca; a sub-rotina des- 
cobre seu valor e naipe. LINE desenha 
a carta e POKE cria o padrão. 

A linha 230 provoca uma pausa an- 



tes que a linha 240 limpe a tela e es- 
creva o total do jogador. O comando 
PRINT muda automaticamente a tela 
gráfica para a tela de textos. Se a carta 
for um ás, aparecerá uma mensagem 
adicional "OU 11". O número de fichas 
é informado pela linha 250. 

A linha 260 cuida da aposta; a linha 
270 verifica se esta é válida; caso con- 
trário, ela deve ser refeita. A aposta é 
subtraída das fichas do jogador pela li- 
nha 280. 

A seguir, a linha 290 chama as sub- 
rotinas que dão as cartas e a linha 300 
desenha a segunda carta da banca. 

A linha 320 verifica se o jogador tem 
um "natural" (istoé, 21 pontos em duas 
cartas), depois da pausa criada pela li- 
nha 310. Se houver um "natural",-a li- 
nha 650 informará ao jogador, e o jogo 
começará de novo. 

A linha 330 cuida da posição da car- 
ta seguinte. Se o jogador tiver um ás, o 
maior dos seus totais será PT. Se não 
houver ases, o menor (ou único) total se- 
rá PL. Se este for maior que 2 1 , a linha 
680 informará ao jogador que houve um 
"estouro", e o programa irá para a li- 
nha 750. A linha 350 verifica se o joga- 
dor tem uma "mão de cinco". Neste ca- 
so, o indicador PS será ativado e uma 
pausa será provocada antes de o jogo 
prosseguir. 

A linha 370 mostra o total dos pon- 
tos do jogador — dois valores, se hou- 
ver um ás e o valor menor for inferior 
a 12. A aposta é mostrada pela linha 380 
e as fichas remanescentes são indicadas 
pela linha 390. 



AS 0PÇ0ES DO JOGADOR 



As opções de "parar", "comprar" 
ou "pedir" cartas são oferecidas ao jo- 
gador pelas linhas 400 a 420. As linhas 
430 a 450 cuidam das respostas. Se o jo- 
gador tentar comprar cartas sem ter fi- 
chas suficientes para dobrar a aposta, 
a linha 460 dará o aviso. A linha 470 
atualiza o valor da aposta e do total de 
fichas, antes que a linha 480 dê outra 
carta. 

Se o jogador tentar "parar" sem ter 
pelo menos dezesseis pontos, será impe- 
dido pela condição PT < 16 na linha 430. 
A linha 490 é desnecessária e só entrará 
em ação caso essa condição seja modi- 
ficada. 

A Unha 750 diz ao jogador quantas 
fichas sobraram e verifica se ele conse- 
guiu quebrar a banca. Se isso acontecer, 
haverá um efeito sonoro depois de uma 
mudança de cores. 

As linhas 760 a 780 permitem ao jo- i 
gador uma outra "mão". 
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Uma das características da programa- 
ção consiste em que tudo o que não es- 
teja gravado em Fita ou no disquete tem 
que ser digitado. Frequentemente, con- 
tudo, pode-se economizar tempo, mo- 
dificando programas já prontos ou com- 
binando dois (ou mais) programas para 
formar um terceiro. 

Existem basicamente duas maneiras 
de combinar programas. A primeira 
consiste em somar duas partes com nú- 
meros de linhas diferentes. A segunda, 
mais complexa, permite a união de pro- 
gramas com números de linhas iguais. 
Neste curso, os dois métodos serão tra- 
tados simultaneamente. 



Combinar programas (Merge è o ter- 
mo usado em inglês) é essencialmente 
um método de auxílio ã programação. 
Suponhamos, por exemplo, que você te- 
nha feito um programa que não funcio- 
na do modo esperado, ou que deseje al- 
terá-lo para que ele execute uma tarefa 
diferente daquela para a qual foi cria- 
do. A melhor maneira seria gravá-lo em 
fita ou disquete e continuar a trabalhar 
nele sem medo de danificar o original. 
Uma vez aperfeiçoado, o programa es- 
taria, digamos, com o dobro do tama- 
nho original, ou teria ganho vários mó- 
dulos diferentes. Em qualquer caso, as 
duas versões podem ter elementos que 
você deseje conservar, mas existem en- 
tre elas tantas diferenças que seria mui- 
to difícil digitar cada coisa separada- 
mente. E há mais um problema: a não 
ser que você coloque os dois programas 
no papel, é necessário ter tudo na me- 
mória para poder fazer as mudanças na 
hora de combiná-los. 

Outra situação em que se torna ne- 
cessário combinar programas é aquela 
em que se deseja incorporar rotinas ou 
procedimentos já existentes a um novo 
programa. Estes podem ser longas roti- 
nas em código de máquina que tocam 
uma música, ou uma rotina que anima 
um desenho em alta resolução, ou mes- 
mo uma rotina de detecção de erros. 

A maioria dos programadores tem 
I uma variada "biblioteca" de sub-roti- 
I nas, montadas ao longo dos anos e in- 




corporadas aos novos programas de 
acordo com as necessidades. Uma "bi- 
blioteca" desse tipo tem um valor ines- 
timável pois, uma vez que as rotinas te- 
nham sido digitadas, testadas e grava- 
das, não é necessário nem mesmo dese- 
jável redigitá-las toda vez que for pre- 
ciso utilizá-las. Elas podem ser incorpo- 
radas ao programa por meio das técni- 
cas de combinação. 

Esse recurso serve igualmente 
enfileirar uma série de pequenos progra- 
mas e executá-los sequencialmente. Nes- 
te caso, pode-se ter, por exemplo, uma 
série que comece por uma saudação ini- 
cial, seguida de um desenho multicolo- 
rido, e assim por diante. 

A última linha pode desviar o progra- 
ma para o início, provocando uma exe- 
cução continua. 
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Por que perder tempo digitando rotinas 
e programas já digitados e 
testados, se o computador pode fazer 
todo esse trabalho com 
a ajuda apenas de alguns comandos? 



■ 


POR QUE JUNTAR PROGRAMAS 


■ 


COMO ACRESCENTAR 


SUB-ROTINAS PRE-FABR IÇADAS 


■ 


COMO COMBINAR VÁRIOS 


PROGRAMAS EM UM SO 




Cada computador tem seu próprio 
método para fazer a combinação de pro- 
gramas. Alguns dispõem de um coman- 
do (MERGE) que se encarrega da tare- 
fa, fazendo com que o programa que es- 
lá na memória seja retido enquanto ou- 
tro é carregado da fita ou disquete. Já 
outros exigem que se digite algumas li- 
nhas de instrução, ou se destine espaço 
na memória para o segundo programa. 

Qualquer que seja o método utiliza- 
do, no entanto, é necessário que os nú- 
meros de linhas sejam ajustados antes 
para que a combinação se dê da forma 
desejada. 

O ZX-81 é um caso especial. Ele não 
tem um comando para fazer a combi- 
nação e não há nenhuma técnica razoa- 



velmente simples que permita que dois 
programas sejam carregados na memó- 
ria. Veja a seção Perguntas e respostas 
para maiores informações. 



No Spectrum, a combinação de pro- 
gramas é feita por intermédio do coman- 
do MERGE, que torna muito simples 
essa operação. No entanto, é necessário 
atenção com a numeração dos progra- 
mas a serem combinados. Por exemplo, 
para juntar uma sub-rotina de umas vin- 
te linhas a um programa maior, é preci- 
so deixar um espaço na numeração. As- 
sim, o programa seria numerado de 10 
a 50, digamos, e de 300 a 1000, e a 
sub-rotina de 60 a 250. 

Outra possibilidade é dar à sub-rotina 
uma numeração superior à do progra- 
ma. Com um pouco de cuidado, pode- 
se arranjar as coisas de tal forma que, 
com a substituição de algumas linhas 
por outras, e a incorporação de novas 
linhas, obtenha-se um novo programa. 

Agora, digite e execute o programa 
a seguir. Ele mostra quadrados colori- 
dos em posições aleatórias. Mais adian- 
te, você verá como combiná-lo com ou- 
tro programa: 

10 BORDER 0; INK 9 
5(1 PAPER 0 
60 CLS 

70 FOR n-1 TO 400 

80 LET x-INT (RND*32> 

90 LET y-INT (RND"22) 
100 PAPER 7: IF x>8 AND x<24 
AND y>6 AND y<16 THEN PAPER 4 
110 PRINT AT y.x;" " 
120 NEXT n 

Grave o programa (com o título de 
SQ1, por exemplo). E não desconecte o 
gravador — você ainda vai precisar de- 
le. Note que qualquer outro programa 
que você já tenha serviria para nossa de- 
monstração. Digite NEW e em seguida 
o próximo programa: 

10 BORDER 0: PAPER 0: INK 9: 

CLS 

30 FOR t-1 TO 5 
40 IKK INT (RND*6)+2 
60 PRINT AT t,0;"ISTO E UM TE 
9TE" 
130 NEXT t 




um 



PROGRAMAÇÃO BASIC 
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Existe uma forma simples de combi- 
nar programas no ZX-81? 

Infelizmente, não. Isso pode ser fei- 
to em linguagem de máquina, mas o 
programa é bem complicado. 

O ZX-81 não tem um comando 
MERGE e não existe nenhuma forma 
em BASIC de carregar dois programas 
na memória ao mesmo tempo (todos os 
programas são carregados no mesmo 
endereço da memória). Assim, ao se 
carregar um programa, inevitavelmen- 
te se destrói 



Este é um programa muito simples, 
que mostra uma mensagem (linha 60) 
cinco vezes. Agora digite MERGE"" 
para combiná-lo com o anterior (não se 
esqueça de retroceder a fita até o início 
do programa). O programa da fita será 
então adicionado ao da memória do mi- 
cro. Liste o novo programa e observe 
que as linhas 10 e 60 foram substituídas, 
enquanto as linhas 50 e de 70 a 120 fo- 
ram acrescentadas. Execute o programa 
para ver o procedimento inicial (SQ1) 
executado cinco vezes. 

Como não é muito fácil renumerar 
programas no Spectrum, convém ajus- 
tar a numeração das linhas antes de 
combinar os programas. 



O TRS-Color permite a junção de 
programas em sequência, mas não a so- 
breposição de linhas. 

Digite e execute o programa seguin- 
te, que coloca quadradinhos coloridos 
em áreas retangulares da tela. 

10 PCLEAR 4 

20 FOR T-l TO 5 

30 CLS 0 

40 FOR N-l TO 400 
50 X-RND(32)-1 
60 Y-RND(16)-1 

70 IF X<6 OR X>25 OR Y<4 OR Y>1 

1 THEN C-175 ELSE C-255 

80 POKE 1024+Y*32+X,C 

90 NEXT 

100 NEXT 

Agora, grave o programa (como 

SQ1, por exemplo), para que ele possa 

ser carregado novamente na memória. 
I Ele poderia ser uma longa sub-rotina ou 
I parte de um programa inacabado. 



Digite o comando NEW e, em segui- 
da, o próximo programa: 
10 POLEAR 4 
20 CLS 

30 PRINT 8192,STRINGSt32,CHR$<2 
36)) ; 

40 PRINT " BENVINDO A UM DISPLA 

Y COLORIDO" 

50 PRINT STRING$(32.CHR$(163)) 

O programa imprime uma mensagem 
na tela (linha 40). Para juntar a ele o 
programa que você já gravou, entre as 
linhas a seguir: 

POKE 25.PEEKI27) 
POKE 26,PEEK(28)-2 

Em seguida, carregue o programa da 
fita (SQ1) e entre estas instruções: 
POKE 25,30 
POKE 26.1 

Ao listar o novo programa, ele apa- 
recerá com números de linha de 10 a 50 
e a seguir de 10 a 100. Digite RENUM 
para renumerar o programa e liste-o no- 
vamente; você verá algo como: 

10 PCLEAR 4 
20 CLS 

30 PRINT «192,STRING$(32,CHRS(2 
36) ) i 

40 PRINT " BENVINDO A UM DISPLA 

Y COLORIDO" 

50 PRINT STRINGSt32.CHRS<163)> 

60 PCLEAR 4 

70 FOR T-l TO 5 

80 CLS 0 

90 FOR N-l TO 400 
100 X-RND(32) -1 
110 Y-RND(16)-1 

120 IF X<6 OR X>25 OR Y<4 OR Y> 

11 THEN C-175 ELSE C-255 
130 POKE 1024+Y*32+X,C 
140 NEXT 

150 NEXT 

A primeira parte do programa é exe- 
cutada rapidamente. Para separá-la da 
segunda parte, mude a linha 60 para: 
60 FOR K-l TO 2000:NEXT 



O MSX é outro computador que 
apresenta grande facilidade para com- 
binação de programas. Como o Spec- 
trum, ele possui o comando MERGE, 
que se encarrega de todo o trabalho. 

Todavia, é sempre importante tomar 
cuidado com a numeração das linhas, 
pois, se existirem! linhas de mesmo núme- 
ro nos dois programas a serem unidos, 
aquelas que vêm do programa que é car- 
regado da fita substituirão as da memó- 
ria. Assim, deve-se sempre deixar espa- 
ço suficiente no programa que vai rece- 
ber o novo trecho para que não se per- 
cam linhas. 



Digite o programa apresentado a se- 
guir. Ele desenhará quadradinhos colo- 
ridos em determinada região da tela. Em 
seguida grave-o na fita, usando o co- 
mando SAVE (e não CSAVE). Chame- 
o, por exemplo, de SQL 

60 R-RND (-TIME) 

70 5CREEN3 

80 COLOR 15.RM5 

90 FORI-1TO400 

100 X-INT(RND(1)*256) 

110 Y-INT(RND(1)*192) 

120 IFX<36ORX>21OORY<20ORY>110T 

HEN100 

130 PSET(X,Y) ,RND<1)*15 
140 NEXT 

Quando tiver terminado a gravação 
do programa, digite NEW e. sem desco- 
nectar o gravador do micro, coloque es- 
te outro programa no seu computador: 

10 CLS 

20 PRINTSTRING$(39,36) 

30 PRINTTAB (10) ; "VEJA QUE BELO 

EFEITO! " 

40 PRINT:PRINTSTRINGS(39,36) 
50 FORJ=lTO500:NEXT 
150 SCREENO 

160 PRINTSTRINGS(39,123) 

170 PRINTTAB(IO) ; "ACABOU! !! ' 

Este é um programa muito simples, 
que coloca duas mensagens na tela. So- 
zinho, não quer dizer muita coisa; mais 
adiante, porém, você poderá avaliar sua 
importância. 

Agora, rebobine a fita para posicio- 
ná-la no início do programa anterior. 
Digite MERGE"SOL". Em seguida, di- 
gite LIST. Veja que os dois programas 
estão juntos, o primeiro colocado den- 
tro do segundo. 

Como o MSX também oferece o co- 
mando RENUM, você não terá dificul- 
dade para fazer com que os números das 
linhas dos programas sejam os mais ade- 
quados às combinações que quiser fazer. 



O Apple II não tem o comando MER- 
GE no BASIC; mas, para quem traba- 
lha com uma unidade de disco, existe 
um programa no disco-mestre do siste- 
ma operacional que renumera as linhas 
de um programa em BASIC e permite 
que se faça a combinação de programas. 
Para trabalhar com ele, basta seguir as 
instruções do manual. 

Aqui, mostraremos duas outras for- 
mas de se combinar programas. A pri- 
meira é destinada a quem trabalha com 
disquetes. Essa técnica aproveita a fa- 
cilidade do Apple para ler um arquivo 
texto, simulando entradas de teclado. 
Pode-se guardar, assim, uma série de 
instruções (uma rotina de ordenação, 
por exemplo) na forma de um arquivo 
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texto e, por meio do comando EXEC, 
fazer com que a rotina seja adicionada 
ao programada memória. Tudo funcio- 
na como se a rotina tivesse sido digita- 
da no teclado. Vejamos como isso acon- 
tece. Digite o programa a seguir: 

1 D3 - CHRS (4) 

2 PRINT DS;"OPEN TEXT" 

3 PRINT DS ; "WHITE TEXT" 

4 POKE 33.33: LIST 10 - 

5 PRINT DS;"CLOSE": POKE 33,40 
! END 

100 DS - CHRS (4) 

110 PRINT D3i"0PEN TEXT" 

120 PRINT D3;-WRITE TEXT* 

130 POKE 33, 33: LIST - 5 

140 PRINT DS:'CLOSE": POKE 33, 

40 

Depois de digitá-lo, execute-o a par- 
tir da linha 100 (RUN 100). Isto fará 
com que seja criado um arquivo texto 
no seu disco que contém as linhas 1 a 
5. Ao verificar o diretório (catálogo) do 
disco (CATALOG), você verá que o 
arquivo tem o nome de TEXT. Modi- 
fique-o para MERGE e você se lem- 
brará facilmente do nome (RENAME 
TEXT, MERGE). Agora digite NEW e 
a seguir o próximo programa: 

40 GR 

50 FOR I - 1 TO 500 

60 COLOR= RND (1) * 16 



90 PLOT X.Y 
100 NEXT 

70 X - RND (1) * 40 
80 Y - RND (1) * 40 

O programa mostra uma grande quan- 
tidade de quadrados coloridos na tela; 
é bem simples, mas servirá para a nossa 
demonstração. Agora digite MON C,I,0 
e depois EXEC MERGE. Você verá as 
linhas 1 a 5 do programa anterior apa- 
recerem na tela. Liste o programa e ve- 
rifique se as linhas que você havia digi- 
tado ainda estào lá. Dessa forma, você 
já conseguiu combinar dois programas: 
o que desenha na tela e o outro, que po- 
de não lhe parecer muito claro. Agora, 
vamos explicá-lo melhor. A primeira li- 
nha apenas define a variável D$ como 
o caractere de código 4; este indica ao 
computador que um comando do siste- 
ma operacional está sendo usado. A se- 
guir, um arquivo é aberto e preparado 
para receber dados (linhas 2 e 3). A linha 
4 coloca a listagem do programa nesse 
arquivo, a partir da linha 10. O arqui- 
vo é então fechado e termina a rotina. 

A vantagem dessa operação consiste 
em que uma rotina assim armazenada 
pode ser adicionada a qualquer progra- 
ma com apenas um comando. 

Para compreender melhor, digite RUN. 
Nossa pequena rotina será executada e 
o programa que coloca os quadrados co- 
loridos na tela será armazenado no ar- 




Se o seu micro tem um comando pa- 
ra a renumeração de linhas, use-o pa- 
ra que o programa comece em uma de- 
terminada linha e tenha um incremen- 
to constante. Se você nao tem o pro- 
grama, a renumeração deve ser feita 
manualmente; mas tome cuidado com 
todas 3S linhas referenciadas em ins- 
truções GOTO ou GOSUB e ON. ..GO- 
TO ou ON... GOSUB. 



quivo de nome TEXT. À medida que 
outras rotinas forem sendo guardadas, 
é necessário dar a elas novos nomes co- 
mo foi feito com MERGE. Agora digi- 
te NEW e a seguir o próximo programa: 
10 HOME 

20 PHINT "*** DEMONSTRAÇÃO 
DO MERCÊ ***" 
30 FOR I - 1 TO 2000: NEXT 
110 TEXT : GOTO 10 

Este programa imprime apenas duas 
mensagens na tela. Para uni-lo ao pro- 
grama dos quadradinhos, você deve di- 
gitar EXEC TEXT. Feito isso, os dois 
programas podem ser executados como 
se fossem um só. 
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SEGUNDO MÉTODO 



Para quem não tem uma unidade de 
disco, há um outro método, mais rudi- 
mentar, que também permite a combi- 
nação de programas. Esse método co- 
loca um programa após o outro, blo- 
queando a mistura de linhas de núme- 
ros variados. Assim, o programa da me- 
mória deve ter numeração inferior ao 
daquele que vai ser carregado da fita. 

Digite inicialmente as linhas de 40 a 
100 do programa anterior. A seguir, gra- 
ve-o em fita. Limpe a memória do mi- 
cro (NEW) e digite as linhas de 10 a 30. 
Não digite a linha 110. Agora execute 
as seguintes instruções: 

E=PEEK(106)*256+PEEK(105>-2 

POKE 104, INTÍE/256) 

POKE 103,E-PEEK{104)*256 



Carregue o programa da fita com 
o comando LOAD 

POKE 104, 8 
POKE 103,1 
LIST 

E temos os dois programas juntos. 




Os microcomputadores compatíveis 
com a linha TRS-80 que dispõem de BA- 
SIC para disco (ou seja, sob o sistema 
operacional DOS) já têm os comandos 
MERGE — destinado a combinar pro- 
gramas (com possibilidade de substitui- 
ção de linhas e de inserção de linhas in- 
termediárias) — e RENÍJM, que permite 
a remuneração das linhas do programa 
resultante. Assim, é muito fácil fundir 



dois ou mais programas em rotinas em 
BASIC: basta carregar ou digitar o pri- 
meiro programa na memória (através de 
um comando LOAD) e, em seguida, di- 
gitar um comando MERGE "nome", 
para especificar a denominação do pro- 
grama a ser fundido com o primeiro. 

O TRS-80 na versão cassete não tem 
o comando MERGE; para combinar 
programas nesse micro são necessários, 
portanto, alguns "truques" especiais. 
Esses "truques", contudo, permitem 
apenas que se juntem programas em se- 
quência, isto é, um depois do outro, im- 
pedindo a superposição de linhas. 

Digite e execute c programa seguin- 
te, que coloca uma mensagem- várias ve- 
zes na tela: 
100 CL5 

110 FOR 1-1 TO 5 

120 PRINT "COSTOU DO TESTE ?" 

130 NEXT I 

Agora, grave o programa (como 
SQ1, por exemplo), para que ele possa 
ser carregado novamenie na memória. 
Ele poderia ser uma longa sub- rotina ou 
parte de um programa inacabado. 

Digite NEW e depois o programa a 
seguir, que serve para preencher a tela 
com quadradinhos ao acaso: 

10 RAN DOM 

20 FOR T=l TO 5 

30 CLS 

40 FOR N=l TO 400 

50 X=RND(64)-1 

60 Y=RND(16)-1 

70 SET ÍX,Y) 

80 NEXT N 

90 NEXT T 

Ele imprime uma mensagem na tela. 
Para juntar o programa que você já gra- 
vou, entre a linha a seguir: 

PRINT PEEK(16633) 

Se o resultado mostrado na tela for 
menor do que 2, digite as linhas abaixo: 

POKE 16548, PEEK(16633)+254 
POKE 16549, PEEK(16634)-1 

Entretanto, se o resultado for maior 
ou igual a 2, digite estas linhas: 

POKE 16548. PEEK(16633)-2 
POKE 16548. PEEKU6634) 

A seguir, carregue o programa da fi- 
ta (SQ1), usando o comando CLOAD, 
e entre estas instruções: 

POKE 16548, 233:P0KE 16549,66 

Ao listar o novo programa, ele apa- 
recerá com números de linha de 10 a 70 
e a seguir com os números de 100 em 
diante. Liste-o novamente, e você verá 
o programa inteiro. 



19 PROGRAMAÇÃO DC JOGOS 
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AS REGRAS DO JOGO NORMAL 


E DA VERSÃO COMPUTADORIZADA 


■ 


FUNCIONAMENTO DO PROGRAMA 


■ 


AS DECISÕES DA BANCA 


■ 


PERDER OU GANHAR 



Para completar nosso jogo de 
vinte-e-um. só falta ensinar o 
computador a fazer as vezes da banca. 
É hora, portanto, de se preparar para 
enfrentá-lo: conheça as regras do jogo. 



Antes de passar à última seção do 
programa, convém conhecer as regras 
do jogo. 

O vinte-e-um utiliza um baralho com 
52 cartas. As cartas que vão do 2 ao 10 
têm valor igual ao seu número. As fi- 
guras valem 1 0 pontos e o ás pode valer 
1 ou 11, conforme a decisão do jogador. 
Em nosso jogo, o computador calcula 
os pontos automaticamente. 



Joga-se, em geral, com dinheiro ou 
fichas. Nosso computador é programa- 
do para marcar os pontos com fichas. 
Cabe a ele desempenhar o papel da ban- 
ca, sendo sempre quem dá as cartas. 

No início do jogo, o computador em- 
baralha as cartas e distribui duas, vira- 
das para baixo ("fechadas"). A carta do 
jogador aparece "aberta" na tela, mas 
o programa foi feito de modo que o 
computador não conheça as cartas do 
jogador. Este faz sua aposta, antes que 
ele e a banca recebam outra carta. 

O objetivo do jogo é ter uma mão 
melhor que a da banca, isto é, um maior 
número de pontos na soma das cartas. 
Ouem tiver um total maior que 21, estou- 
rou, perdendo a aposta. Com um total 
entre 16 e 21, o jogador só ganha da 



banca se esta possuir um total menor, 
ou se tiver estourado. Assim, a banca 
tem sempre a vantagem do empate. 

Existem duas mãos especiais — o 
"natural": um ás e um dez ou um ás e 
uma figura, somando 21 em duas car- 
tas; e a "mão de cinco": uma mão com 
cinco cartas, cujo total é igual ou infe- 
rior a 2 1 . Um natural do jogador ganha 
de qualquer mão da banca, exceto de 
outro natural. Uma mão de cinco tam- 
bém ganha de qualquer coisa, menos de 
um natural ou outra mão de cinco. 



COMO FUNCIONA 0 PROGRAMA 



Depois que o jogador recebeu a se- 



gunda carta, o pre 
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conseguiu um natural. Se não conse- 
guiu, mas obteve um total maior ou 
igual a 16, e está satisfeito com este va- 
lor, ele pode "parar", não recebendo 
mais cartas. A vez de jogar passa, en- 
tão, à banca. Se obteve um total infe- 
rior a 16, ou não está satisfeito com o 
valor de sua mão, pode receber mais car- 
tas pelo ato de "pedir" ou de "com- 
prar' ' . No jogo normal, quando se com- 
pra uma carta, a aposta original é do- 
brada e a banca dá a carta fechada. Na 
nossa versão computadorizada, não há 
diferença entre cartas fechadas ou aber- 
tas, e pedir cartas não dobra a aposta, 
pois todas são dadas abertas. O jogador 
não poderá comprar depois de ter pedi- 
do alguma carta e, ao chegar na quinta 
carta, só poderá pedir. Após cada carta 
fornecida, o computador verifica se o 
jogador ou a banca ultrapassaram os 2 1 
pontos. 

Quando o jogador estoura, a banca 
ganha a aposta e não precisa jogar. 



Quando ele tem 21 ou menos, a banca 
mostra suas duas cartas e decide se pe- 
de mais cartas ou pára por ali. Se as 
duas cartas da banca são um natural, ela 
ganha a aposta. Caso contrário, a ban- 
ca pede mais cartas até ficar satisfeita 
com o lotai, conseguir uma mão de cin- 
co ou então estourar — para alegria do 
jogador. 

Se a banca pára com um total menor 
que 21 e sem ter obtido uma mão de cin- 
co, surge na tela a mensagem: a BAN- 
CA PAGA... totais que tenham um 
ponto a mais que o valor de sua mão. 
Se a mão da banca for 21, a mensagem 
NATURAIS E MÃOS DE CINCO 
APENAS é mostrada. E, caso obtenha 
uma mão de cinco, o jogador é infor- 
mado: APENAS NATURAIS. No jo- 
go convencional, cada jogador declara- 
ria o valor de sua mão, se tivesse venci- 
do a banca. Na nossa versão, o compu- 
tador soma as cartas do jogador para sa- 
ber seu total. Se o jogador tiver um to- 



tal maior ou igual ao que a banca paga, 
ele vence; se tiver menos, perde. Quan- 
do vence, a banca paga um valor igual 
a sua aposta, ou seja, ele recebe o do- 
bro do que apostou. Nenhuma ficha ex- 
tra é paga a naturais ou mãos de cinco, 
e não e permitido blefar. 

O jogador também não pode dar as 
cartas nem fazer papel de banca — no 
jogo convencional a banca pertence a 
quem consegue um natural. Resta, as- 
sim, ao jogador, a difícil tarefa de que- 
brar a banca, o que ocorre quando ele 
consegue acumular mais de 1000 fichas. 
No inicio da partida, o jogador recebe 
100 fichas e, caso perca todas, perde 
também o jogo. 




Carregue as duas seções iniciais do 
programa e acrescente as linhas seguin- 
tes para completar seu jogo. 



2500 PAUSE 50 
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2510 LET DPF-B: LET AF-B: LET X 

-C: LET ¥-10 

2520 FOR J-C TO 2 

2530 LET Z-O(J): GOSUB 5500 

2540 IF VA>10 THEN LET VA-10 

2545 FOB K-C TO 2: LET U(K)-W(K 
)+UA: NEXT K 

2546 IF UA-C AND AF-B THEN LET 
W(2)-W(2>+10: LET AF-C 

2550 LET X-X+6: NEXT J 
2560 IF W(2)=21 THEN PHINT PA 
PER 2; INK 7; AT 14,18;" NATURAL 
! " ; AT 15,16;" A BANCA GANHA ": 

LET DPF-C: GOTO 2000 
2600 IF PF-C THEN GOTO 2720 
2610 PAUSE 75 

2630 IF U(C)>21 THEN PRINT PA 

PER C; INK 7 ; AT 21, B;" A BANCA 

ESTOURA! " ; : GOTO 2740 

2635 IF W(2)>21 THEN LET W(2)= 

W(C) 

2640 IF UI2X16 THEN GOTO 2800 
2650 IF FF-C THEN GOTO 2B00 

2660 LET PP=(W(2)-8)/13 

'670 IF PR<RND THEN GOTO 2800 

:700 IF W{2)>21 THEN LET WI2)- 




WÍC) 

2710 IF W(2)-21 THEN PRINT AT 
20, B;" A BANCA PAGA SOMENTE NAT 
URAIS E MAOS DE CINCO": GOTO 
2000 

2720 PRINT PAPER 2 ; AT 21, B;" A 

BANCA OBTEVE ";U(2)+C; 
2725 IF S(2)>21 THEN LET S(2)- 

S(C) 



2800 LET Z-C(CC): GOSUB 5500 
2805 IF VAMO THEN LET VA-10 
2810 FOR K-C TO 2: LET W(K)-W{K 
)+VA: NEXT K 

2820 IF VA-C AND AF-B THEN LET 

W(2)=U(2}+10: LET AF=C 
2822 IF y(l)<22 AND X=25 THEN 
PRINT PAPER 2; INK 7;AT 21, B;" 

MAC- DE CINCO! ": GOTO 2000 
2825 GOSUB 7000 
2830 LET X-X+6: GOTO 2610 

A linha 2500 provoca um segundo de 
pausa e, então, o programa inicia a jo- 
gada da banca. A 2510 coloca zero no 
sinalizador de naturais e no sinalizador 
de ases da banca, e acerta as coordena- 
das da primeira carta. 



DISTRIBUIÇÃO DAS CARTAS 



As duas cartas iniciais são "viradas" 
peio FOR... NEXT entre as linhas 2520 
e 2550; a linha 2530 mostra as cartas. 
A 2540 atribui o valor dez as cartas de 
figuras, antes que a 2545 some seu va- 
lor com o total da banca (dois totais, se 
houver um ás). A 2546 soma dez a W(2), 
se uma das cartas for um ás, e coloca 
1 no indicador de ases. A linha acerta 
a posição da próxima carta. 

A linha 2560 verifica se foi obtido um 
natural, anunciando a vitória da banca, 
se for o caso. O indicador de naturais 
da banca passa a valer 1. Se o jogador 
também tem um natural — linha 2600 
— , o programa vai à rotina que cuida 
das mensagens: "quem tem o que" e 
"quem venceu". Após a pausa da linha 
2610, a linha 2630 verifica se a banca es- 
tourou; em caso afirmativo, surge a 
mensagem A BANCA ESTOUROU. A 
linha 2635 verifica se o maior dos totais 
— quando há um ás — excedeu 21. O 
programa só considera o menor total. 
Se a banca tiver menos de 16 pontos, a 
linha 2800 vira outra carta. 



As linhas 2660 e 2670 decidem se a 
banca quer outra carta. Não há regra fi- 



xa para isso. Não vale a pena impor um 
limite acima do qual a banca não pede 
mais cartas, pois ela se tornará previ- 
sível e o jogador logo saberá como 
derrotá-la. É necessário introduzir um 
fator de incerteza (como fazemos aqui), 
que torne impossível prever quando a 
banca vai parar de pedir cartas. 

Para isso, o programa deverá fazer 
o computador se comportar de manei- 
ra semelhante a um ser humano. 
Coloque-se no lugar da banca: tendo um 
total de 20 pontos, você se sentiria me- 
nos inclinado a pedir outra carta do que 
se tivesse 16. Quando o computador 
compara PR com um número randômi- 
co, introduz-se um fator de incerteza e, 
ao mesmo tempo, a decisão passa a de- 
pender do valor da mão da banca. 



A linha 2700 troca o valoi de W(2) pe- 
lo de WU), se W(2) contiver mais de 2 1 . 
Se a banca conseguir 21 pontos, a linha 
2710 imprime na tela a mensagem A 
BANCA PAGA SOMENTE NATU- 
RAIS E MÃOS DE CINCO. Caso pos- 
sua uma mão inferior a 21 , a linha 2720 
escreve A BANCA OBTEVE, seguido 
de um valor um ponto mais alto que o 
total alcançado pela banca. 

A linha 2730 compara o total do jo- 
gador com o da banca. Quando esta 
vence, a linha 2730 informa o fato; ca- 
so contrário, a linha 2740 anuncia a vi- 
tória do jogador e calcula o novo total 
de fichas. 

A parte final do programa — linhas 
2800 a 2830 — cuida da distribuição das 
cartas da banca. 

A linha 2805 atribui dez pontos às 
cartas de figura. O valor da carta é so- 
mado ao de W(l) e W(2) na linha 2810. 
Se houver um ás, à linha 2820 cabe exe- 
cutar as alterações necessárias antes que 
a linha 2822 verifique se se conseguiu 
uma mão de cinco. A linha 2825 ajusta 
o monte de cartas, preparando uma no- 
va distribuição. A linha 2830 calcula a 
posição onde a carta vai ser desenhada. 



Apague o GOTO 86 do final da linha 
650 e adicione as linhas seguintes; 

500 GOSUB 4000:GOTO 540 
510 CX-CX+32:GOSUB 3500:NC-NC+1 
530 IF DL>21 THEN 620 
540 DT-DL+10MDA AND ( DL< 1 2 ) ) : IF 
DT-21 AND NC-2 THEN GOSUB 5000 
:PRINTIL.-A BANCA TEM UM NAT UB A 
L-:GOSUB 5500:GOTO 610 
550 IF NC-5 THEN GOSUB 5000:PBIf' 




Illll 
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NT#1,"A BANCA TEM UMA MAO DE Cl 

NCO":GOSUB 5500:GOTO 610 

560 B=20-DT:IF RND < ] ) *I 00<R*R*R 

OR DT<16 OH PS- 1 THEN 510 
570 GOSUB 5000:IF P5=l THEN PRI- 
NTtl."VOCE TEM UMA MAO DE CINCO 
■ ELSE PRINTU,"Voc8 tem" ; PT 
580 GOSUB 5500:GOSUB 5000:PRESE 
T (8, 80) :PRINT|1 . "A banca paga 3 
omente- ; : PRESET (8 . 92) : IF DT<21 
THEN PRINTI1, "totais maiores ou 

iguais a";DT+l ELSE PRINT#l,"n 

590 GOSUB 5500:IF P5-1 THEN 630 

600 IF DT<PT THEN 630 

610 GOSUB 5000:PRINT#1,"A banca 

venceu" : GOSUB 5500:GOTO 690 
6Z0 GOSUB 5000 : PB INT# 1 . "A banca 

estourou. Você venceu" : GOSUB 5 
500:GOTO 640 

630 GOSUB 5000:PRINTI) , "Você ve 
nceu" tGOSUB 5500 

640 MN-MN+2*BT:GOSUB 5000:GOSUB 

7000:GOTO 700 
650 GOSUB 5000:PRINT#1 ,"VOCE TE 
M UM NATURAL" : PF=1 : GOSUB 5500 
660 GOSUB 4000:TF DL-U THEN GO 
SUB 500 0 : PRINTI ] , "MAS A BANCA T 
EM UM TAMBÉM" -GOSUB 5500:GOTO 6 
10 

67fl GOTO 630 

690 IF MN<1 THEN GOSUB 5000:PRI 
NT*l."Snas fichas acabaram" :GOS 
UB 5500:GOTO 790 

700 IF PF- 1 THEN GOSUB 5000:PRI 
NT|1 . "Embaralhando as cartas" :G 
OSUB 550Í):GOSUB 1500:GOTO 750 
710 NF-N-X:IF NA>N THEN NF-N+51 
720 FOR X-NF TO NA+1 STEP -i:Q- 
INT((X-NA)+NA) :T=SQ(X) :SQ<X)-SQ 
(Q) : SQ (Q) -T : NEXT : IF NA>N THEN 7 
40 

730 FOR X-0 TO 9:SQ(X+52)-SQ(X) 
: NEXT: GOTO 750 

740 FOR X-0 TO 9:SQ(X)-SQ(X*52) 
: NEXT 

790 GOSUB 5000 :PRINT»I , "Quer jo 

gar novamente (S/N) ?" : CLOSE1 

BOO AS-TNKEYS : IF AS<>"N" AND AS 

<>"N" THEN 800 

810 IF A5-"S" THEN RUN 

820 COLOR 15,4,4:END 

3500 GOSUB 1000:GOSU8 2000:IF N 

M=l THEN DA-1 

3510 IF NM>10 THEN DL-DL+10 ELS 
E DL=DL+NM 
3520 RETURN 

4000 NN=N:N=D1:CX=3) ;CY-105:GÕ5 
UB 3500 

4010 N-D2 :CX-63:G0SUB 3500:N-NN 
4020 NC»2 : RETURN 

Antes da banca jogar, vêem-se na te- 
la a mão do jogador e as duas cartas da 
banca fechadas. A banca abre, então, 
suas cartas — a linha 500 chama a sub- 
rotina 4000. Esta abre a primeira carta, 
chamando inicialmente outra sub- 
rotina, da linha 3500, que cuida do de- 
senho das cartas e calcula os pontos da 
e banca. Na linha 4010 a segunda carta é 
I aberta, chamando-se a sub-rotina nova- 



mente, depois que a posição horizontal 
da carta foi modificada. O número da 
carta é atualizado e a sub-rotina termi- 
na na linha 4020. 

A linha 5 10 muda e acerta a posiçâd 
horizontal da carta seguinte e chama a 
sub-rotina da linha 3500. Assim , a ban- 
ca recebe uma nova carta. A linha 530 
verifica se a banca ultrapassou 21 pon- 
tos; a linha 620 avisa o jogador, se for 
o caso. Se a banca conseguiu um natu- 
ral, o indicador de naturais da banca 
passa a valer 1 e o jogador recebe uma 
mensagem. A linha 550 detecta mãos de 
cinco. 



AS DECISÕES DA BANCA 



A parte mais interessante do progra- 
ma está na linha 560, que faz o compu- 
tador decidir se quer ou não mais car- 
tas. Seria mais fácil que a máquina pa- 
rasse de pedir cartas quando atingisse 
um determinado total — 19, por exem- 
plo. Porém, seria igualmente fácil para 
o jogador derrotar a banca, uma vez que 
soubesse do fato. É necessário, portan- 
to, introduzir um fator de incerteza na 
decisão do computador, tomando-a im- 
previsível. Isso não significa que se de- 
•va programar uma estratégia suicida — 
fazendo, por exemplo, com que a ban- 
ca habitualmente peça mais cartas, já 
tendo 20 pontos. 

Criamos, então, uma variável R, 
igual a 20, menos os pontos da banca. 
A seguir, um número qualquer entre 0 
e 100 é escolhido ao acaso e comparado 
com R*R*R. Se o número for menor, 
se a banca tiver menos de 16 pontos ou 
se o jogador conseguir uma mão de cin- 
co, o computador pede mais uma car- 
ta. O modo como calculamos R faz a 
chance da banca pedir mais cartas dimi- 
nuir à medida que seu total de pontos 
aumenta. Raramente ela pedirá mais 
cartas já tendo 19 pontos, mas quase 
sempre o fará quando ainda tiver 16. 

Usando o mesmo raciocínio e modi- 
ficando um pouco a linha 560, pode- 
mos, além de variar a dificuldade do jo- 
go, fazer com que a banca jogue 
baseando-se também nas cartas abertas 
do jogador, por exemplo. 



A linha 570 mostra o valor da mão 
do jogador, apontando a ocorrência de 
uma mão de cinco, se for o caso. A li- 
nha 580 indica as mãos que vencem a 
banca. Se o jogador tiver uma mão de 
cinco e a banca não, a linha 590 exibe 
a mensagem VOCÊ VENCEU. De mo- 




do semelhante, a linha 600 compara os 
totais do jogador e da banca, informan- 
do o resultado através da linha 610 ou 
da linha 630. 

Quando o jogador vence, a linha 640 
acrescenta as fichas ganhas às que o jo- 
gador já tinha. Sempre que alguém con- 
segue um natural, as cartas são emba- 
ralhadas. A linha 700 verifica o indica- 
dor de naturais e as linhas 710 a 740 em- 
baralham as cartas. 

Após o anúncio de que o jogador con- 
seguiu um natural, a linha 660 verifica 
se a banca obteve o mesmo tipo de mão. 
Em caso afirmativo, vence a banca e a 
linha 610 indica o resultado. Se o joga- 
dor ganhar, caberá à linha 670 informar 
o fato. 

Quando se acabam as fichas do jo- 
gador, a Unha 690 diz VOCÊ PERDEU 
TODAS AS FICHAS. 

Finalmente, uma pequena rotina (li- 
nhas 790 a 820) oferece ao jogador a op- 
ção de jogar novamente. 
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Apague o GOTO 190 do fim da linha 
650 e acrescente as linhas seguintes. 

500 GOSUB 4000: GOTO 540 

510 CX » CX + 54: GOSUB 3500:NC 

- NC + 1 
520 FOR K - 1 TO 1700: NEXT K 
530 IF DL > 21 THEN 620 
540 DT ■ DL + 10 * (DA AND (DL 
< 12))! IF DT = 21 AND NC - 2 T 
HEN TEXT : HOME : PRINT "A BAN 
CA TEM UM NATURAL" : PF - 1: GOTO 

610 

550 IF NC = 5 THEN TEXT : HOM 
E : PRINT "A BANCA TEM UMA MAO 
DE CINCO" : GOTO 610 
560 R - 20 - DT: TF RN D (l) * 
100 < R * R * R OR DT < 16 OR P 
5-1 THEN 510 

570 TEXT : HOME : IF P5 - 1 TH 

EN PRINT "UOCE TEM UMA MAO DE 

CINCO" : GOTO 580 

575 PRINT : PRINT "VOCÊ TEM 

PT 



600 
610 
HOU" 
620 



580 PRTNT : PR TNT "A BANCA PAG 
A " j : IF DT < 21 THEN PRINT "V 
ALORES MAIORES OU IGUAIS A * ; DT 

+ 1: GOTO 590 
585 PRINT "NATURAIS E MAOS DE 
CINCO APENAS" 

590 FOR K - 1 TO 500: NEXT : I 
F P5 « 1 THEN 630 

ÍF DT < PT THEN 630 
PRINT : PRINT "A BANCA GAN 

GOTO 690 
TEXT : HOME : PRINT "A BAN 
CA ESTOUROU . UOCE GANHOU": GOTO 
640 

630 PRTNT ! PRINT "UOCE GANHOU 

640 MN - MN + 2 * BT: GOTO 700 
660 GOSUB 4000: HOME : TEXT : 
IF DL - 11 THEN PRINT "MAS A B 
ANCA TEM A MESMA COISA" : GOTO 6 
10 

670 GOTO 630 

690 PRINT : IF MN < 1 THEN PR 
INT "VOCE PERDEU TODAS AS FICHA 
S" : GOTO 790 

700 IF PF = 1 THEN PRINT : PR 
INT "EMBARALHANDO AS CARTAS": G 



N THEN 



NF ■ 



51 



FOR X - NF TO NA + 1 STEP 
- 1 :Q - INT ( RND (1) * {X - 
NA)) + NA: T - SQ(X):SQ(X) - SQ ( 
Q)-.SQ(Q) - T: NEXT : IF NA > N 
THEN 740 

730 FOR X - 0 TO 9:SQ(X + 52) 
- SQ(X): NEXT : GOTO 750 
740 FOR X - 0 TO 9:SQ{X) - SQ ( 
X + 52) : NEXT 

790 PRINT : PRINT "QUER JOGAR 

NOUAMENTE (S/N) ?" 

800 GET AS: IF AS < > "S" AND 

AS < > "N" THEN 800 
810 IF AS - *S" THEN 150 
820 END 

3500 POKE - 16299,0: POKE - 
16304.0: GOSUB 1000: GOSUB 2000 
: IF HM " 1 THEN DA - 1 
3510 IF NM > 10 THEN DL - DL + 

10: GOTO 3520 
3515 DL - DL + NM 
3520 RETURN 

4000 NN - N:N = D1:CX • 6 : CY - I 
100: GOSUB 3500 
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4010 N - D2:CX - 60: GOSUB 3500 

:N - NN 

4020 FOR K - 1 TO 3500: NEXT : 

NC - 2: RETURN 

Como o programa completo é muito 
extenso, utilizamos a página gráfica 2. 
Nunca use a página 1 , pois o programa 
será danificado. 

Quando a vez de jogar passa à ban- 
ca, as cartas do jogador e as duas car- 
tas fechadas do adversário aparecem na 
tela. A banca, em primeiro lugar, abre 
suas cartas — a Unha 500 chama a sub- 
rotina 4000, que abre a primeira carta 
da banca chamando outra sub-rotina, 
da Unha 3500. Esta sub-rotina liga o mo- 
do gráfico da página 2, sem apagar seu 
conteúdo, desenha a carta e calcula o to- 
tal de pontos. A linha 4010 abre a se- 
gunda carta, que chama a mesma sub- 
rotina após ter modificado a posição ho- 
rizontal da carta. O número da carta è 
atualizado e a sub-rotina termina na li- 
nha 4020. 

A linha 510 calcula a posição hori- 
zontal da nova carta e volta a chamar 
a sub-rotina 3500. Assim, a banca rece- 
be mais uma carta. A linha 520 provo- 
ca uma pausa antes que a tinha 530 ve- 
rifique se a banca não ultrapassou os 21 
pontos — a linha 630 informa o fato, 
se necessário. A linha 540 verifica se a 
banca obteve um natural; em caso afir- 
mativo, coloca 1 no indicador de natu- 
rais e exibe uma mensagem na tela. A 
linha 550 detecta uma mão de cinco. 



AS DECISÕES DA BANCA 



A parte mais interessante do pro- 
grama está na linha 560, que faz o com- 
putador decidir se quer ou não mais 
cartas. Seria mais fácil programar a 
máquina de modo que parasse de pedir 
cartas sempre que atingisse um deter- 
minado valor — 19, por exemplo. Mas 
seria igualmente fácil para o jogador 
derrotá-la, uma vez que tivesse conhe- 
cimento dessa estratégia inflexível. É ne- 
cessário introduzir no programa um ele- 
mento de acaso, que torne as decisões 
da banca imprevisíveis. Não devemos, 
porém, programar o computador com 
uma estratégia suicida — que faça a 
banca pedir sempre mais cartas, já ten- 
do 20 pontos, por exemplo. 

Criamos, assim, uma variável R, 
igual a 20, menos o total de pontos da 
banca. Um número qualquer entre 0 e 
100 é escolhido e comparado com 
R*R'R. Se o número for menor, se a 
banca tiver menos de 16 pontos ou se o 
g jogador conseguir uma mão de cinco, o 
í computador pede mais uma carta. A 



maneira como calculamos R faz com 
que a chance da banca pedir cartas di- 
minua a medida que seu total de pon- 
tos aumenta. Raramente ela pede mais 
uma carta já tendo 19 pontos, mas quase 
sempre o fará quando ainda tiver 16. 



A linha 570 mostra o total de pontos 
do jogador. A linha 575 indica uma mão 
de cinco. As linhas 580 e 585 informam 
quais os tipos de mão que a banca está 



Se o jogador tiver uma mão de cinco 
e a banca não, a linha 590, após uma 
pequena pausa, exibe na tela VOCÊ 
GANHOU. De modo semelhante, a li- 
nha 600 compara os totais do jogador 
e da banca; o resultado é dado pelas li- 
nhas 610 ou 630, dependendo do 
vencedor. 

Quando o jogador ganha, a Unha 640 
acrescenta as fichas obtidas às que ele 
já possuía. Sempre que alguém conse- 
gue um natural, as cartas são embara- 
Ihadas. A linha 700 verifica o indicador 
de naturais e as linhas 710 a 740 emba- 
ralham as cartas. 

A linha 660 entra em ação quando o 
jogador obtém um natural, verificando 
se a banca conseguiu a mesma coisa — 
neste caso, a banca ganha e o progra- 
ma segue na linha 610. Caso contrário, 
a 670 informa a vitória do jogador. 

A linha 690 avisa que as fichas do jo- 
gador acabaram. 

Finalmente, as linhas 790 a 820 
oferecem-Ihe a opção de jogar outra vez. 



O programa completo é tão extenso 
que invade a primeira página — MA — 
da tela do TK-2000. Assim, para con- 
cluir o programa, as partes anteriores 
devem ser carregadas na página dois. 
Digite MP antes de carregar o programa 
— incompleto ou depois de terminado. 
Nunca volte à MA. 

As alterações que os usuários do 
TK-2000 devem fazer para completar 
seu jogo são as mesmas do Apple, com 
exceção das seguintes linhas (não se es- 
queça de apagar o GOTO 190 do final 
da linha 650): 

540 DT - DL + 10 * (DA AND (DL 
< 12)): IF DT - 21 AND NC - 2 T 
HEN GOSUB 5000: PRINT "A BANCA 

TEM UM NATURAL" : PF - 1: GOSUB 
6000: GOTO 610 

550 IF NC - 5 THEN GOSUB 5000 
: PRINT "A BANCA TEM UMA MAO DE 

CINCO": GOSUB 6000: GOTO 610 
570 GOSUB 5000: IF P5 - 1 THEN 



PHINT "VOCE TEM UMA MAO DE Cl 
NCO" : GOSUB 6000: GOTO 580 
575 GOSUB 5000: PRINT "VOCE TE 
M " ;PT: GOSUB 6000 
580 GOSUB 5000: PRINT "A BANCA 

PAGA ":: IF DT < 21 THEN PRIN 
T "VALORES MAIORES OU IGUAIS A 
":DT + 1: GOSUB 6000: GOTO 590 
585 PP.INT "NATURAIS E MAOS DE 
CINCO APENAS": GOSUB 6000 
610 GOSUB 5000: PRINT "A BANCA 

GANHOU": GOSUB 6000: GOTO 690 
620 GOSUB 5000: PRINT "A BANCA 

ESTOUROU. VOCE GANHOU" : GOSUB 
6000: GOTO 640 

630 GOSUB 5000: PRINT "VOCE GA 
NHOU" : GOSUB 6000 
660 GOSUB 4000: GOSUB 5000: IF 
DL = 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA COISA" : GOSUB 60 
00: GOTO 610 

690 GOSUB 5000: IF MN < 1 THEN 
PRINT "VOCE PERDEU TODAS AS F 
1CHAS": GOSUB 6000: GOTO 790 
700 IF PF - 1 THEN PRINT "EMB 
ARALHANDO AS CARTAS": GOSUB 150 
0: GOSUB 6000: GOTO 750 
790 PRINT "QIIEP, JOGAR NO V AME NT 
E (S/N) ?" 

3500 GOSUB 1000: GOSUB 2000: I 
F NM - 1 THEN DA - 1 
4000 NN - N:N - D1:CX - 6:CY » 
110: GOSUB 3500 

Você precisará, portanto, recorrer à 
listagem do Apple para fazer as demais 
modificações. 

As diferenças entre o programa do 
TK-2000 e do Apple devem-se à ausên- 
cia de uma página exclusiva para textos 
no primeiro computador. Assim, as 
mensagens têm que ser impressas na pá- 
gina gráfica. 

As explicações sobre o funcionamen- 
to do programa são as mesmas, com 
uma exceçâo: na linha 3500 não ligamos 
a tela de alta resolução como no Apple, 
pois nunca saímos dela. 




um 
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Antes de acrescentar as linhas seguin- 
tes, apague o GOTO 190 do final da li- 
nha 650. 

500 GOSUB 4000 .-GOTO 540 

510 CX-CX+50 :GOSUB 3500 : NC-NC+1 

520 FOR K-l TO 1725:NEXT 

530 IF DL>21 THEN 620 

540 DT-DL+10*<DA AND (DL<12) ) : IF 
DT-21 AND NC-2 THEN CLS:PRINT" 
A BANCA TEM UM NATURAL" : PF-1 : G 

OTO 610 

550 IF NC-5 THEN PRINT" A BANCA 
TEM UMA MAO DE CINCO" : GOTO 610 
560 R»20-DT:IF RND [100 )<fl*R*R O 
R DT<16 OR P5-1 THEN 510 
570 CLS:IF P5-1 THEN PRINT" VOC 
E TEM UMA MAO DE CINCO" ELSE PR 
INT- VOCE TEM"; PT 
580 PRINT" A BANCA PAGA" ; : IF DT 
<21 THEN PRINT DT+1 ELSE PRINT 
" SOMENTE NATURAIS E MAOS DE 
CINCO" 

590 FOR K-l TO 500:NEXT:IF P5-1 

THEN 630 
600 IF DT<PT THEN 630 
610 PRINT" A BANCA GANHA" : GOTO 

690 

620 CLS: PRINT" A BANCA ESTOUROU 

. VOCE GANHA" i GOTO 640 

630 PRINT " VOCE GANHOU DA BANC 

A" 

640 MN=MN+2*BT : GOTO 700 

660 GOSUB 4000 :IF DL-11 THEN PR 

INT: PRINT" MAS A BANCA OBTEVE O 

MESMO VALOR": GOTO 610 
670 GOTO 630 

690 PRINT:IF MN<1 THEN PRINT " 
VOCE PERDEU TODAS AS FICHAS" : GO 
TO 790 

700 IF PF-1 THEN PRINT : PRINT" A 

BANCA EMBARALHA AS CARTAS 
APOS OBTER O NATURAL" : GOSUB 150 
0-GOTO 750 

710 NF=N-1:IF NA>N THEN NF-N+51 
720 FOR X-NF TO NA+1 STEP-1 :Q-R 
ND(X-NA)+NA-1:T-SQ(X) :SÇj(X)-SQ( 



Q) : SC (Q) =T : NEXT : IF NA>N THEN 74 
0 

730 FOR X-0 TO 9 : SO (X+52 ) =SQ (X) 
: NEXT: GOTO 750 

740 FOR X-0 TO 9 : SQ (Xí -St) (X + 52) 
: NEXT 

790 PRINT : PRINT" QUER RECOMEÇAR 
(S/N) 7" 

800 AS"INKEYS:IF ASO"S" AND AS 
<>"N" THEN 800 

810 IF A3-"S" THEN CLS:GOTO 170 
820 END 

3500 SCREEN 1,1: GOSUB lOOOrGOSU 

B 2000 :IF NM-1 THEN DA-1 

3510 IF NM>10 THEN DL-DL+10 ELS 

EDL-DL+NM 

3520 RETURN 

4000 NN-N:N-D1:CX-6:CY-106:GOSU 
B 3500 

4010 N-D2:CX-56:G0SUB 3500:N-NN 
4020 FOR K-l TO 2000 :NEXT : NC-2 : 
RETURN 

Quando a vez de jogar passa à ban- 
ca, vêem-se na tela a mão do jogador e 
as duas cartas fechadas de seu adversá- 
rio eletrônico. A banca, em primeiro lu- 
gar, abre suas duas cartas — a linha 500 
chama a sub-rotina 4000, que abre a pri- 
meira carta chamando outra sub-rotina, 
na linha 3500. Esta liga a tela de alia re- 
solução, desenha a carta e calcula os 
pontos. A segunda carta é aberta pela 
Unha 4010, que chama a mesma sub- 
rotina após ter modificado a posição ho- 
rizontal da carta. O número da carta é 
ajustado e a sub-rotina termina na linha 
4020. 

A linha 510 calcula a posição hori- 
zontal da nova carta e chama a sub- 
rotina da linha 3500. Assim, a banca re- 
cebe mais uma carta. A linha 520 pro- 
voca uma pausa antes que a 530 verifi- 
que se a banca tem mais de 21 pontos 
— a linha-620 informa o fato, se neces- 
sário. A linha 540 verifica se a banca 
conseguiu um natural; em caso afirma- 




tivo, coloca 1 no indicador de naturais 
e exibe uma mensagem na tela. Mãos de 
cinco são detectadas pela linha 550. 

A parte mais interessante do progra- 
ma está na linha 560, que faz o compu- 
tador decidir se quer ou não mais car- 
tas. Seria mais fácil programar a máqui- 
na de maneira que ela parasse de pedir 
cartas quando atingisse um determina- 
do valor — 19, por exemplo. Mas seria 
igualmente fácil para o jogador derrotá- 
la, uma vez que tivesse conhecimento 
dessa estratégia de jogo. Por isso, é ne- 
cessário introduzir no programa um ele- 
mento de acaso, que torne as decisões 
da banca imprevisíveis. Por outro lado, 
não podemos munir o programa de uma 
estratégia suicida, que faça, por exem- 
plo, com que a banca frequentemente 
peça mais cartas, já tendo obtido 20 
pontos. 

Criamos, assim, uma variável R, 
igual a 20, menos o valor da mão da ban- 
ca. O programa escolhe ao acaso um nú- 
mero entre 1 e 100 e o compara com 
R*R*R. Se o número for menor, se a 
banca tiver menos de 16 pontos ou se o 
jogador conseguir uma mão de cinco, a 
banca pede mais uma carta. A maneira 
como calculamos R faz com que a chan- 
ce da banca pedir cartas diminua à me- 
dida que seu total de pontos aumenta. 
Raramente ela pedirá mais cartas tendo 
já 19 pontos, mas quase sempre o fará 
quando tiver apenas 16. 



A linha 570 mostra o total de pontos 
do jogador ou indica uma mão de cin- 
co. A linha 580 informa quais os tipos 
de mão a banca vai pagar. 

Se o jogador obteve uma mão de cin- 
co e a banca não, a linha 590 exibe na 
tela a mensagem VOCÊ GANHOU. De 
modo semelhante, a linha 600 compara 
os totais do jogador e da banca; o re- 
sultado é dado pelas linha 610 ou 630, 
dependendo do vencedor. 

Quando o jogador ganha, a linha 640 
acrescenta as fichas obtidas às que ele 
possuía. Sempre que alguém obtém um 
natural, as cartas são em baralhadas pe- 
las linhas 710 a 740. A linha 700 verifi- 
ca o indicador de naturais. 

A linha 660 entra em ação quando o 
jogador consegue um natural, verifican- 
do se a banca conseguiu mão igual. Se 
a banca vencer, a linha 610 anuncia. Ca- 
so contrário, a linha 630 informa a vi- 
tória do jogador. 

A Unha 690 avisa que o jogador per- 
deu todas as fichas. 

Finalmente, as linhas 790 a 820 ofe- I 
recem-lhe a opção de jogar novamente. I 
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Todo tipo de programa que manipula 
dados pode se beneficiar com o uso 
de uma rotina de ordenação. Neste 
artigo mostramos três dos métodos 
mais empregados para esse fim. 




A ordenação é um dos aspectos fun 
damentais do processamento de infor 
mações. Os computadores são muito rá- 
pidos na manipulação de dados e a or- 
denação destes é um ponto importantís- 
simo para tornar a informação acessi 
vel à análise e correção. 

Imagine como seria difícil encontrar 
as referências a um determinado assun- 
to em um livro, sem o auxilio de um ín- 
dice. Ou procurar um número numa lis- 
ta telefónica sem que os nomes estives- 
sem em ordem alfabética. Estamos, nos 
dois casos, diante de listas de informa- 
ções, nas quais, ao contrário de uma lis- 
ta de compras, por exemplo, os itens são 
■ arranjados ou ordenados numa ordem 
I especifica: a alfabética. Em outros ca- 



sos — como na ordenação das notas de 
uma classe — , os itens estariam arran- 
jados em ordem numérica. 

Muitos tipos de programa fazem uso 
de rotinas de ordenação, inclusive os 
programas de jogos, que comparam pla- 
cares. Essas rotinas, porém, são mais 
co mu mente encontradas em programas 
que lidam com grande quantidade de 
dados, como os de controle de arquivos, 
mala direta etc. 



0 QUE E ORDENAÇÃO 



Ordenar é, simplesmente, colocar de- 
terminado conjunto de dados em uma 
ordem específica — algo como arru- 



mar as cartas de um baralho. 

A posição relativa de dois itens quais- 
quer em geral se baseia em uma supe- 
rioridade numérica ou alfabética de um 
sobre outro. 

Em ordenações numéricas, valores 
maiores vêm sucessivamente antes ou 
depois dos menores. Em ordenações al- 
fabéticas, as letras são colocadas, suces- 
sivamente, das mais próximas do início 
até as mais próximas do fim do alfabe- 
to, ou vice-versa. 

Pode-se também fazer ordenações em 
base alfanumérica, ou seja, levando-se 
em conta letras e números. Mas sempre 
haverá a prioridade de uns sobre outros 
— as letras quase sempre têm mais im- 
portância que os números. 
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■ 


0 QUE Ê ORDENAÇÃO? ■ 


AS ROTINAS DE SHELL 


■ 


ORDENAÇÃO TIPO BOLHA 


E SHELL-METZNER 


■ 


AS VANTAGENS DA ROTINA ■ 


COMO AUMENTAR 




DE ORDENAÇÃO 


A VELOCIDADE 




DE BUSCA BINARIA 


DE ORDENAÇÃO 




Em ordenação numérica, em geral o 
número 1 lem prioridade, enquanto a le- 
tra A assume o primeiro lugar na orde- 
nação alfabética. Mas para fins espe- 
ciais isso pode ser invertido. 



A ORDENAÇÃO TIPO BOLHA 



A mais simples rotina para ordena- 
ção é a chamada ordenação tipo bolha. 
Você já viu um exemplo dela no artigo 
da página 292. Agora, examinaremos o 
processo em maior detalhe. Para acom- 
panhar o que acontece, use cartas de ba- 
ralho ou, então, recorte e numere alguns 
pedaços de papel. 

Coloque esse grupo de cartas (ou pe- 



daços de papel numerados) sobre uma 
mesa, com o três mais distante de você, 
na seguinte ordem: 

última [três] 
(sete) 
[dois] 
[seis] 

primeira [dez] 



Em uma ordenação tipo bolha, o pri- 
meiro valor — aqui, o dez — é compa- 
rado com o seguinte do conjunto, ha- 
vendo uma troca, se o valor deste for primeira 
menor (o que ocorre no nosso caso). O 
dez é então comparado com o dois, com 
o sete e com o três, mudando sempre de 
lugar, porque é o maior valor a cada 



comparação dois a dois. Poderíamos di- 
zer, usando uma imagem, que o dez 
"borbulhou" entre os outros valores, o 
que explica o nome desta rotina. Pelo 
mesmo raciocínio, valores baixos "bor- 
bulham" no sentido inverso. 

Assim, depois da primeira passagem, 
o arranjo das cartas ficou assim: 

Última [dez] 
[três] 
[sete] 
[dois] 
[seis] 



O processo reinicia com a nova pri- 
meira carta, o seis, que é, então, com- ■ 
parada e trocada com a anterior, visto | 
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que tem valor maior. Mas, em seguida, 
é comparada com o sete que, por sua 
vez, é maior. As comparações conti- 
nuam, então, com este valor, enquanto 
o seis fica na segunda posição. O sete 
é comparado com o três e depois com 
o dez, subindo apenas um posto, já que 
encontrou um valor maior. 

A nova ordem das cartas, após a se- 
gunda passagem, é a seguinte: 



primeira 



|dez] 
[sete] 
[seis] 
[três] 
[dois] 



última 



primeira 



[dez] 
[sete] 
[três] 
[seis] 
[dois] 



A primeira carta, o dois, é compara- 
da com a anterior. O seis ganha e fica 
na mesma posição. Comparado com o 
três, o seis troca de lugar com ele, mas 
ftca agora parado nesta posição, uma 
vez que é menor que o sete e o dez. A 
ordenação terminou, pois não há mais 
i trocas a se fazer. 

A ordem das cartas é, então: 



O computador faria uma última pas- 
sagem por essa nova ordem das cartas, 
para se certificar de que não há mais tro- 
cas a fazer, e só pararia se realmente não 
houvesse. 

Durante a execução da rotina um cer- 
to número de comparações e trocas foi 
feito. Essas duas operações estão incluí- 
das em qualquer rotina de ordenação. 
A diferença entre tais rotinas consiste 
apenas no número de operações que são 
executadas e, consequentemente, no 
tempo gasto. 

Vejamos agora outros exemplos, 
usando esta sequência de números: 



O primeiro da lista é o 67. Ele é com- 
parado e trocado com o 35, mas pára 
aí. O maior valor neste ponto é 72, que 
é comparado e trocado sucessivamente 
com 19, 47, 38, II, até que encontra o 
96; a rotina, então, recomeça a compa- 
ração desde o primeiro número. 

A lista abaixo mostra lodo o proces- 
so. Os itens submetidos a comparação 
estão entre parênteses. 



inicio 



fim 



67 35 72 19 47 38 11 96 



um 



OCRAMAãO 



Vejamos agora como se comporta a 
rotina de ordenação tipo bolha na for- 
ma de programa. Ela está colocada co- 
mo a sub-rotina 1000. 

Grave o programa para que possa 
adicionar outras rotinas mais tarde. 



10 POKE 23658,8: LET T-0,: 
IKPUT "NUME HO DE ITENS ";AA: 
IF AA<2 THEN GOTO 10 
15 DIM A(AA) 

20 PRINT ' ' * "TABELA DESOPDENA 

DA": PRINT 

30 FOR Z-l TO AA 

40 LET A(Z)-INT (HND«100)+1 

50 PBINT TAB T;A(Z):: LET T-T 

+4: IF T>30 THEN LET T-0 

60 NEXT Z 

70 PRINT : PBINT : PBINT "PRE 

SSIONE '0' PABA OBDENAB" 

80 LET KS-INKEYS: IF KS<>"0" 

THEN GOTO 80 

90 GOSUB 1000 

100 PBINT : PRINT "TABELA ORDE 

NADA* : PBINT 

110 LET T=0: FOR Z-l TO AA 
120 PBINT TAB T;A(Z):: LET T-T 
+4: IF T>30 THEN LET T-0 
130 NEXT Z 
140 GOTO 10 

999 BEM ORDENAÇÃO BOLHA IBUBBLE 
SORT) 

1000 FOB Z-l TO AA-1 

1010 LET 2Z-0 

1020 FOR Y-l TO AA-Z 

1030 IF A(Y+1]<A(Y) THEN LET X 

-A (Y) : LET A(Y)-A(Y+1): LET A (Y 

+1)-X: LET ZZ-1 

1040 NEXT Y 

1050 IF ZZ-0 THEN RETURN 
1060 NEXT Z: RETURN 

10 PBINT: PRINT : INPUT"NUMEBO DE 
ITENS" ; AA : I F AA<2 THEN 10 
15 DIM A (AA) 

20 PBINT : PRINT "TABELA DESORDENA 

DA" : PRINT 

30 FOR Z-l TO AA 

40 A(Z)-INT(RND(1)*100)+1 



50 PRINT A(Z) , 
60 NEXT Z 

70 PRINT:PRINT:PRINT"PBESSIONE 
'O' PABA ORDENAR" 
80 GET KS:IF K$O"0" THEN 80 
90 GOSUB 1000 

100 PRINT: PBINT :PRINT"TABELA OB 
DENADA" 

110 PRINT : FOR Z-l TO AA 
120 PRINT A(Z) , 
130 NEXT Z 
140 SUN 

999 REM ORDENAÇÃO BOLHAtBUBBLE 
SORT) 

1000 FOR Z-l TO AA-1 
1010 ZZ-0 

1020 FOR Y-l TO AA-Z 
1030 IF A(Y+1)<A(Y) THEN X-MY) 
:A(Y)-A(Y+1) :A(Y+1)-X:ZZ-1 
1040 NEXT Y 

1050 IF ZZ-0 THEN RETURN 
1060 NEXT Z: RETURN 

O programa acima roda apenas no 
Apple e no TK-2000. Faça as seguintes 
alterações para adaptar o programa à 
sua máquina: 



NT" TEMPO: *; TIMER/50 ; "SEGUNDOS 



QD 



40 A(Z)-RNDUOO) 
50 PRINT A(Z) ; 

80 KS-INKEY$:IF KS<>"0" THEN I 
120 PRINT A{Z) ; 



5 R-ftND(-TIME) 

80 KS-INKEYS :IF K$<>"0" THEN 80 
1030 IF A(Y+1)<A(Y) THEN SWAP A 
(Y) ,A(Y+1) :ZZ-1 

Execute o programa. Inicialmente, 
ele pedirá a quantidade de itens que vo- 
cê quer ordenar, criando um conjunto 
de números pseudo-randômicos baseado 
na sua resposta. Estes são mostrados na 
tela sob o título "TABELA DESORDE- 
NADA". Uma mensagem pede que vo- 
cê tecle '0' para iniciar a ordenação. 

A rotina começa a funcionar, con- 
cluindo a ordenação em cerca de um se- 
gundo, se os itens forem poucos. Em se- 
guida, o conjunto de números é exibi- 
do na tela. No artigo da página 292 vo- 
cê encontrará mais detalhes sobre esta 
rotina e verá também o algoritmo em 
forma de diagrama. 

Para que você possa comparar as di- 
versas rotinas, é interessante que crono- 
metre o tempo gasto em cada uma de- 
las. Incorpore a rotina seguinte ao pro- 
grama, a fim de que o computador fa 
ça isso para você. Os usuários do Ap 
pie II ou compatível precisarão utilizar 
o seu relógio... 



90 POKE 16920, 0:POKE 16919, 0:GO 
SUB 1000:PRINT"Te»Do:";PEEK(169 
20) í"m" ;PEEK (16919) ; "a" 



90 POKE 23672,0: POKE 23673,0 
: GOSUB 1000: PRINT : PRINT ( 
PEEK 23672+256*PEEK 23673)/50 
i" SEGUNDOS" 



u 



90 TIMER-0:GOSUB 1000 : PRINT : PRI 



Para iniciar a cronometragem e a or- 
denação, pressione '0' quando a men- 
sagem aparecer. O tempo gasto pela ro- 
tina para ordenar os dados é exibido e 
o programa recomeça automaticamente. 

Provavelmente você gastaria muito 
mais tempo do que a máquina para exe- 
cutar a mesma tarefa. Porém, pelos pa- 
drões computacionais, o tempo gasto 
pela ordenação tipo bolha é extrema- 
mente longo. Por essa razão, não se cos- 
tuma usá-la em sua forma original em 
programas de manipulação de dados, a 
não ser para listas muito pequenas. 

Mas veja que, surpreendentemente, 
ela se mostra mais veloz que todas as ou- 
tras quando se trata de reordenar uma 
lista à qual se adicionou um item. Em 
um programa que armazena endereços 
comerciais, por exemplo, podemos or- 
denar as novas entradas separadamen- 
te e depois incorporá-las à lista princi- 
pal. Outra alternativa é reordenar a lis- 
ta toda a cada nova entrada. 

Nessas circunstâncias, a rotina tipo 
bolha não faz nada mais que comparar 
o novo dado com os outros, até que sua 
posição correia seja encontrada. A reor- 
denação de uma lista equivale, assim, à 
comparação de dois itens. E isso é feito 
rapidamente. 



As duas versões mais utilizadas da ro- 
tina tipo bolha são as rotinas de Shell 
e de Shell-Metzner. Ambas devem ser 
consideradas quando o número de itens 
a serem ordenados ultrapassa a casa dos 
dez. 

A rotina de Shell emprega uma téc- 
nica de busca binária que funciona di- 
vidindo sucessivamente a lista original 
ao meio, até que a posição do item em 
questão seja encontrada. A cada divi- 



um 
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são, um novo par de valores e compa- 
rado. A rotina termina quando faz uma 
passagem completa sem trocas. 

Uma rotina de Shell tem, tipicamen- 
te, a forma mostrada aqui. Adidone-a 
ao seu programa e mude o número do 
GOSUB da linha 90 para testá-la. 



1999 BEM ORDENAÇÃO SHELL 

2000 LET Z-AA 

2010 TF ZOl THEN RETURN 

2020 LET Z-INT <Z/2) : LET Y=AA- 

Z 

2030 LET ZZ-0 
2040 FOR X*1 TO Y 
2050 LET XX-X+Z 

2060 IF A(X)>A(XX) THEN LET YY 
-A(X): LET A(X)=A(XX): LET AIXX 
)=YY: LET ZZ=1 
2070 NEXT X 

2080 IF ZZ>0 THEN «OTO 2030 
7090 GOTO 2010 

OHM [UE] 

1999 P.EM ORDENAÇÃO SHELL 

2000 Z-AA 

2010 IF Z<-1 THEN RETURN 

2020 Z-INT(Z/2) :Y-AA-Z 

2030 ZZ-0 

2040 FOR X-l TO Y 

2050 XX-X+2 

2060 IF A(X)>A[XX) THEN YY-A (X) 
:A(X)-A(XX) :A<XX)-YY:Z2-1 
2070 NEXT X 

20B0 IF ZZ>0 THEN 2030 
2090 GOTO 2010 




PARA UMA ORDENAÇÃO MAIS RÁPIDA 

A velocidade de qualquer rotina de 
ordenação aumenta muito quando a in- 
formação é oferecida já se mi -ordenada. 
Isso é importante sobretudo no caso da 
ordenação tipo bolha. 

Se os itens vão ser ordenados cro- 
nologicamente, por exemplo, deve- 
mos armazenar as datas na forma 
ANO/MÊS/DIA, em vez da mais usual 
D IA /MÊS /ANO. Dessa maneira, aplica- 
se a ordenação inicialmente ao grupo 
completo e, depois, aos subgrupos. 

O processo seria muito mais demo- 
rado se ordenássemos inicialmente os 
dias, para depois reordenar alguns da- 
dos em função dos meses, repetindo 
finalmente todo o trabalho em função 
dos anos. 

Uma sub rotina adicional poderia ser 
usada para inverter a sequência usual 
de entrada da data para uso da rotina 
de ordenação. 



Se o seu micro é da linha MSX, mu- 
de a linha 2060 para: 
2060 IF A(X)>A(XX] THEN SWAP A{ 
X) ,A{XX) :ZZ = 1 

Para melhor compreender o funcio- 
namento da rotina, vamos examinar em 
detalhe um exemplo. Suponhamos que 
devemos ordenar uma lista de números 
apresentada nesta ordem: 

67 35 72 19 47 38 11 96 

A rotina divide a lista em duas ou- 
tras e compara o primeiro valor de ca- 
da uma delas. Se o primeiro valor da pri- 
meira lista é maior, ocorre uma troca. 
Neste exemplo, os valores 67 e 47 são 
comparados e trocados. 

47 35 72 19 : 67 38 II 96 

Após a troca, o par de valores seguin- 
te é comparado — 35 e 38. Nesse caso, 
não há troca. A rotina compara, então, 
72 e 11, trocando-os e, por fim, 19 e 
96, obviamente sem troca. A lista fica 
assim: 

47 35 11 19 : 67 38 72 96 

Neste ponto, cada metade é nova- 
mente dividida: 

47 35 : 11 19 : 67 38 : 72 96 

A rotina compara e troca o primeiro 
valor, 47, com o terceiro, 11. Depois, 
compara e troca o segundo, 35, com o 
quarto, 19. O 35 assume agora a quarta 
posição. O valor no terceiro posto, 47, 
que já foi trocado uma vez, é compara- 
do com 67. Desta vez não há troca. O 
quarto valor, 35, é comparado com 38 
e permanece onde está. O quinto valor, 
67, é comparado com o sétimo, 72, e fi- 
ca na mesma posição. Por fim, 38 e 96 
são comparados e não trocam de lugar. 

Veja abaixo a sequência. Como no 
exemplo anterior, os valores compara- 
dos estão entre parênteses. Verifique 
se, na linha seguinte, alguma troca foi 
efetuada: 

(47) 35 : (11) 19 : 67 38 : 72 96 
11 (35) : 47 (19) : 67 38 : 72 96 
11 19 : (47) 35 : (67) 38 : 72 96 
11 19. : 47 (35) : 67 (38) : 72 96 
11 19 : 47 35 : (67) 38 : (72) 96 
11 19 : 47 35 : 67 (38) : 72 (96) 
11 19 : 47 35 : 67 38 : 72 96 

A lista é, então, dividida da seguinte 
maneira: 

11 : 19 : 47 : 35 : 67 : 38 : 72 : 96 




Os valores são novamente compara- 
dos dois a dois. Como você pode obser- 
var, a rotina compara somente valores 
adjacentes: o primeiro com o segundo, 
o segundo com o terceiro, o terceiro com 
o quarto e assim por diante, até o fim 
da lista: 



47 : 35 : 67 : 38 : 72 :96 
(47): 35 : 67 : 38 : 72 :96 
(47):(35): 67 : 38 : 72 :96 
35 :(47):(67): 38 : 72 :96 
35 : 47 :(67):(38): 72 :96 
35 : 47 : 38 : (67) : (72) : 96 



A rotina faz o mesmo até os últimos 
valores, que já estão em ordem, e volta 
ao inicio: 

(11) : (19) : 35 : 47 : 38 : 67 : 72 :96 
11 : (19) :(35): 47 : 38 : 67 : 72 :96 
11 : 19 :(35):(47): 38 : 67 : 72 :96 



(11) 


09) 


11 


(19) 


11 


19 


11 


19 


1 1 


19 


11 


19 





11 



19 : 35 :(47):(38): 67 : 72 :96 
19 : 35 : 38 :(47):(67): 72 :96 



Embora a lista já esteja ordenada, o 
computador executa mais uma passa- 
gem completa. Cada novo valor pode 
agora ser comparado com essa lista co- 
mo o faz a rotina tipo bolha — isto é, 
estabelecendo comparações aos pares. 



A ROTINA OE SHELL-METZNER 



A rotina de ordenação de Shell- 
Metzner, derivada da rotina de Shell, é 
ainda mais rápida e utiliza o mesmo 
princípio de busca binária. 



2999 REM SHELL -MELTZNEH SORT 

3000 LET Z-AA 

3010 LET 2-INT (Z/Z) 



3020 IF Z-0 THEN RETURN 
.1030 LET Y-AA-2: LET ZZ-1 
3040 LET X-ZZ 
3050 LET XX=X+Z 

3060 IF A(XK-A(XX) THEN GOTO 
3090 

3070 LET W-A(X): LET AIXÍ-AIXX) 

: LET A(XX)-U: LET X=X"Z 

3080 IF X>-1 THEN GOTO 3050 

3090 LET ZZ-ZZ+1 

3100 IF 22<-Y THEN GOTO 3040 

3110 GOTO 3010 



2999 REM ORDENAÇÃO 'SHELL-METZN 
ER' 

3000 LET Z-AA 
3010 Z-INT(2/2) 

3020 IF Z-0 THEN RETURN 
3030 Y-AA-2:22-l 
3040 X-22 
3050 XX-X+Z 

3060 IF A{XX-A(XX) THEN 3090 



3070 W-A(X) :A(X)-A<XX) :A(XX)-W: 
X-X-Z 

3080 IF X>-1 THEN 3050 
3090 ZZ-ZZ+1 
3100 IF ZZÍ-Y THEN 3040 
3110 GOTO 3010 

Se você trabalha com um MSX, be- 
neficie-se de seu poderoso BASIC, tro- 
cando a linha 3070 para: 



30/0 iiWAP AÍX) ,A(XX) :X X-Z 

Adicione esta rotina ao seu programa 
de demonstração e para experimentá-lo 
será preciso modificar a referência de 
linha da linha 90. 

Como você vai notar, ela é muito 
mais rápida que as outras rotinas, o que 
fica evidente especialmente se a compa- 
ramos com a rotina tipo bolha para mais 
de cinquenta números. 
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Aventura que se preze, com reis, rai- 
nhas e castelos, não dispensa a partici- 
pação de um temfvel dragão. 

Não é difícil incluir esse personagem 
em seus jogos. Para criá-lo e dar-lhe ani- 
mação — fazendo com que cuspa fogo 
— , você pode utilizar as técnicas já vis- 
tas nos programas do sapo e do tanque, 
apresentados no artigo publicado à pá- 
gina 341. 



Para montar o "quadriculado" na 
memória do computador, usaremos o 
■ programa dado no artigo anterior. O 
| Apple, o TK-2000 e também o MSX não 



precisam desse tipo de programa. A lis- 
tagem para o Spectrum e o TRS-Color 
encontra-se naquele artigo. 

Depois de carregar — ou digitar — 
o programa criador de quadriculado, 
use RUN para fazê-lo funcionar. Quan- 
do o programa acabar de rodar, di- 
gite NEW e < ENTER > . (Nada dis- 
so se aplica ao MSX, ao Apple e ao 
TK-2000.) Em seguida, digite o progra- 
ma adequado para seu computador. 

Os usuários do Apple, do TK-2000 e 
do MSX precisarão carregar — ou digi- 
tar — o programa do tanque, pois as li- 
nhas apresentadas neste artigo são mo- 
dificações a serem feitas naquele progra- 
ma, e não funcionarão sozinhas. 



Em todos os computadores, exceto 
no MSX, use as teclas P, L, X e Z para 
mover o dragão. No MSX devem ser uti- 
lizadas as teclas do cursor. A barra de 
espaço faz o dragão cuspir fogo. 



10 FOR n-USR "a" TO USR "t"+7 
! READ a: POKE n,a: NEXT n 
20 LET print-32400: LET b- 
32402: IF PEEK 23733-255 THEN 
LET print-65200: LET b-65202 
90 BORDE H 7: PAPER 7: INK 4: 
CLS : PRINT AT 8.15;: RAND 
USR prmt 

100 LET y-8: LET x-15: LET yl- 

8: LET xl-15: LET Z-l 




Vimos, em artigo anterior, como 
desenhar e dar movimento a um tanque 
de guerra e a um sapo. Com as técnicas 
e programas já apresentados, desenhe 
também um dragão que cospe fogo. 



■ 


COMO COLOCAR UMA NOVA 


FIGURA NO QUADRICULADO 


■ 


MOVIMENTOS NA TELA 


■ 


FACA 0 DRAGÃO 


CUSPIR FOGO 



110 LET aS-INKEYS: IF aS-"" 

THEN GOTO 110 

115 IF a$-" " THEN GOTO 200 

1Z0 IF aS-"z" AND x>l THEN 

LET xl-X-1: LET Z-l 

130 IF aS-"x" AND x<28 THEN 

LET Xl-X+I: LET Z-2 

HO IF a$-"p" AND y>0 THEN 

LET yl-y-1 

150 IF aS-"l" AND y<19 THEN 
LET yl-y+1 

160 PBINT AT y.x;: POKE b.O: 

RAND USR prlnt 

170 LET X-xl: LET y-yl 

180 PRINT AT y.x;: POKE b.z: 

RAND USR prlnt 

190 GOTO 110 

200 IF Z-2 THEN GOTO 300 

220 PRINT INK 6;AT y,X-l;CHRS 



162 

230 PAUSE 1 

240 PRINT AT y,x-l;" " 

260 GOTO 110 

300 PRINT INK 6-.AT y,x+3;CHR$ 
163 

310 PAUSE 1 

320 PRINT AT y.x+3;" " 
330 GOTO 110 

1000 DATA 6,214.249,63,240,0,3, 

15,96,64,192,224.224,192.196,20 

4,0,0,0,0,0.0,0,0 

1010 DATA 63,125.107.245.249.12 

7.127.51.244,196,194,255,126,19 

2,224,240,0.0,0,2,6.14,6,10 

1020 DATA 55,23,7,3,1,0,4.7,254 

.255.239.239,224,192,128,128,56 

,240,192,0,0,0,0,0 



1030 DATA 0.0,0,0.0,0.0,0.6,2.3 
,7,7,3,35,51,96,107.159.252.15, 
0,192,240 

1040 DATA 0,0.0.64,96,112,96.80 

,47,33,65.255,1.3,7,15,252,190, 

182,175,159,254,254,204 

1050 DATA 28,15,3,0,0.0,0,0.127 

.255.247.247,7.3,1.1,236,232,22 

4,192.128.0,32,224 

1060 DATA 8.68,50. 139, SO , 68, 8,0 

, 16 , 34, 76 , 145 , 76 . 34 , 16 , 0 

5000 FOR 1-1 TO 5 

5010 SAVE "HC0301" 

5020 NEXT 1 



20 POLEAR 5 




30 CLEAR 200,32000 

40 FOR 1-32300 TO 32587 

50 READ N 

60 POKE I.N 

70 NEXT 

BO DIM A(2) .B(2) ,C(2) 
90 PM ODE 4,1 
100 PCLS 

110 FOR 1-1536 TO 1760 STEP 32 
120 READ N 
130 POKE I.N 
140 NEXT 

150 GET (0,0)-(7,7) ,A 

160 FOR 1-1536 TO 1760 STEP 32 

170 READ N 

180 POKE I,K 

190 NEXT 

200 GET (0.0) - (7.7) ,B 

210 PCLS 

220 SCREEN 1.0 

230 T-l 

240 DP-3500 

250 POKE 32700, INT (DP/256) 

260 POKE 32701, DP-256*INT (DP/25 

6) 

270 POKE 32250, T+DT»2 
260 EXEC 32000 
290 LP-DP 

300 IF PEEK(338)-251 THEN DP-DP 
-32:GOTO 360 

310 IF PEEK(342)-253 THEN DP-DP 




620 DATA 63,31,63,63,31.12,74.1 

23.252.255.255.255.255.240,64,1 

92.10.56,240.224.128,0,0,0 

630 DATA 0,6,214.249,63.240,3,1 

5,0.96.64.192.224.224.192.132.0 

,0,0,0,0,0.0,0 

640 DATA 63.125.109.245.249,127 

,127,57.140,244.132,244,140,198 

,224.240.0,0,0,2,6,14,6,10 

650 DATA 59,27,3,1,0,0,2,3,254, 

255,247,247.240,96,64,192,56,24 

0,192.0,0,0,0.0 

660 DATA 0,16,34,76,145,76,34,1 
6 

670 DATA 0,B, 68, 50. 137,50.68.8 



O dragão do TRS-Color é fornindo por 
blocos gráficos de oilo por oito pontos. 



+32:G0TO 360 

320 IF PEEK(340)-247 THEN DP-DP 
-l:T-T+l:DT-l:G0TO 360 
330 IF PEEK(338)-247 THEN DP-DP 
+l:T-T+l:DT-0:G0TO 360 
340 IF INKEYS-" - AND T-2 GOSUB 
410 

350 GOTO 300 

360 IF DPOS36 OR DP>6941 THEN 
DP-LP 

370 IF T>2 THEN T-l 

380 POKE 32250,0 

390 EXEC 32000 

400 GOTO 250 

410 IF DT-1 GOTO 470 

420 YP-INT(<DP-1536)/32) 

430 XP-8* (DP-1533-YP*32) 

440 IF XP>255 THEN 530 

450 PUT (XP,YP)-<XP+7,YP+7) ,A 

460 GOTO 510 

470 YP-INT((DP-1536)/32) 

480 XP-8*{DP-1537-YP*32> 

490 IF XP<0 THEN 530 

500 PUT (XP , YP) - (XP+7 , YP+7) . B 

510 FOR 1-1 TO 200:NEXT 

520 PUT(XP.YP) -(XP+7, YP+7) ,C 

530 RETURN 

540 DATA 0,0,0.0,0,0,0,0,6,2,3, 
7. 7, 3, 35, 51, 96, 1'07, 159, 252, 15,0 
.192.240 

550 DATA 0.0.0.0. 64. 96, 112, 9 

6,47,33,65.255,3,7, 

15, 31, 248,188 182, 
175.159,255.254,254 
560 DATA 

80.28,15.7,1,0.0.0, 
63,255,255,255,255, 
15.2,3.252,248,252, 
252, 248, 48.82,222 
570 DATA 0.0.0,0,0.0,0,0,0.6,2, 
3.7,7,3,33,0.96,107.159.252,15, 
192,240 

580 DATA 0,0.0,64.96,112,96,80, 
49,47.33,47,49,99, 7.15,252,190, 
182.175,159,254,254. 156 
590 DATA 28.15,3,0,0,0,0,0.127, 
255,239,239,15,6.2.3,220,216,19 
2,128.0.0.64.192 

600 DATA 6,214,249.63.240,0,3,1 
5,96,64,192,224,224,192.196,204 
,0.0,0,0,0.0,0.0 

610 DATA 31.61,109.117.249.255. 
127,127.244,196,194,255,192.224 
,240. 248. 0.0. 0,0, 2. 6, 14,6 



As linhas a seguir são modificações 
que devem ser feitas no programa que 
move o Ianque de guerra. 

5 CLEAR 1000:COLOR 12.15,12 
20 FOR 1-1 TO 32*4 
25 READ A:AS-AS+CHRS(A) 
30 NEXT I 

35 FOR 1-1 TO 32*4 

40 READ B:B$-BS+CHRS(B) 

45 NEXT I 

50 SPRITES<0)-LEFTS(A$,32) 
55 FOR 1-1 TO 3 

60 SPRITES(I)-MIDS(A$. 1*32 + 1. 32 
) 

65 NEXT I 

70 SPRITES(4)-LEFTSIBS,32) 
75 FOR 1-5 TO 7 

80 SPRITES(I>-MID$<BS, (1-41*32 + 

1.32) 

85 NEXT I 

1.10 X=100:Y-90:F-1 

111 PUTSPRITE0. (X+16.Y-8) ,12,0 

112 PUTSPRITE1. (X+16,Y+8) , 12,1 

113 PUT3PRITE2. (X, Y+8) ,12.2 
500 PUTSPRTTEO , (X+16. Y-8) , 12 ,0 
510 PUTSPRITE1, (X+16.Y+8) ,12, 1 

515 PUTSPRITE2, (X.Y+8) ,12,2 

516 PUTSPRITE3. (X+32,209) ,12.3 
600 PUTSPRITEO , (X+16, Y-8) , 12.4 
610 PUTSPRITE1 , {X+16. Y+8) , 12,5 

615 PUTSPRITE2 , (X+32 , Y+8) .12,6 

616 PUTSPRITE3. ÍX. 209) ,12,7 
700 PUTSPRITEO, (X+16. Y-8) .12.0 
710 PUTSPRITE1. (X+16. Y+8) ,12,1 

715 PUTSPRITE2 , (X , Y+8) , 12 , 2 

716 PUTSPRITE3, (X+32.Y) ,6,3 
800 PUTSPRITEO. {X+16. Y-8) . 12.4 
810 PUTSPRITE1 , (X+16, Y+8) , 12. 5 

815 PUT5PRITE2. {X+32, Y+8) .12.6 

816 PUTSPRITE3 , (X, Y) ,6,7 

5000 DATA 0,0,0.0,0,0,0,0,6.2,3 

,7.7,3,35,51,0.0,0.0,0,0.0,0,96 

.107,159,252,15,0.192,240 

5010 DATA 47.35.67,255.1.3,7,15 

,127,255,247,247,7,3,1,1.252,19 

0,182,175,159,254.254.204,232,2 

24,224,192.128,0.32.224 

5020 DATA 0,0,0.0,0,0,0,0,0.0.0 

,0,0. 0,0, 0,0, 0.0, 64, 96, 112, 96, 8 

0. 28. 15.3,0.0,0,0,0 

5030 DATA 16.34,76,209,76.34.16 

,0,0,0,0,0.0,0,0.0,0.0,0.0,0.0. 

0.0.0,0.0,0,0,0,0,0 
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5040 DATA 0,0.0,0,0,0,0,0,6,214 
,249.63,240,0,1,7,0,0,0,0,0,0,0 
.0.96,64,192.224,224,192,196,20 
4 

5050 DATA 63,125,109. 245 , 249, ]2 
7,127,51,23,7,3,1,0,0,4,7.244,1 
96.194,255,128,192,224,240.254, 
255.239,239,224,1 28, 12B, 192 
5060 DATA 0.0,0,2,6,14.6,10,56, 
240,192,0.0.0,0,0,0.0,0,0,0.0,0 
,0,0,0,0,0,0,0,0,0 
5070 DATA 0.0.0,0,0,0,0.0,0,0,0 
.0.0.0.0.0.8,68,50.139,50,68.8, 
■0,0.0,0,0.0.0.0,0 



Carregue o programa que move um 
tanque na tela usando DRAW; faça ne- 
le as seguintes modificações: 

30 FOR I - E TO E + 41 + 18 * 

32 

110 IF KS - "Z" AND X > 16 THE 
NX-X-3:F-0: GOTO 140 
170 DRAW 1 AT LX.LV + 8 
180 DBAU 2 AT LX.LY + 16 
190 DRAW 3 AT LX + 8.LY 
200 DRAW 4 AT LX + 8.LY + 8 
205 DRAW 5 AT LX + 8,LY + 16 
210 DRAW 6 AT LX + 16, LY 
220 DRAW 7 AT LX + 16, LY + 8 
225 DRAW 8 AT LX + 16. LY + 16 
260 DRAW 11 AT LX , LY 
270 DRAW 12 AT LX , LY + 8 
275 DRAW 13 AT LX , LY + 16 
280 DRAW 14 AT LX + 8.LY 
290 DRAW 15 AT LX + 8.LY + 8 
295 DRAW 16 AT LX + 8.LY + 16 
300 DRAW 17 AT LX + 16, LY + 8 
310 DRAW 18 AT LX + 16. LY +■ 16 
340 DRAW 1 AT X.Y + 8 
350 DRAW 2 AT X.Y + 16 
360 DRAW 3 AT X + 8.Y 
370 DRAW 4 AT X + 8,Y + 8 
375 DRAW 5 AT X + 8,Y + 16 
380 DRAW 6 AT X + 16, Y 
390 DRAW 7 AT X + 16, Y + 8 
395 DRAW 8 AT X + 16.Y + 16 
420 DRAW 11 AT X,Y 
430 DRAW 12 AT X.Y + 8 
435 DRAW 13 AT X,Y + 16 
440 DRAW 14 AT X + 8,Y 
450 DRAW 15 AT X + B,Y + 8 
455 DRAW 16 AT X + 8,Y + 16 
460 DRAW 17 AT X + 16, Y + 8 
470 DRAW 18 AT X + 16, Y + 16 
510 DRAW 9 AT X + 30, Y 
540 DRAW 9 AT X + 30, Y 
570 DRAW 10 AT X - 12, Y 
600 DRAW 10 AT X - 12, Y 
2000 DATA 20 ,0 ,42 .0 ,74 ,0 
.106 ,0 .138 ,0 ,170 ,0 ,202 . 

0 ,234 ,0 ,10 ,1 ,42 ,1 ,74 ,1 
.106 ,1 ,138 .1 ,170 ,1 ,202 ,1 

,234 ,1 ,10 ,2 .42 ,2 ,74 ,2 , 
106 .2 ,138 ,2 

2010 DATA 0 ,72 ,73 ,73 ,218 
,219 ,219 .74 ,73 ,73 .218 ,21 
9 ,27 ,87 .109 ,73 ,209 ,219 .5 
9 ,191 ,41 ,77 ,73 ,218 ,219 ,3 

1 -23 ,0 ,0 ,0 ,0 .0 
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O Spectrun». o MSX, o Apple e o TK-20O0 utilizam este dragão c 



2020 DATA 0 ,72 ,41 ,109 ,20 
9 ,63 .255 ,155 ,73 .73 ,173 ,2 
19 .219 ,155 ,73 ,73 .137 ,219 
,219 .155 ,73 ,73 ,137 ,219 .21 
9 ,155 ,0 ,0 ,0 .0 ,0 ,0 
2030 .DATA 0 .72 ,73 ,109 ,21 

8 .223 ,219 .74 ,73 ,41 ,213 ,6 
3 ,223 ,155 ,73 ,9 .45 ,213 .25 
5 ,219 ,83 ,105 ,9 .173 ,59 ,22 
3 ,255 ,2 ,0 ,0 ,0 ,0 

2040 DATA 0 ,72 ,13 ,45 ,173 

,59 ,223 .251 ,10 ,77 .9 ,173 
.59 ,63 ,63 .63 ,78 ,73 ,9 ,213 

,255 ,219 ,83 ,73 ,41 ,173 ,59 

,63 ,223 ,19 ,0 ,0 
2050 DATA 0 ,B ,45 ,4S ,45 , 
213 ,63 ,63 ,63 .55 ,45 .109 ,4 
5 ,213 ,63 ,31 ,63 ,119 ,73 ,41 

,173 ,59 ,223 .219 .74 ,73 .9 
,213 ,223 ,219 ,19 ,0 
2060 DATA 0 ,8 ,109 ,73 ,209 

.255 ,31 .191 ,77 ,45 .45 .213 

,27 ,63 ,63 ,119 ,73 .45 .173 
,219 ,219 ,155 ,109 ,73 ,137 .2 
19 ,27 ,63 ,55 .0 ,0 ,0 
2070 DATA 0 ,40 ,45 ,45 ,77 
.218 ,63 ,63 .31 .110 .109 ,109 

,26 ,63 ,255 ,31 .110 ,41 .45 
,173 ,27 ,63 ,63 .63 .46 ,45 ,4 
5 ,109 ,218 ,59 ,223 ,55 
2080 DATA 0 ,40 ,109 ,109 ,2 

09 ,219 .31 ,63 ,46 .109 ,73 .2 
09 .219 .219 ,51 .77 ,73 ,137 . 
219 ,219 ,155 .9 .77 ,73 .218 , 
219 ,59 ,55 ,0 ,0 ,0 ,0 

2090 DATA 0 ,72 ,105 .73 ,21 

8 ,223 ,251 ,10 ,77 ,109 ,209 , 
223 ,251 .119 ,77 ,109 .209 ,25 
l .27 ,159 .73 ,77 ,137 ,219 ,2 
19 .155 .0 ,0 ,0 ,0 ,0 ,0 

2100 DATA 0,72 ,9 ,77 ,209 
,27 ,223 ,187 ,9 ,109 ,105 ,26 
,255 .223 .115 ,41 ,77 ,141 ,21 

9 .223 ,187 .73 .105 .137 ,219 



,219 ,155 ,0 ,0 ,0 ,0 ,0 

2110 DATA 0 ,72 ,73 ,109 ,21 

8 ,255 ,31 ,55 .45 ,45 .77 .213 
,63 .63 ,255 .42 .45 ,77 ,137 

.219 ,219 ,155 ,73 ,73 ,173 ,59 

,63 ,223 ,19 ,0 ,0 ,0 
2120 DATA 0 ,72 ,45 ,45 ,173 

,251 ,63 .63 .87 ,109 ,109 ,21 
3 ,31 ,31 ,63 ,55 ,45 ,45 .77 . 
213 ,63 ,63 ,63 .87 ,45 .45 ,45 

.213 .255 ,59 .159 .0 
2130 DATA 0 .72 .109 .45 .21 
3 ,63 ,31 ,223 ,74 ,73 ,45 .213 

.255 ,219 ,83 .73 .73 .213 ,21 

9 ,219 ,83 ,73 ,105 ,209 ,63 ,2 
23 ,155 ,0 .0 .0 ,0 ,0 

2140 DATA 0 ,8 .109 ,73 ,209 

.219 ,219 ,23 ,109 .73 .137 ,2 
19 .219 .63 ,46 ,109 ,73 ,209 . 
219 ,219 ,55 ,109 .9 ,77 ,218 . 
59 ,223 .55 ,0 .0 .0 ,0 
2150 DATA 0 ,40 ,45 ,13 .77 
,218 .251 ,27 .55 .109 ,73 .141 

,59 ,63 ,63 ,63 .110 ,73 ,73 . 
218 .219 .27 ,55 .45 ,77 ,73 ,2 
18 ,219 ,63 ,55 ,0 ,0 
2160 DATA 0 ,40 ,45 ,45 ,109 

,26 ,63 ,63 ,63 ,55 ,45 ,13 . 

45 ,173 ,59 ,63 ,31 ,63 .46 . 

109 ,73 ,209 ,219 ,219 ,55 , 

77 ,73 ,137 ,219 .219 ,27 ,6 
2170 DATA 0 .72 .73 ,73 ,218 

,219 ,219 ,74 ,73,73,218 .22 
3 .219 ,74 ,73 ,109 .218 ,63 ,2 
23 ,83 .73 ,41 ,141 ,27 ,31 .22 
3 .19 ,0 ,0 ,0 ,0 ,0 
2180 DATA 0 .72 .45 ,77 , 
209 .219 .59 ,63 ,46 ,77 
,73 ,209 ,2L9 ,219 ,83 
.73 ,73 ,209 ,219 
.219 ,83 ,73 ,73 
,209 .219 .21 . 
.19 .0 ,0 , VJS 
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ANIMAÇÃO GRÁFICA 
NOTRS-G01OR 



Com os comandos GET e PUT podemos 
armazenar figuras em matrizes e, mais 
tarde, trazê-las de volta à tela. 
Aprendendo a utilizá-los, você 
animará os mais variados desenhos. 



Se você já sabe elaborar gráficos com 
UDG (Caracteres Definidos pelo Usuá- 
rio), é quase certo que queira movê-los 
pela tela. Para tanto, será necessário uti- 
lizar os comandos GET e PUT, que já 
vimos muitas vezes na seção Programa- 
ção de Jogos. 

Poderíamos imaginar o GET como 
um comando capaz de "fotografar" 
uma área retangular da tela de alta re- 
solução do TRS-Color. O que estiver 
naquela área — um UDG ou qualquer 
outro gráfico feito com LINE, CIRCLE 
ou DRA W — será armazenado numa 
matriz (veja artigo na página 192). 

PUT é o oposto de GET: ele "colo- 
ca" a fotografia (conteúdo da matriz) 
em qualquer lugar da tela. Usar esse co- 
mando é muito mais rápido que redese- 
nhar o gráfico por outros métodos e, 
com ele, a idéia de movimento pode ser 
facilmente simulada: basta colocar 
(PUT) uma imagem em diferentes posi- 
ções na tela ou, então, colocar imagens 
diferentes repetidamente. 



Digite e rode este programa; ele usa 
GET e PUT para movimentar um UDG 
de uma bicicleta. 



120 NEXT 
130 GOTO 90 

140 DATA 1.193.192.0,129,32,0.2 
55.64,1,134,0, 14.139,126,19,86. 



10 PMODE 4,1:PCL3 
20 DIM BX<5) 

30 FOH K-1S36 TO 1656 STEP 32 
40 READ A.B.C 

50 POKE K. A: POKE K+l,B:POKE K+2 

.C 

60 NEXT 
70 SCREEN 1.1 
80 GET (1.0) -(18.11) ,BY.G 
90 PCLS 

FOH K-0 TO 238 
110 PUT (K.90)-(K+17,100) ,BV.PS 
ET 



Os DATA (dados) das linhas 140 e 
150 são acessados e depois inseridos na 
tela, via comando POKE, nas Unhas 30 
a 60. A bicicleta é desenhada no canto 
superior esquerdo, ou seja, no começo 
da tela. Quando Você for inserir um grá- 
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COLOQUE 0 GRÁFICO 




COM OS COMANDOS GET E PUT 




ONDE QUISER 



"FOTOGRAFE" A TELA 



TÉCNICAS DE ANIMA ÇÃO 



fico na tela e depois usar GET e PUT, 
desenhe-o nessa posição, pois assim sa- 
berá exatamente onde ele está. Conver- 
ter posições de memória em posições 
de tela pode não ser fácil, devido a va- 
riações entre os PMODE. 




A linha 80 faz um GET (ou "tira uma 
fotografia") da bicicleta. A linha 90 lim- 
pa a tela antes que as linhas 100 e 120 
movimentem a bicicleta. A linha 110 
PUT ("coloca") a bicicleta em uma po- 
sição diferente cada vez que passa pelo 
laço FOR...NEXT. 



COMO DIMENSIONAR UMA MATRIZ 



Sempre que usar GET num progra- 
ma, você precisará dimensionar (DIM) 
uma matriz para armazenar as informa- 
ções sobre o gráfico. Para calcular o ta- 
manho da matriz faça o seguinte: 

1) Depois de desenhar o gráfico, de 
preferência em papel quadriculado, tra- 
ce um retângulo, "enquadrando" intei- 
ramente a figura. Conte quantos qua- 
drados existem na primeira linha e quan- 
tos existem num dos lados. Multiplique 
estes dois números — o resultado será 
o número de quadrados que o desenho 
ocupa. Por exemplo: o retângulo queen- 
volve a bicicleta tem dezoito quadrados 
de largura por doze quadrados de altu- 
ra. Multiplicando-os, obtém-se o núme- 
ro total de quadrados, 216. 

2) Em seguida, calcule o número de 
bytes de memória necessário para arma- 
zenar todos esses quadrados. Em PMO- 
DE 3 e 4 divide-se o número de quadra- 
dos por 8, em PMODE 1 e 2 divide-se 
por 16, e em PMODE 0 por 32. Como 
a bicicleta foi desenhada em PMODE 4, 
divide-se 216 por 8, obtendo-se27. O re- 
sultado deve ser um número inteiro de 
bytes e, por isso, às vezes é preciso 
ajustátlo. E, seja qual for o número ob- 
tido, temos sempre que arredondá-lo pa- 
ra cima, nunca para baixo. 

3) Para calcular o tamanho que deve 
ter a matriz, divida o número de bytes 
por 5 (o divisor é sempre 5, não impor- 
ta o PMODE que está sendo usado). 

Voltando ao exemplo da bicicleta: 
temos 27 bytes para armazenar na ma- 
triz; portanto, 27/5 = 5,4. Novamente, 
se o resultado não for inteiro, deve-se 
arredondá-lo para cima — 6, nesse ca- 
so. A linha 20 diz DIM BV (5) porque 
as matrizes começam em 0. 

Aqui está um resumo dos divisores 
necessários para calcular o tamanho das 
matrizes nos programas gráficos: 



Para calcular o número de: 



Matrizes 
5 



0 



32 



Pode-se usar GET com todo tipo de 
gráfico na tela de alta resolução do com- 
putador. Quer utilizemos um UDG, os 
comandos PSET e PRESET, DRAW, 
ou qualquer combinação de comandos 
gráficos, será sempre possível armaze- 
nar figuras em matrizes por meio de 
GET e colocá-las (PUT) de volta à tela 
mais tarde. 

Para armazenar um gráfico numa 
matriz previamente dimensionada, vo- 
cê precisará dizer ao computador onde 
encontrar o gráfico na tela e em qual 
matriz pretende armazená-lo. Vejamos 
esta linha do programa da bicicleta: 

80 GET (1.0)- (18,11) , BY . G 

Os números nos parênteses são as 
coordenadas de cantos diagonalmente 
opostos do retângulo que envolve o grá- 
fico. Você pode especificar os cantos 
que quiser e em qualquer ordem, desde 
que sejam diagonalmente opostos. 

A área armazenada não compreende 
todo o UDG que definimos, mas ape- 
nas as partes que realmente contêm a 
imagem — porque a bicicleta não ocupa 
toda a extensão de 24 quadrados. Co- 
mo o GET não nos limita a mover ape- 
nas imagens de oito por oito, podemos 
movimentar o que bem entendermos. 

Na continuação da linha 80, B V man- 
da o computador armazenar o gráfico 
na matriz BY, DIMensionada na linha 20. 

G significa "detalhe Gráfico comple- 
to". Pode-se omiti-lo em certos casos 
(que explicaremos depois), mas em ge- 
ral c aconselhável usá-lo. 

Se estiver usando UDG, convém sem- 
pre inseri-los (POKE> no canto superior 
esquerdo da tela, como foi dito anterior- 
mente, para facilitar o ajuste do GET. 
Lembre-se de que quando os inserimos 
na tela a posição da imagem não está 
contida em coordenadas comuns. O 
GET "fotografa" a imagem de uma cer- 
ta coordenada de tela e, por isso. será 
preciso converter a posição de memória I 
na qual introduzimos os UDG em coor- 1 
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denadas de teia equivalentes. Essa con- 
versão não é fácil, já que varia confor- 
me o PMODE. A inserção nas posições 
de memória do começo da tela (a partir 
da posição 1536) facilita o cálculo da 
coordenada de tela do UDG. O canto 
superior esquerdo deve estar na coorde- 
nada (0,0) e, sabendo o tamanho do 
gráfico, será simples calcular as coorde- 
nadas do canto inferior direito do UDG 
quando o "fotografarmos". 




Depois de empregarmos o GET para 
armazenar o gráfico na memória, deve- 
mos limpar a tela com PCLS, antes de 
colocá-lo (PUT) de volta na tela. 

Aqui está a Unha do PUT no progra- 
ma da bicicleta: 

LIO PUT(K.90)-(K+17,100) ,BY, 
PSET 

Deniro dos parênteses, como no 
GET, encontram-se as coordenadas dos 
cantos diagonalmente opostos que espe- 
cificam a área na qual queremos colo- 
car a imagem. BV é a matriz que con- 
tém a bicicleta. 

A última pane da linha é o PSET, 
que faz o computador colocar o gráfi- 
co na tela exatameme como foi desenha- 
do, sobrepondo-o ao que estiver naque- 
las posições. 

Existem , porém, outras opções . 
PSET pode ser substituído por PRE- 
SET, OR, AND, ou NOT, que nos per- 
mitem manipular o gráfico. 

PRESET diz ao computador para co- 
locar o gráfico na tela no modo inver- 
so. No modo de duas cores, estas se in- 
vertem; no de quatro (modo 0), o ver- 
melho fica verde, o azul fica amarelo e 
vice-versa; no modo 1, o laranja fica 
cinza, o ciano fica roxo e vice-versa. 

OR permite que se coloque o gráfico 
armazenado na matriz junto ao que já 
está na tela. Ambos permanecem inal- 
terados, o que não ocorre quando utili- 
zamos PSET, que elimina o que estiver 
na tela. 

AND mostra a junção do que já está 
na tela com o gráfico que se introduz na- 
quela posição. 

NOT não mostra nenhum conteúdo 
da matriz: simplesmente inverte a área 
da tela em que a matriz será colocada. 

A seguir, você verá a utilização des- 
ses comandos em um programa. 

10 PMODE 4,1 

20 DIM C(5) ,B1 (5) ,B2(5) 

30 PCLS 



40 CIRCLE (7,7) ,7,1:PAINT (7,7) 
,1.1 

50 GET (0,0)-(14,14) ,C,G 

60 PUT (0,0)-(14.14) .C.NOT 

70 GET (0,0) -(14,14) ,B2,G 

80 PCLS1 :SCREEN 1,0 

90 LINE (8 , 191 ) - (104 , 0) , PRESET -L 

INE(24. 191)- (120,0) , PRESET : PA IN 

T(10,191) ,0,0 

100 LINE (104,191) -{200,0) , PHES 

ET :LINE (120, 191) - (216.0) , PRESET 

:PAINT(110,191) .0,0 

110 FOR K-175 TO 0 STEP -10 

120 X-14+(175-K)/2 

130 PUT (X.K) -(X+14.K+14) ,C,0R 

140 PUT(X+96,K)- (X+110.K+14) ,C. 

OS 

150 FOR J-l TO 100:NEXT 

160 PUT(X,K)-(X+14,K+14i .Bl.PSE 

170 PUT(X+96,K)MX + 110,K+14) , B2 
• AND 

160 NEXT 
190 GOTO 80 

Se observarmos bem as duas bolas 
subindo pela tela, veremos que sobram 
"pontas" ao longo das faixas pretas. Is- 
so acontece porque estamos tentando 
colocar um gráfico retangular dentro de 
um inclinado e, cada vez que o progra- 
ma introduz um quadrado preto (lacu- 
na) para "apagar" a posição anterior da 
bola, as "pontas" aparecem. 

Com a bola que caminha pela faixa 
da direita não ocorre esse problema. 
Usando uma combinação de PUT.,., 
AND e PUT....OR, as pontas são eli- 
minadas. A linha 60 inverte a bola na 
tela e, depois, a linha 70 armazena-a na 
memória. Quando o programa movi- 
menta a bola, a linha 140 coloca uma 
lacuna sobre a faixa com um 
PUT....OR, de maneira que a bola an- 
terior seja apagada por uma "figura" 
de formato exatamente igual ao dela. 
Em seguida, um PUT..., AND coloca na 
tela a bola invertida. A combinação de 
NOT com AND permite que a linha 1 70 
introduza a bola na tela sem super- 
posiçãd. 

Se você quiser colocar um gráfico 
na tela, num espaço que não seja re- 
tangular (um círculo num triângulo, 
por exemplo), desenhe primeiro o ob- 
jeto. Coloque-o de volta à tela com 
PUT..., NOT e "fotografe-o" (GET) 
numa matriz. Mais tarde, para mostrar 
o gráfico na tela, use PUT..., AND. 



QUANDO NÃO USAR 0 G 



Dissemos anteriormente que, em cer- 
tos casos, pode-se omitir o G do final 
do comando GET. Para saber quando 
omiti-lo, você precisa de algumas infor- 
mações sobre a tela do computador. 

Nos PMODE 1 , 3 e 4 a tela gráfica 



é dividida em 32 colunas verticais, cada 
uma com oito pontos de largura, en- 
quanto que nos PMODE 0 e 2 a tela é 
dividida em dezesseis colunas de dezes- 
seis pontos de largura cada. Qualquer 
que seja o PMODE usado, a largura de 
cada coluna na tela corresponde a um 
byte na memória. 

Pode-se omitir o G do comando GET 
quando o gráfico desenhado ocupa um 
número determinado de colunas e se 
quer movimentá-lo. Sem o G, bytes 
inteiros são armazenados na matriz de- 
clarada. Se o gráfico sobrepuser parte 
de colunas, você precisará armazenar 
partes de bytes na matriz. Em outras 
palavras, será preciso, de alguma manei- 
ra, armazenar bits da tela na matriz — 
e e esta a função do G. 

Retirando o G, você terá problemas 
com gráficos que sobrepõem outras colu- 
nas. Além disso, não poderá usar PSET, 
PRESET, OR, AND ou NOT no PUT 
correspondente, A omissão do G, portan- 
to, torna menos flexível o uso do PUT. 



ANIMAÇÃO COM GET E PUT 



O GET e o PUT são especialmente 
úteis nos programas de animação gráfi- 
ca. Esta é feita, em geral, por meio de 
dois métodos. 

O primeiro deles consiste em usar 
uma matriz vazia (lacuna) para apagar 
o gráfico, antes de colocá-lo em outra 
posição na tela. Para evitar problemas, 
verifique antes se o tamanho da lacuna 
é o mesmo do gráfico. Esse procedimen- 
to já foi visto em vários artigos de Pro- 
gramação de Jogos. 

O segundo método, empregado na 
animação da bicicleta, utiliza uma mol- 
dura de pontos vazios ao redor do grá- 
fico. Depois que se decide quantos 
pontos o gráfico se moverá a cada pas- 
so, verifica-se se existe o mesmo núme- 
ro de fileiras de pontos rodeando o 
gráfico. Isso significa que o novo gráfi- 
co colocado na tela apaga o anterior. Se 
o gráfico se movesse para todas as dire- 
ções, quatro pontos a cada passo, por 
exemplo, precisaríamos de uma moldu- 
ra com quatro pontos de largura 
rodeando-o. No caso da bicicleta, o grá- 
fico se move um ponto de cada vez, da 
esquerda para a direita somente. Assim, 
quando ele foi armazenado, deixamos 
uma simples fileira de pontos vazios em 
seu lado esquerdo. 

Como exercício, tente animar outros 
desenhos usando GET e PUT. A única 
maneira de entender e se familiarizar 
com o uso dos comandos PSET, PRE- 
SET, OR, AND e NOT é experimentá- 
los em diversos gráficos e situações. 
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GRÁFICOS 



■ COMO 




Junte a capacidade de manusear dados 
com as funções gráficas do seu 
micro e desenvolva programas capazes 
de mostrar em um gráfico 
qualquer tipo de informação numérica. 

Armazenamento e processamento de 
dados são atributos típicos de qualquer 
computador. Contudo, não é fácil para 
o usuário assimilar grandes quantidades 



de informações. Se nos apresentarem, 
por exemplo, uma lista contendo milha- 
res de números, é muito difícil interpre- 
tar seu significado. 

Para entender melhor, dê uma olha- 
da na seguinte lista: 132.9. 146.2, 
132.89. 123.92. 147.01, 153.47. 132.09, 
138.79, 147.57. 153.9, 140.04, 142.76, 
152.76, 132.6, 135.09, 146.98. Agora 
responda rapidamente às seguintes per- 
guntas: qual é o maior número da lis- 
ta? Qual a sua posição na lista? Quan- 
tos números menores que 135.5 há nela? 



Como você vê, não é muito fácil dar 
respostas rápidas a essas questões. Ima- 
gine se a quantidade de números fosse 
cinco vezes maior! 

A maneira tradicional de tratar esse 
tipo de problema consiste em colocar a 
informação em um gráfico. Quando is- 
to é feito, torna-se fácil perceber qual 
é o ponto mais alto. Assim, com o au- 
xílio de uma régua na posição horizon- 
tal, podemos verificar quais os valores 
que estão acima ou abaixo de um deter- 
minado valor. 



36 PROGRAMAÇÃO BASIC 



No artigo Reúna Seus Dados em Grá- 
ficos (página 181), apresentamos um 
programa que mostra, sob a forma de 
um gráfico de barras, dados introduzi- 
dos no computador. O presente artigo 
trata das técnicas necessárias à confec- 
ção de gráficos lineares. Em lições pos- 
teriores, abordaremos os histogramas e 
outros tipos de gráfico. 

Como as rotinas deste artigo vão 
além das capacidades gráficas do ZX-81 
e do TRS-80, não apresentaremos pro- 
gramas para tais micros. 



GRÁFICOS DE FUNÇÕES MATEMÁTICAS 



A estrutura de um programa depen- 
de do tipo de informação que queremos 
mostrar na tela. Quando há uma relação 
matemática ligando os dados, podemos 
usar uma função matemática. Os micro- 
computadores são dotados, por exem- 
plo, de funções trigonométricas — se- 
no, cosseno e tangente — que tor- 
nam fácil o traçado de curvas 
^^^^^ cíclicas, como já foi explica- 
do em artigos anteriores, 
Hkn. ou como demonstra o 
seguinte programa: 



30 PLOT 0,76 

40 FOR t-0 TO PI*10 STEP 
50 DRAW 2, COS t*15 
60 NEXT t 



10 COLOR 1,15.1 

20 SCREEN 2 

.10 DRAW "BM0.95" 

40 FOR T-0 TO 40*ATN(1) STEP 

6 

50 LINE - <B»T.95-40*SIN(T) ) 

60 NEXT 

150 GOTO 150 



10 HOME : HGB ! HC0LOR- 3 

30 HPLOT 0,145 

40 FOR T - 0 TO 279 STEP 4 

50 HPLOT TO T.95 + 50 * COS 

(T / 10) 

60 NEXT T 

150 END 



\ 



15 PMODE 3,1 
20 PCLS 
25 SCREEN 1,1 
30 DRAWBM0.95" 

40 FOR T-0 TO 40*ATN(1) STEP . 06 
50 LINE- (8*T . 95-40*SIN (T) ) , PSET 
60 NEXT 
150 GOTO 150 

Esse programa traça uma curva se- 
nóide, que tem muitas aplicações em 
ciência, tecnologia, música e traçados 
gráficos. A linha 40 estabelece que a cur- 
va terá cinco ciclos (menos no Apple). 
Cada ciclo é duas vezes PI. A linha 50 
determina como é desenhada a curva 
(para conhecer maiores detalhes, veja o 
artigo Mais Requinte em Seus Desenhos, 




Illll 



à página 354). Alterando os valores nes- 
sas linhas (linha 50 no Apple), podemos 
variar consideravelmente a forma da 
curva. 

O micro tem um número limitado de 
funções embutidas, prontas para serem 
usadas, mas qualquer função matemá- 
tica pode ser desenhada, desde que a de- 
finamos dentro de um programa. 

Acrescente as próximas linhas ao pro- 
grama e execute-o novamente. 



70 PLOT 0,60 

80 FOR n-1 TO Z20 STEP 5 
90 DRAW 5. <(110-n)*15}/200 

100 NEXT n 

110 PLOT 0,100 

120 FOR n-1 TO 220 STEP 5 

130 DRAW 5,-(<110-n)"15)/2Q0 

140 NEXT n 



140 OOTO BO 



, +STRS<INT(109"D+E) 



15 D-l:E-64 

70 COLOR 4 
80 DRAWBM0 . 

) 

90 FOR T— l 27 TO 128 

100 LINE U27+T,T*T/150"D+E) 

110 NEXT 

120 IF D--1 THEN ISO 
130 D— l:E-E+64: COLOR 6 
140 GOTO BO 



IH 



64 



5 D - 1: 
70 HCOLOB- 5 
80 HPLOT 0,64 • D + E 
90 FOR T - - 139 TO 140 

HPLOT TO 139 + T,T * T / 



100 
160 
110 
120 

130 D - 
- 6 



D 



10 SCREEN 2 
140 LINE (6,0) - (8 . 191 1 
160 LINE C8,191)-(2SS,191> 
200 Q0TO 200 



10 D-l:E-64 

70 COLOR 3 

80 DRAW"BM0,"+STRS<INT(109*D+E) 

) 

90 FOR T— 127 TO 128 

100 LINE - (127+T,T"T/150*D+E) ,P 

SET 

110 NEXT 

120 IF D— 1 THEN 15D 
130 D--1:E-E+64:C0L0R 2 
140 OOTO 80 

Temos agora duas parábolas, além 
da senóide. Os números necessários pa- 
ra sua elaboração são criados em um la- 
ço FOR... NEXT. O Spectrum, por 
exemplo, usa um laço para as parábo- 
las e outro para a senóide. 



GRÁFICOS IRREGULARES 



A maioria dos gráficos, porém, está 
vinculada a números sem qualquer re- 
lação matemática entre si. Esses núme- 
ros podem representar, por exemplo, os 
valores da precipitação pluviométrica ao 
longo do ano ou a flutuação dos lucros 
e perdas de uma firma: esse tipo de da- 
do varia imprevisivelmente. Se fôssemos 
traçar o gráfico a mão, começaríamos 
pelos eixos cartesianos. Assim, façamos 
com que esta seja a primeira parte do 
programa: 



NEXT 

IF D - - 1 THEN 150 

1:1 - E + 64: HCOLOR 



140 DRAW 0,175 
150 PLOT 0,0 
160 DRAW 255,0 



DEI 



10 HOME ! HOR I HCOLOR- 3 

140 HPLOT 0,0 TO 0,159 

160 HPLOT 0,159 TO 279,159 

200 END 



íl 



5 PMODE 3,1 

10 PCLS 

15 SCREEN 1,1 

140 LINE (0,0) -(0. 191) .PSET 
160 LINE (0,191) -{255,191) ,PSET 
200 OOTO 200 

Nessas linhas, o programa seleciona 
um modo gráfico (menos no Spectrum, 
onde isso não é necessário), colocando 
o eixo Y no lado esquerdo da tela, e o 
eixo X, embaixo. 

Esta é a disposição usual dos eixos, 
mas podemos modificá-la conforme o 
intervalo a que pertencem os números 
em questão. Por exemplo, se traçarmos 
curvas a respeito da variação de tempe- 
raturas ou sobre ganhos e perdas, tere- 
mos (em alguns casos) a ocorrência de 
números negativos; dessa forma, o ei- 
xo X terá que se deslocar para uma po- 
sição mais alta na tela. 

Outra razão para mudar a disposição 
dos eixos ó deixar espaço para números 
e legendas, sempre úteis quando se tra- 
ta de gráficos. Faça as próximas modi- 
ficações para ter um exemplo. 



5 COLOR 1,15.15 
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Posso modificar os programas de 
modo a misturar dados positivos a ne- 
gativos em um só gráfico? 

A rotina de entrada de dados não 
precisa ser modificada pare aceitar nú- 
meros negativos; em contrapartida, as 
inas que cuidam dos eixos e dos grã- 
os exigem essa alteração. A maior 
dificuldade não é descobrir os valores 
máximo e mínimo, mas sim decidir em 
que ponto da tela colocar o eixo X. 

Se você se dispuser a mudar a po- 
sição desse eixo a cada novo grupa de 
dados, as modificações serão bastan- 
te simples. Para isso. observe atenta- 
inte os dados, escolha fatores de es- 
cala adequados e comece a desenhar 
a partir da origem dos eixos. 



5 COLOR 6, 15. 15 
135 COLOR 1 

140 LINE <20.0)-(20,160) 
160 LINE (20, 80)^(255.80) 



DEl) 



10 HOME : HGR 

135 HCOLOR- 3 

140 HPLOT 20,0 TO 20,140 

160 HPLOT 20,70 TO 279,70 

200 END 



D 



5 PMODE 3,1 
10 PCLS 
15 SCREEN 1,1 
135 COLOR 2 

140 LINE {20,0)- (20.160) , PSET 
160 LINE (20,80)-(255.60) .PSET 
200 GOTO 200 

Ao executar o programa, notaremos 
que há margens à direita e abaixo do 
gráfico. 



Para modificar o tamanho dessas 
margens, altere os valores nas linhas 130 
a 160, com o cuidado de que, no Spec- 
tmm, as linhas 130 e 150 sejam 
idênticas. 

Agora, acrescente as próximas linhas 
para continuar e acompanhe o desenvol- 
vimento do processo. 



60 LET n-10 

70 PLOT 20, n 

80 FOR X-l TO 12 

90 READ y 

100 DRAM 18,y-n 

105 LET n-y 

110 NEXT x 

1000 DATA 50,70,60,100,8 
00,130.70,140,90,110 



70 DRAW "BM20.160" 

80 FOR X>20 TO 20+11*20 STEP 20 

90 READ Y 

100 LINE- (X, 161-V) 

110 NEXT 

160 LINE (20.160)-(255.160) 
1000 DATA 140,123,148,45,100,10 
.20.8,45,8.45,30 



Illllllllllll 




15 HCOLOH- 5 

70 HPLOT 20.160 

80 FOR X - 20 TO 20 + 11 * 20 

3TEP 20 

90 READ Y 

100 HPLOT TO X.141 - Y 
110 NEXT 

160 HPLOT 20,140 TO 279,140 
1000 DATA 130.113, 138,35,90,5 
,20,8,45.8,45,30 



■a 



70 DRAW"BM20,160- 

80 FOR X-20 TO 20+11*20 3TEP 20 

90 READ Y 

100 LINE -(X,Y) .PSET 
110 NEXT 

160 LINE (20 . 1601 - (255. 160) , P3E 



desenhado na extrema esquerda, em ci- 
ma do eixo dos Y, mas poderíamos tê- 
lo colocado na primeira posição dos X, 
modificando, assim, a localização inicial 
do cursor. 

Em todos os programas, menos no 
do Spectrum, essa localização é especi- 
ficada na linha 70; no Spectrum, isso é 
feito invariavelmente na linha 60. 

Se os valores vão ser usados várias ve- 
zes, convém distribuí-los em uma tinha 
DATA. Mas, se quisermos traçar gráfi- 
cos com valores diferentes, é melhor 
usarmos o comando INPUT. 

Acrescente enlão a próxima linha. Is- 
so funciona em todos os géneros de mi- 
crocomputadores, à exceção dos que são 
compatíveis com o MSX, que não acei- 
ta o comando INPUT quando está no 
modo gráfico. 



D 



O programa desenha doze pontos na 
leia, tomando os valores de X da linha 
80. e os de Y da linha 1000; em segui- 
da, ele une esses valores para formar um 
gráfico serrilhado. 

O primeiro valor da linha DATA é 



[um 



90 INPUT "VALOR DE Y ";Y 
130 SCBEEN 1,1 

Ao ser executado, o programa pede 
o primeiro valor de Y. Em seguida, ele 
realiza a primeira volta do laço da linha 
80. Feito isso, ele torna a pedir um va- 
lor de Y, prosseguindo dessa maneira 
até que os doze valores sejam colocados 
na tela. 

Muitos usuários não gostam da inter- 
rupção que a rotina causa no traçado do 
gráfico. As seguintes modificações resol- 
vem o problema: 



20 DIM y(12) 

40 FOR n-1 TO 12 

50 INPUT 'Valor di 

LET y(n)-y(n)+10 

60 NEXT n: CLS 

70 LET n-10 

80 PLOT 20, n 

90 FOR x-l TO 12 

100 DRAM 18,ytx)-n 

105 LET n-Y(Jt) 

110 NEXT x 




O que é ascalamanto? 

Eacalamento 6 uma transformação 
matemática doa eixos de um gráfico, 
de modo a fazer com que os seus ex- 
tremos (pontos máximo e mínimo) cai- 
bam nos limites de uma "janela" no ví- 
deo, Esta pode ocupar todo o vídeo, ou 
apenas parte dele; neate último caso, 
diversos gráficos podem ser distribuí- 
dos simultaneamente por diferentes 
pontos da tela. 

Praticamente todos os gráficos ela- 
borados por programas exigem algum 
tipo de escalamento. A única exceção 
são os gráficos cujas coordenadas ho- 
rizontais e verticais se situam no domí- 
nio dos números inteiros positivos, e 
cujos valores máximos em cada eixo 
nSo excedem em número de pixels a re- 
solução ds tela na mesma direção. 

Suponhamos, por exemplo, que é 
necessário colocar em gráfico duas va- 
riáveis, X e Y, onde X verie de um mí- 
nimo de 1 0 a um máximo de 200, e Y 
. jria de um mínimo de O a um máximo 
de 1 50. Nesse caso, se o computador 
a ser usado for da linha Apple II, que 
tem uma resolução gráfica máxima de 
280 pontos na horizontal por 1 92 pon- 
tos na vertical, não precisaremos esca- 
lar os eixos X e Y. Esse exemplo, po- 
rém, é uma exceção. 

Existem ainde casos em que basta 
escalar apenas um dos eixos. Entretan- 
na maioria das vezes, ambos os ei- 
xos precisam ser escalados. 

Do ponto de vista matemático, o 
método de escalamento consiste ape- 
nas em uma regra de trás. A mesma 
fórmula pode ser aplicada tanto para o 
eixo horizontal como para o vertical, 
bastando trocar as variáveis x por y. A 
fórmula leva em conta os valores mí- 
nimo e máximo do eixo, o número de 
pontoa gráficos que cabem nele, e se 
os valores numéricos identificadores 
das marcas dos eixos (rótulos) serão 
arredondados ou não. 

A fórmula de escelamento é: 

. _ x - xmin . 



onde: 

= valor escalado 
= valor original 
xmin = valor mínimo da escala 
xmax = valor máximo da escala 
pix = número máximo ria pixels do 
eixo. 



5 COLOR 1,15,1b 

10 SCflEEN 0 

20 DTK YU1) 

40 FOR N-0 TO 11 

50 INPUT "Qual o valor d* Y " : ¥ 

CM] 

60 NEXT 

65 COLOR 6:flCREEN 2 

70 DRAW "BM20."+STR$(INT(161-Y< 

0))) 

80 N-0 

90 FOR X-20 TO 11*20+20 STEP 20 
100 LINE -(X.161-YÍN)) 
110 N-N+l 
120 NEXT 



10 HOME 

15 DIM Y(ll) 

40 FOR N - 0 TO 11 

50 INPUT "QUAL 0 VALOR DE V ? 

■íY(N) 

60 NEXT 

65 HOME i HOR : HC0L0R- 5 
70 HPLOT 20,141 - Y(0) 
80 N - 0 

90 FOR X - 20 TO 11 • 20 + 20 
STEP 20 

100 HPLOT TO X.141 - YtN) 
110 N-N+l 
120 NEXT 



que o ideal. Precisamos, assim, de uma 
escala que os coloque dentro do inter- 
valo válido. A maneira mais simples de 
fazer isso é olhar todos os valores e de- 
cidir então qual é o fator que deveremos 
usar para multiplicar todos os números, 
de forma a mostrá-los no gráfico. 

A seguir, apresentamos o programa 
completo, isto c, com todas as modifi- 
cações necessárias. 



20 DIM y(l2) 

30 LET xa-2: LET ye-1/50 

40 FOR n-1 TO 12 

50 READ Y(n) 

60 NEXT DI CLS 

70 LET n-8 

80 PLOT 40, n 

90 FOR Jt-1 TO 12 

100 DRAW B*xb, (Y(x)-n)*yii 

105 LET n-y(x) 

110 NEXT x 

130 PLOT 40,8 

140 DRAW 0.167 

150 PLOT 40,8 

160 DRAW 210,0 

1000 DATA 4000,2000,6000,3000,8 
000,4000,5000,2000,6000,1500,30 
00,500 



20 DIM ¥(11) 

40 FOR N-0 TO 11 

50 INPUT 'VALOR DE ¥ ":Y(N) 

60 NEXT 

70 DBAW "BM20,-+STRS(1NT(161-Y( 
0) ) ) 
80 N-0 

90 FOR X-20 TO 11*20+20 STEP 20 
100 LINE- (X.U CN! ) . PSET 
110 N-N+l L 
120 NEXT 

O programa realiza primeiro a roti- 
na de entrada de daáos para depois fa- 
zer o gráfico. Os dados são colocados 
na matriz Y ( ), como variáveis de Y ( 1 ) 
a Y (12) no Spectrum, eHfô a Y (1 1) 
nos demais computadores. Caso se quei- 
ra utilizar mais de doze números, basia 
redimensionar a matriz. Os valores de 
X são obtidos na linha 90, e o desenho 
é feito pela linha 100. A linha llOcBip. 
ta os valores de Y. 



COMO USAR ESCALAS 



Os valores para os gráficos foram es- 
colhidos até agora de modo a caber den- 
tro dos eixos e da tela. Geralmente, po- 
rém, os números que queremos colocar 
em um gráfico são maiores ou menores 



5 COLOR 6,15.15 
10 SCREEN 2 
20 DIM YU2) 
30 XS-20:YS-l/20 
40 FOR N-1 TO 12 
50 READ YtN) 
60 NEXT 

80 DRAM "BM20."+STRS(INT{161-YS 
*Y(1))> 

90 FOR X-l TO 12 

100 LINE-<X*XS,161-YS*Y(X)) 

110 NEXT 

135 COLOR 1 

140 LINE (20. 0) - (20, 160) 
160 LINE (20.160)-(255.160) 
200 GOTO 200 

1000 DATA 1600,1000.2500,3000,3 
200.2000,2500,1000.3000.750,150 
0,250 



10 HOME : HGR I HCOLOR- 5 

20 DIM ¥112) 

i30 XS - 20:Y8 -1/20 

40 FOR N - 1 TO 12 

50 READ Y (N) 

60 NEXT 

BO HPLOT 20. 141 - ¥ (1) * ¥S 

9(1 FOR X - 1 TO 12 

100 HPLOT TO X * XS.141 - Y (X 



YS 



110 NEXT ^■■^ 

135 HCOLOR- 3 

140 HPLOT 20,0 TO 20.140 



IIIIIIIIIIIHHI 
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160 HPLOT 20,140 TO 279.140 
200 END 

1000 DATA 1600.1000.2500,300, 
450,2000,2500,1000,2700.750,150 
0.250 



5 PMODE 3.1 

10 PCLS 

20 DIM YU2) 

30 XS=20:YS-l/20 

40 FOR N=l TO 12 

50 READ YCN) 

60 NEXT 

80 DRAWBM20,* + STR$(INT(161-YS* 
Y(1))J 

90 FOR X=l TO 12 

100 LINE -(X*XS.Y(X)*YS) . PSET 

110 NEXT 

130 SCREEN 1,1 

135 COLOR 2 

140 LINE (20,0)-<20.160> .PSET 
160 LINE (20,160)-<255,160) . PSE 
T 

200 GOTO 200 

1000 DATA 1600,1000,2500,3000,3 
200. 20 00, 2 50 0.1000, 3000 , 750, 150 
0,250 

O programa faz o gráfico a partir dos 
valores da linha DATA 1000. Assim, 
poupa-se o [empo de digitação dos nú- 
meros enquanto o programa está sendo 
[estado. Como vimos anteriormente, é 
possível mudar facilmente a via de en- 
trada dos dados. 

Os fatores de escala são estabelecidos 
pela linha 30. A linha 80 move o cursor 
para a posição inicial e os pontos são 
traçados pelo laço das linhas 90 a 1 10. 
As linhas 130 a 160 desenham os 
cartesianos. 

Se o gráfico não utilizar todo o es 
paço disponível na tela, podemos mu 
dar o valor dos fatores de escala da li 
nha 30. Para usar a escala nos eixos, di 
gite as próximas linhas. 



Ao rodarmos o programa, o eixo Y 
irá somente até a altura do maior valor. 
O efeito será mais nítido se substituir- 
mos os valores da linha 30. Agora po- 
demos utilizar qualquer valor, desde que 
modifiquemos os fatores de escala na li- 
nha 30. 

Para numerar os eixos, digite as pró- 
ximas linhas: 



210 FOR x-0 TO 12 STEP 2 
220 PRINT AT 21,x*2+4;x 
2 30 NEXT x 

300 FOR y-0 TO 8000 STEP 2000 
310 PRINT AT (8000-y)/40Q,0;y 
320 NEXT y 

As linhas 210 a 230 tomam os valo- 
res de 0 a 12, que são colocados logo 
abaixo do eixo X. Os números ao lon- 
go do eixo Y são impressos pelas linhas 
300 a 320. 



A linha 200 abre 
que possamos escrevei 



140 LINE (20, 160)- (20. 161-3200 



SE GB 




200 OPEN "GRP : " FOR OUTPUT AS I 

1 

210 FOR Y=500 TO 3000 STEP 500 
220 PRESET (0 . 151"Y*YS) : PRINTI1 
, Y/500 

230 LINE (18.161-Y*YS)-(20,161-] 
Y*YS> 
240 NEXT 

250 PRESET {25,0):PRINT #1, 
500) " 

260 FOR X-20 TO 255 STEP 
270 PRESET(X-8.170) :PRIHlB.X/2 

0 

280 LINE (X. 162)- (X.16J 
290 NEXT 

300 GOTO 300 




rquivo para 
tela de alta re- 
solução. O laço das linhas 210 a 240 es- 
creve os valores abaixo do eixo X e o la- 
ço das linhas 260*290, no eixo Y. No- 
te como PRESET é usado para escolher 
a posição de impressão. A linha 250 in- 
forma a escala das ordenadas. 



ÍOfi 1 - 500 TO 2500 STEP 5 
HPLOT 18. Y * YS TO 20, Y ■ 



240 HPLOT X.142 TO X.140 
250 NEXT 
260 END 

Este programa apenas coloca traci- 
nhos nos eixos. O Apple não tem uma 



COMO COMPARAR DADOS 

A capacidade de desenhar um grá- 
fico em escala é particularmente útil 
quando se deseja mostrar mais de um 
conjunto de dados ao mesmo tempo. 
Por exemplo, as duas metades do ano. 
Se quisermos compará-las, devemos 
começar desenhando um gráfico para 
o primeiro semestre no alto da tela e 
um para o segundo, embaixo. Podemos 
colocar os doze valores dentro de uma 
só matriz. Depois, lemos os seis primei- 
ros e acionamos a sub rotina que taz 
o gráfico. Lemos a seguir os outros 
seis, e repetimos o processo. As mu- 
danças necessárias dizem respeito á 
posição inicial de cada gráfico e ã po- 
sição dos eixos, de forma a desenhai 
dois, e não apenas um eixo. Uma alter- 
nativa para essa solução é traçar um 
único eixo X no meio da tela, de onde 
partem, em direções diferentes, os dois 
gráficos. 



ineíra de escrever com facilidade na 
'ela de alta resolução. 

No TK-2000 podemos escrever os nú- 
meros na tela gráfica; neste caso, po- 
rém, a tarefa é deixada ao leitor. 

O laço das linhas 200 a 220 cuida do 
eixo Y, enquanto que o das linhas 230 
a 250 cuida do eixo X. 



Escrever na tela gráfica do TRS- 
Color é mais complicado, pois não po- 
demos usar o PRINT. Os caracteres de- 
vem ser desenhados com DRAW. Mui- 
to longa para ser listada aqui, a rotina 
que faz isso encontra-se na página 236 
(Recursos Gráficos Sofisticados), e po- 
de ser facilmente incorporada ao pro- 
grama apenas com alguns ajustes nos 
das linhas. 



Os últimos retoques no desenho fica- 
rão por sua conta. Eles não são essen- 
ciais, mas o gráfico ficará mais atraen- 
te se for colorido e dispuser de um ro- 
dapé. Os comandos necessários para 
realizar esse trabalho podem ser revisa- 
dos nos artigos Como Desenhar em BA- 
SIC (pagina 1 13) e Ordem e Limpeza no 
Vídeo (página 146). 
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Você não precisa ser um génio de 
organização para lidar com 
computadores. Mas vale a pena fazer 
um mínimo de esforço para 
manter em ordem suas fitas e disquetes. 

Os sistemas de armazenamento auxi- 
liar baseados em fitas ou discos ofere- 
cem ao usuário de computadores do- 
mésticos a possibilidade de contar com 
vastas quantidades de informação e 
também de milhares de programas de 
uma forma muito compacta. 

Entretanto, a eficiência dos sistemas 
de armazenamento magnético tem al- 
guns pontos fracos em potencial. Como 
as informações se concentram em pe- 
quenos disquetes ou em fitas cassetes, 
qualquer dano sofrido por estes pode ter 
efeitos desastrosos. Ao mesmo tempo, 
os meios magnéticos são bastante vul- 
neráveis a agressões ambientais. 



PROTEÇÃO CONTRA DANOS 



Diante disso, é de fundamental im- 
portância que a informação permaneça 
inalterada no disco ou na fita em que foi 
gravada. Assim, você poderá tê-la de 
volta sempre que precisar. 

Existem dois tipos de danos que po- 
dem afetar os meios magnéticos: o tipo 
mecânico e o magnético. 

Os danos mecânicos podem ser cau- 
sados por fatores externos, como calor, 
deformação (provocada pela pressão de 
um corpo mais pesado, por exemplo, 
poeira, umidade etc). Esses fatores ten- 
dem a deteriorar a base magnética ou a 
estrutura dos disquetes e das fitas. Pa- 
ra evitar sua ação, é necessário proteger 
os meios magnéticos sempre que eles 
não estiverem sendo utilizados. Assim, 
mantenha os disquetes dentro de sua ca- 
pa de cartolina e guarde-os em uma cai- 
xa ou gaveta apropriada. Conserve as fi- 
tas cassetes em suas caixas de plástico, 
e estas, por sua vez, em uma estante pró- 
pria (o que facilitará também o traba- 
lho de localizá-las). Armazene discos e 
m fitas longe da poeira, do calor e da 
^ umidade. 



Nunca toque a superfície exposta de 
um disco ou fita. Rebobine as fitas sem- 
pre que puder, colocando sua parle 
transparente (leader) na abertura, onde 
a fita está mais sujeita à ação dos agen- 
tes externos. Além disso, a fita ficará 
pronta para ser novamente utilizada. 
Não deixe fitas por muito tempo den- 
tro do gravador com a tecla PLAV acio- 
nada; se o fizer, elas sofrerão deforma- 
ções provocadas pelo cabeçote do gra- 
vador. Da mesma forma, nunca deixe 
disquetes dentro da unidade acionado- 
ra (driver). 

Outro perigo considerável para seus 
discos e fitas são os campos magnéticos 
encontrados em aparelhos eletrodomés- 
ticos como alto-falantes e alguns tipos 
de motor. Equipados com imãs, esses 
aparelhos geram campos magnéticos 
fortes mesmo quando não estão funcio- 
nando. Portanto, mantenha discos e fi- 
tas longe de televisores, motores de au- 
tomóveis, geladeiras, aparelhos de ar 
condicionado, ventiladores, e até mes- 
mo de telefones. 



SEGURO CONTRA PERDAS 



Por outro lado, os acidentes são ine- 
vitáveis; por isso, vale a pena tomar pre- 
cauções extras e fazer duplicatas dos da- 
dos e programas mais importantes. Es- 
sas cópias cautelares, ou de segurança, 
são conhecidas em computês peio nome 
de back-up. 

Em geral, é uma boa idéia gravar tu- 
do duas vezes (o que pode ser feito na 
mesma fita ou disco). Três vezes é me- 
lhor ainda. Desse modo, pelo menos 
uma versão permanecerá intacta. Se o 
arquivo for importante, faça cópias em 
novos discos ou fitas, e guarde-as em 
outro lugar; mas procure não utilizá-las: 
cias poderão ser necessárias para recu- 
perar o arquivo original em caso de 
perda. 

Proteja suas fitas contra a desgra- 
vação, removendo a orelha de plásti- 
co da borda da fita. Para proteger os 
disquetes, coloque uma fita adesiva opa- 
ca ou reflexiva sobre o furo retangu- 
lar que existe em uma ou ambas as bor- 
das (isso, nos disquetes de 5 1/4". No 
caso dos disquetes de 8", a proteção 
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FACA ENVIOS PELO CORREIO 



se faz removendo o adesivo). 

Com o passar do tempo, discos e fi- 
tas se acumularão às centenas em seu ar- 
quivo, tornando cada vez mais difícil a 
localização dos dados e programas. As- 
sim, é aconselhável rotular discos e fi- 
tas desde o começo (você pode, por 
exemplo, numerá-los para referências 
rápidas; alguns micros permitem iden- 
tificar disquetes com nomes). Paralela- 
mente, procure armazenar apenas arqui- 
vos relacionados em uma fita ou disco. 
As fitas devem, de preferência, ser cur- 
tas e conter de um a três arquivos ou 
programas, apenas. 

Dê a cada arquivo um nome bem cla- 
ro, dentro das limitações impostas pelo 
sistema operacional usado pelo seu mi- 
cro. Se você tiver várias versões de um 
programa, utilize um sistema de nume- 
ração qualquer para identificá-las. Co- 
loque o nome e o número de cada ver- 
são dentro dos programas utilizando de- 
clarações REM. 

Para identificar discos e fitas, use eti- 
quetas gomadas adequadas. No caso de 
fitas, não se esqueça de rotular também 
as caixas. Não escreva com lápis ou ca- 
neta esferográfica sobre a etiqueta de 
um disquete. Mantenha um caderno ou 
fichário com todos os nomes de arqui- 
vos, programas, comentários e suas res- 
pectivas localizações. 



Fitas e discos constituem um meio 
muito conveniente de enviar programas 
e outros tipos de informação pelo cor- 
reio. As fitas cassetes são razoavelmen- 
te fortes e "viajam" bem. Envie-as sem 
a caixa para reduzir o peso e o custo 
(não esqueça de travar o movimento das 
bobinas). Envelopes almofadados ou a 
caixinha lacrada de fonogramas são 
ideais para esses envios. 

No caso de discos, convém embalá- 
los entre dois pedaços de papelão rígi- 
do para evitar deformações. Se você pre- 
ferir, pode também colocá-los em cai- 
xas metálicas rasas ou de plástico resis- 
tente. Em todos os casos, escreva do la- 
do de fora do pacote: "MEIO MAG- 
NÉTICO. FRÁGIL". Para maior segu- 
rança, envie registrado. 
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GERAÇÃO DE BLOCOS 
GRÁFICOS 0) 




Todos os que já tentaram sabem como é 
árduo o trabalho de criar novos 
caracteres usando papel e lápis. Mas 
nem tudo está perdido: eis aqui 
um programa que facilita esse trabalho. 

Conhecidos pela sigla UDG, os blo- 
cos gráficos são um dos recursos mais 
úteis ao programador gráfico. O traba- 
lho de planejá-los e desenhá-los inicial- 
mente no papel, entretanto, exige mui- 
to tempo e dedicação. Além disso, o cál- 
culo dos números correspondentes a se- 
rem utilizados em linhas DATA é bas- 
tante complicado. Por outro lado.se al- 
gum erro for cometido, no decorrer do 
processo, sua correção também exigirá 
um esforço especial, 

O programa apresentado neste arti- 
go facilita as coisas. Ele substitui o pa- 
pel milimetrado pela tela do micro, on- 
de poderemos desenhar o padrão do no- 
vo bloco gráfico. O cálculo dos valores 
a serem colocados em linhas DATA 
também é feito automaticamente. 

Outra grande vantagem do programa 
é que ele nos deixa ver, em tamanho na- 
tural, o bloco que estamos criando e nos 
poupa o trabalho de transferir os dados 
para outro programa. Várias teclas de 
controle nos permitirão não só modifi- 
car o padrão do desenho, como também 
produzir o padrão inverso, ou virá-lo da 
esquerda para a direita. Tudo isso com 
um simples toque. 

Quando estivermos satisfeitos com o 
padrão criado, poderemos preservá-lo, 
gravando todo um conjunto de blocos. 
Uma vez gravado, esse conjunto pode- 
rá ser carregado para utilização em ou- 
tros programas, ou reeditado pelo pre- 
sente gerador de blocos gráficos. 

O programa virá em duas partes. A 
primeira, neste artigo, cuida do aspec- 
to básico do gerador. Faz um quadricu- 
lado na tela, permitindo a movimenta- 
ção de um cursor para a criação do pa- 
drão desejado. Na parte seguinte, serão 
apresentadas rotinas que possibilitam 
modificações mais sutis no caractere. 

Grave a primeira parte em fita ou dis- 
co para completá-la posteriormente. De- 
vido à falta de alta resolução gráfica no 



ZX-81 e no TRS-80, não mostraremos 
versões para esses micros. 




Colocado em funcionamento, o pro- 
grama mostra na tela um quadriculado 
com 8x8 quadradinhos. Este é o "pa- 
pel milimetrado" no qual iremos criar 
nosso novo bloco gráfico. Agora pode- 
mos escolher quais quadradinhos "acen- 
der" e quais "apagar" para criar um pa- 
drão. Para tanto dispomos de um qua- 
dradinho branco, que funciona como 
cursor. Desprovido de cor especial, es- 
te último é, na verdade, a versão mais 
brilhante — com atributo BRIGHT — 
do quadradinho que está abaixo dele. 
Assim, podemos ver, ao mesmo tempo, 
onde o cursor está e se esse quadradi- 
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nho foi aceso ou apagado. O programa 
foi escrito de modo que as setas movi- 
mentem o cursor e o número O, c acen- 
dam ou apaguem os quadradinhos. 

Quem preferir outras teclas para mo- 
vimentar o cursor deve mudar os carac- 
teres dentro do IF I$= ... nas linhas 
6520 a 6555. 

O mesmo método serve para adaptar 
o programa ao uso de joysticks. Quem 
dispuser de um desses periféricos deve 
consultar o artigo da página 348. 

Aqueles que não quiserem recorrer às 
setas para mover o cursor terão de es- 
colher as novas teclas com bastante cui- 
dado, pois nenhuma das teclas de con- 
trole pode ser usada. Essa pane inicial 
do programa utiliza apenas três teclas de 
controle (explicaremos melhor adiante), 
mas a parte seguinte usa mais. De qual- 
quer modo, as teclas C, 1, M, P, R, S 
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io proibidas. 

ido o teclado ou o joysiick, po- 
movimentar o cursor dentro do 
iculado. Quando pressionarmos a 
0. no teclado tou o botão do joys- 
:k, se forem feitas as modificações 
adequadas), veremos a cor do cursor 
mudar, indicando que o quadradinho 
Onde ele está foi "aceso". Se alterarmos 
a posição do cursor, provocaremos uma 
mudança na cor do quadradinho. Des- 
sa maneira, podemos definir o padrão 
de novos blocos gráficos. 

O programa oferece várias opções, 
que podem ser feitas a qualquer momen- 
to da edição. Uma delas c a de guardar 
O bloco no banco de memória. Para tan- 
to, basta pressionar S — uma das teclas 
de controle que mencionamos antes. 

O programa procurará saber então 
em que lugar do banco de memória de- 
verá guardar o bloco. O banco é repre- 
sentado pelas letras de A a U, mostra- 
das na tela acima do quadriculado. De- 
pois de lermos teclado uma letra entre 
A e U, haverá uma pausa, enquanto os 
números correspondentes ao padrão do 
bloco são colocados no banco de memó- 
ria, usando POKE. Logo em seguida, o 



novo bio 



aparecerá na tela, ocupan 
no banco. 

;ão consiste em recuperar 
irdado e promover sua edi- 
>a opção usamos a tecla P; 
l, o computador pergunta que 



bloco desejamos. Em resposta, devemos 
pressionar a tecla correspondente; o blo- 
co desejado será então colocado no qua- 
driculado. 



GRAVE BLOCOS NA FITA 



Precisamos agora gravar o conjunto 
de blocos criados, de modo a utilizá-los 
em outros programas. Ao mesmo tem- 
po, é aconselhável carregar um conjun- 
to de blocos para edição. 

Para começar, pressionamos a tecla 
T. O programa perguntará então se que- 
remos gravar ou carregar um conjunto. 
No primeiro caso, todo o conteúdo do 
banco de memória será cuidadosamen- 
te gravado; portanto, não devemos es- 
quecer de guardar ali o último caracte- 
re que estava sendo editado. 

A próxima parte do artigo explicará 
como usar os recursos do gerador para 
criar e utilizar muitos e muitos blocos 
gráficos, incluindo como usar o conjun- 
to criado em outros programas. Novos 
recursos interessantes serão também adi- 
cionados ao programa. 

5 OLEAR USR "A"-16 

6 POKE 23675, PEEK 23675-16 
8 BORDES 4: PAPEFt 7: INK 0 : 
CLfl 

10 FOR N-USR "A" TO USR -B- + 7 
1 READ A: POKE N.A: NEXT n 
15 POKE 23675. PEEK 23675+16 




20 POKE 23658,8 

30 LET X-ll: LET Y-8: LET NX- 

X: LET NY=Y 
100 LET AS-"": FOR N*144 TO 

164: LET AS-AS+CKRS N: NEXT N 
110 LET BS="": FOR N-65 TO 85: 

LET BS=fl3+CHRS N : NEXT N 
1000 FOR N-87 TO 151 STEP 8: PL 
0T N.48: DRAW 0.64: NEXT N 
1010 FOR N-48 TO 112 STEP 8: PL 
OT 67, N: DRAW 64.0: NEXT N 
2000 PRINT AT 3 . 5 l AS 
2010 PRINT INVERSE 1 ; AT 2 . 5 ; BS 
2400 GOSUB 6500 

2500 IF INKEY$="P" THEN GOTO 5 
000 

2510 IF INKEYS-"S" THEN GOTO 5 
100 

2520 IF 1NKEYS~"T" THEN GOTO S 
200 

3900 GOTO 2000 

5000 INPUT "QUE CARACTER (A-UJ? 
". LINE CS 

5010 IF CS<CHRS 65 OR CS>CHRS 8 

5 THEN GOTO 5000 

5020 I.FT D-CODE CS+79: LET CS-C 

HRS D: GOSUB 6000: GOTO 2000 

5100 INPUT "GUARDAR EM CAIE LETR 

A (A-U) ?" . LINE CS 

5110 IF CSÍCHRS 65 OR CS>CHRS 8 

5 THEN GOTO 5100 

5120 PRINT AT 16,10; "GUARDANDO" 

5130 FOR N-USR CS TO USR CS+7 

5140 LET R=0: LET BIT=12B: FOR 

M-0 TO 7 

5150 IF PEEK 118432* (N-USR CS)« 
32*M+11)<>1 THEN LET H-R+BIT 
5160 LET BIT-BIT/2: NEXT M: POK 



M 
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E N. R 

5] 70 NEXT N: PBINT AT 18. 0;" "i 
TAB 31:" ": GOTO 1000 
5200 INPUT "C (ABBEGAR) OU G (RAV 
AR ) ? " . LINE CS: IF CSO"C" AND 
CSO"G" THEN GOTO 1000 
5220 IF C$-"C" THEN GOTO 5250 
5230 INPUT "INTRODUZA O NOME DO 
ARQUIVO" . LINE NS : IF NS-"" OB 
LEN NS>10 THEN GOTO 5230 
5240 SAVE NSCODE USB "A" . 168 : G 
OTO 100 

5250 INPUT "INTRODUZA O NOME DO 
ARQUIVO". LINE NS : IF LEN NS>1 
0 THEN GOTO 5250 
5260 PRINT AT 19,0;: LOAD NSCOD 
E USR "A": PRINT AT 20.0:" " ; TA 
B 31 ; " " : GOTO 100 
6000 LET B = USR "A"+8*(CODE CS-1 
44) 

6010 POKE 23675. PEEK 23675-16 

6020 FOR N-0 TO 7 

6030 LET V-PEEK (B+N) 

6040 LET BIT=128: FOR M=0 TO 7 

6050- IF V>-BIT THEN PRINT AT 8 

+N. 11+M;CHBS 144: LET V-V-BIT: 

GOTO 6060 

6055 PBINT AT 8+N . 1 1+M ; CHRS 145 
6060 LET BIT-BIT/2: NEXT M 
6070 NEXT Nt POKE 23675. PEEK 23 
675*16: RETURN 

6500 POKE 22528+32*¥+X,120: PAU 
SE 0 

6510 LET IS-INKEYS 

6520 IF IS""5" AND X>11 THEN L 

ET NX'X-3 

6530 IF IS="8" AND X<18 THEN L 
ET NX=X+1 
6540 IF IS" 
ET NY=Y+1 
6550 IF IS- 
T NV = Y-1 

6552 IF IS--0" THEN COSUB 7000 
6555 IF IS="" THEN GOTO 6580 
6560 POKE 22S28+Y*32+X.56 
65 70 LET X-NX: LET Y-NY 
6580 POKE 22528*Y"32+X.120 
6590 BETURN 

7000 POKE 23675, PEEK 23675-16 
7010 IF PEEK (lB432+(Y-8)»32+X) 
-1 THEN PBINT BBIGHT 1 : AT Y.X 
;CHRS 144: GOTO 7030 
7020 PBINT BBIGHT 1:AT Y.XjCHR 
3 145 

7030 POKE 23675. PEEK 23675+16: 
RETURN 

9000 DATA 85,171,85.171,85.171. 
85. 255, 1,1. 1.1.1.1.1,255 



AND Y<15 THEN 
AND Y>8 THEN 



Quando o programa é executado, um 
quadriculado de 8 x 8 pomos surge na 
tela. Este será o "papel quadriculado" 
onde planejaremos a forma de nosso 
bloco gráfico. 

Temos também um cursor em forma 
dc cruz. Conforme as cores escolhidas, 
esse cursor será pouco ou muito visível, 
podendo até mesmo desaparecer quan- 
do sua cor for "transparenie" (código 
de cor zero). O programa foi escrito de 
maneira que as setas movimentem o cur- 
sor e a barra de espaço acenda ou apa- 
gue o ponto. 

Se você quiser utilizar um joystick pa- 
ra mover o cursor (os pontos são ace- 
sos pelo botão de disparo), deve mudar 
o valor das instruções STICK e STRIG, 
nas linhas 70 e 20, respectivamente. 

Assim, o cursor pode ser movimen- 
tado dentro do quadriculado. Quando 
pressionarmos a tecla de espaço, o pon- 
to que está sob o cursor será aceso, as- 
sumindo a cor de frente; se pressionar- 
mos a tecla novamente, ele será apaga- 
do, adotando a cor de fundo. 

No início do programa, a cor de fun- 
do é branca e a cor de frente, preta. Se 
quisermos modificar esta última, deve- 
mos pressionar a tecla C. O computa- 
dor nos perguntará a seguir o código da 
nova cor de frente, ou seja, um número 
de 0 a 15 em decimal. A escolha dessa 
cor pode ser feita com apenas um toque; 
para isso, devemos digitar seu número 
em hexadecimal (de 0 a F). Ja a cor de 
fundo pode ser modificada pressionan- 
do-se a tecla F. 

É importante ter em menic as regras 
de apresentação das cores na leia de al- 
ta resolução do MSX. Cada conjunto dc 
oito pomos adjacentes na horizontal, 
correspondentes a uma linha do nosso 
bloco gráfico, tem apenas uma cor dc 
frente c uma cor dc fundo. Se uma se- 
gunda cor de freme for atribuída a ura 
ponto, todos os pontos acesos daquela 
linha do bloco passarão a ter essa cor. 
O mesmo acontecerá com pontos 
apagados, se tentarmos introduz» uma 



segunda cor de fundo. Em nosso pro- 
grama, esses cuidados ficam por sua 
conta; o computador pode mostrar até 
oito cores numa mesma linha de bloco 
no quadriculado. No momento em que 
esse bloco for colocado na tela, em ta- 
manho natural, apenas as duas últimas 
cores — uma de frente e outra de fun- 
do — aparecerão. 

Essa limitação no número de cores 
pode causar inconvenientes. Se uma li- 
nha do bloco tiver a cor de frente igual 
à de fundo, o traçado do quadriculado 
naquela linha desaparecerá. Neste caso, 
de pouco valeria modificar' o programa, 
fazendo-o redesenhar o quadriculado; 
isso, na verdade, criaria novos proble- 
mas. Na realidade, o traçado está ali: só 
não podemos vê-lo. porque ele tem a 
mesma cor do fundo. 

O programa tem ainda outras fun- 
ções, disponíveis a qualquer momento 
durante a edição de um bloco. Uma de- 
las "guarda" o bloco em um banco dc 
memória, que fica protegido na parte al- 
ta da memória. Para fazer isso. basta 
apertar a tecla G. 

O programa solicita então um núme- 
ro correspondente à posição que o blo- 
co ocupará no banco de memória. Esse 
número pode valer de 0 a 255. Uma vez 
informado da posição desejada, o com- 
putador mostra o bloco, em tamanho 
naluraJ.no alto da tela. Ali fica repre- 
sentado todo o conteúdo do banco de 
memória.. Um mesmo bloco pode ser 
guardado em várias posições diferentes. 

Outra opção oferecida é a de "recu- 
perar" um bloco que esteja no banco, 
trazendo-o de volta ao quadriculado, 
onde ele pode sofrer modificações. Isto 
é feito pela tecla R. Note que apenas o 
desenho do bloco é trazido para o qua- 
driculado. O bloco permanece 
guardado no banco, e só iàgS^rK 

apagado quando- "jjtiflH 
outro for guardado na , 
mesma posição. 
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COMO GRAVAR OS BLOCOS EM FITA 



Após tanto trabalho, você certamente 
vai querer gravar os blocos criados pa- 
ra um eventual uso futuro. O programa 
dispõe, para tanto, de uma função de 
gravação em fita, acompanhada de ou- 
tra, que permite a leitura de um banco 
previamente gravado. 

Para gravar ou ler uma fita, é preci- 
so pressionar a tecla T. O computador 
perguntará então se você deseja um SA- 
VE ou um LOAD. Se você escolher gra- 
var, o banco de memória será transferi- 
do em bloco para a fita. Portanto, não 
se esqueça de guardar o último bloco 
que estava sendo editado. 

O banco de memória utilizado nada 
mais é do que uma região da memória 
do micro, protegida para esse fim. Ela 
contém, no entanto, alguns valores inú- 
teis para nós (lixo, no jargão do progra- 
mador). Esse "lixo" não é visível duran- 
te a execução do programa, mas pode 
ser transferido para a fita, quando não 
usamos todas as 256 posições. Ele torna- 
se visível quando carregamos um ban- 
co da fita. 

Em geral, as posições múltiplas de 16 
apresentam pontos aleatórios. Esse pro- 
blema, porém, só afeta posições não 
ocupadas, nunca interferindo nos blo- 



cos. Da mesma forma, se interromper- 
mos o programa por qualquer motivo, 
ao voltarmos a executá-lo, não veremos 
o banco na tela; mas todos os blocos 
criados estarão lá, podendo ser recupe- 
rados, especialmente quando soubermos 
suas posições. 

Quando quisermos ler um conjunto 
de blocos da fita, o programa oferecerá 
a opção de ver seu conteúdo por meio 
da tecla V. Se soubermos exatamente 
onde estão os blocos, podemos poupar 
tempo e trabalho. Nesse caso, a tecla 
< ENTER > nos trará de volta à edição 
(não veremos nada na tela, mas todo o 
conteúdo do banco estará lá, podendo 
ser recuperado). 

A próxima parte deste artigo explica- 
rá como utilizar estes e outros recursos 
do programa para criar blocos gráficos, 
bem como as formas de utilizá-los em 
outros programas. 

10 CLEAR 200,Í.HD000;SCREENl:FOR 
1-28*8 TO 28*8+7:A=VPEEK(BASE< 
7)+I) :AS-A$+CHRS <A) :NEXT:COLOR 
1,15,15:C-1:F-15:C1-C:C2-F:SCRE 
EN 2.0 

20 DIM B(6,8> :SPRITES(0)-AS:ON 

STRIG GOSUB 500,500:STRIG(0) ON 

30 GOSUB 1430 

50 X=96;Y=64:GOT0 200 

60 KS-INKEYS : IF KS-" THEN 60 

70 A=STICK(0) 



T (B , 170) rPRINTtl . "o número do b 
loco :":CL0SE 1 : GOSUB 9200 
1010 X$-INKEYS:IF X$-"" THEN 10 
10 

1015 1F X$-CHRS(13) THEN GOSUB 
9100-GOTO 1050 

1020 IF X$-CHRS(29) AMD N>0 THE 
N N=N-l:GOSUB 9200:GOTO 1010 
1025 IF XS-CHRS(28) AND N<255 T 
HEN N=N+l:GOSUB 9200:GOTO 1010 
1030 IF XS-CHRSUl) AND N>9 THE 
N N-N-]0:GOSUB 9200:GOTO 1010 
1040 IF XS=CHRS(30) AND N<245 T 
HEN N=N+10-GOSUB 9200:GOTO ]010 
1045 GOTO 1010 

1050 FOR 1=0 TO 7 : P (I ) = PEEK (ItiD 
I0Q+N*8+I] 

1052 FOR 1 = 0 TO 7 : P (1 ) =PEEK (S.HD 
100+N*8+I> 

1055 C(I)=PEEKUHE100+N*8+I> 
1060 FOR J-7 TO 0 STEP -1 
1070 B(I.J)-PU)-INT(P(I)/2)*2: 
P(T)=INT(P(I)/2) 

1080 IF B(t,J)=0 THEN LINE (96+ 

B*J+J . 64+8*1+1 ) - (96+8*,J+6, 64+8* 

1+7) .C(T)AND15,BF ELSE LINE (9 

6+B*J + ] . 64+8*1+1 ) - (96+B*,I + 6.64+ 

8*1+7) . (CÍT)-(C(I>AND15))/16,BF 

] 090 NF.XT .1 . 1 : RETURN 

1430 FOR T-96 TO 160 STEP 8 ! LIN 

E (I .64) - 11 . 128) . 1 : NEXT 

1440 FOR 1=64 TO 128 STEP 8 : LTN 

E (96. I) - M60.I) . 1 ■ NEXT 

1450 RETURN 

1S00 N=0GOSUB 9000 : PRtNTfl . "Us 
e as setas para eaco i he r " ■ PRE" E 
80 ON A GOTO 90,130,100.130.110 

.130,120,130 
85 GOTO 130 

90 IF Y>64 THEN Y=Y-8:GOT0 200 
95 GOTO 200 

100 IF X<152 THEN X=X+8:G0TO 20 

D 

105 GOTO 200 , 
110 IF Y<120 THEN Y=Y+8:G0T0 20 

0 

115 GOTO 200 

120 IF X>96 THEN X=X-8:GOTO 200 
125 GOTO 200 

130 IF KS="G" THEN GOSUB 150Q:G 
OTO 200 

140 IF KS="R" THEN GOSUB 1000:G 
OTO 200 

150 IF KS-"T" THEN GOSUB 2000:G 
OTO 200 

160 IF K$="C" THEN GOSUB 2500:G 
OTO 200 

170 IF KS="F* THEN GOSUB 2600:G 
OTO 200 

200 IF C+1M5 OR C+1 = F THEN S = C 

ELSE a-c+i 

210 PUT SPRITE 0. (X.Y) .S 
220 GOTO 60 

500 SWAP Cl, C2: LINE (X+l,Y+l)-( 
X+6.Y+7) .C2.BF 

510 IF C2 = F THEN B ( ( Y-64) /B . (X- 
96)/8)=0 ELSE B ( ( Y-64) /8 , (X-96) 
/B)-l 

520 C( (Y-64) /8) =C*16+F 
530 RETURN 

1000 N-0:GOSUB 9000 : PRINTI 1 . "Us 
e as setas para esrolher" : PRESE 
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TI8.170) :PRINT*l,"o nilmero do b 

loro :*:CLOSE 1: GOSUB 9200 

1510 XS-INKEYS:IF XS-"" THF-N 15 

J0 

1515 TF XS-CHRS(13) THEN fiOSUB 
9100:GOTO 1S50 

1520 IF XS=CHRS(29> AND N>0 THE 
N N=-N-):G0SUB 9200-GOTO 1510 
1525 IF XS=CHRS(281 AND N<255 T 
HEN N=N+l:GOSUB 9200:G0TO 1510 
15.10 IF XS=CHR$Í31) AND N>9 THE 
N N=N-10-(!OSLJB 9200:GOTO 1510 
1540 IF XS=CHRS(30) AND N<245 T 
HEN N=N+J0:C.OSU8 9200-nOTO 1510 
1545 COTO 1510 

1550 FOR 1*0 TO 7:P(I)-0:FOR J= 
0 TO 7 

1560 P(I)-P(I)+B(I,J)*2*(7-J) 
1570 NEXT J 

1580 POKE S.HD100*N*8*I,P(I) 
1585 POKE i.HE100+N"6 + I,C(I) 
1590 VPOKE BASE(12)+N*8+I.P(I) 
1600 VPOKE BASE(11)+N*8*I.C(I) 
1610 NEXT I : RE TU RN 
2000 GOSUB 9000 : PRINTI1 , " (S) AUE 

OU (L)OAD ?" 
2010 X3-INK£YS:JF XSO"S" AND X 
3<>-L" THEN 2010 
2020 GOSUB 9100:IF XS""L" THEN 
2100 

2030 GOSUB 9000:PRlNT»l."Posici 
one o gravador";PRESET<8,170) :P 
R1NTIl.'e aperte <ENTER>" 
2035 IF INKEYSOCHRS (13) THEN 2 
035 

2040 BSAUE "CAS : UDG" , Í.HD1 00 . LHF 
37F 

2050 GOSUB 9100:RETURN 

2100 GOSUB 9000:PRINT»1 . "Pobici 

one o gravador " : PRESET (8,170) : P 

HINT*l,"e aperte <ENTEfi>" 

2105 IF INKEYSOCHRSU3) THEN 2 

105 

2110 BL0AD "CAS:" 
2120 GOSUB 9100 

2130 GOSUB 9000 : PRINTI 1 , " (V) pa 
ra ver o banco" : PRESET (8 . 1 701 : P 
RINTI1 . " (ENTER) para voltar a e 
dição" 

2140 X$=1NKEYS:IF X$="" THEN 21 
40 

2150 IF X$-CHR$flll THEN GOSUB 
9100 rRETURN 

2160 IF XSO"V" THEN GOTO 2140 

21 70 FOR N=0 TO 255 

2180 FOR J=0 TO 7 

2190 VPOKE BASF<12)*N*8+J.PEEK( 

L HD 1 00+N*8+J) 

2200 VPOKE BASE ! 1 ) *N*8+J , PEEK ( 
IHE100+N*B+J) 
2220 NEXT J,N 
2230 GOSUB 9100:RETURN 
2500 GOSUB 9000 : PR 1 NT| 1 , " Niimer o 
da cor de frente 10-F)" 

2510 XS=INKEY$:IF X$="* THEN 25 
10 

2515 TF XS<"0" OR (XS>"9"AND XS 
<"A") OR XS>"F" THEN 2510 
2520 0=VAL("tH"+XS) :C1«C:C2=F 
2530 GOSUB 9!00:RETURN 
2600 GOSUB 9000 : PRINTI1 . "Nilmero 
da cor de fundo (0-F) ■ 



2610 XS=INKEYSíIF XS-"" THEN 26 
10 

2615 IF X3C-0" OR (XS>"9"AND XS 

<"A") OR XS>"F" THEN 2610 

2620 F«VAL("iH"+XS) :C1=C:C2-F 

2630 GOSUB 9100 rRETURN 

9000 OPEN "GRP : " FOR OUTPUT AS 

11 r PRESET (8, 160) : COLOR 1 , 15 :RET 

URN 

9100 CLOSE 1 : LINE (0 , 160) - (255 , 
191) , 15 , BF : RETURN 
9200 LINE (190 , 168) - (255. 191) , 1 
5, BF; GOSUB 9000 : PHESET { 1.90 . 168) 
! PRINTI 1 ,N:CLOSEl : RETURN 




Até agora, sempre que precisávamos 
de um desenho em alta resolução, usá- 
vamos o comando DRAW. Este é mui- 
to bom para Figuras móveis, devido à ve- 
locidade de operação. Ele apresenta, 
contudo, dois inconvenientes: a exten- 
são dos dados, já que as regras de defi- 
nição das figuras são bem complicadas, 
e a dificuldade na utilização de cores, 
pois as figuras ficam deformadas quan- 
do coloridas. 

O Apple e o TK-2000 também podem 
mostrar na tela caracteres definidos pe- 
lo usuário, usando regras bem seme- 
lhantes às dos demais micros. Tais re- 
gras devem ser empregadas quando for 
importante a cor, mas não a velocida- 
de. Convém, nesse caso, consultar as se- 
çòes correspondentes, dedicadas a ou- 
tros computadores. 

Quando executamos o programa, ve- 
mos um quadriculado de 8 x 8 pontos 
na tela. Este será o "papel quadricula- 
do" onde desenharemos nosso bloco 
gráfico. 

Temos também um cursor, na forma 
de um ponto. Para movimentá-lo, uti- 
lizamos as teclas Z, X, P e L, como de 
costume. Usando a barra de espaço po- 
demos "acender" o ponto correspon- 
dente, apagando-o com a tecla A. 

Para obtermos caracteres coloridos, 
precisamos entender como o Apple e o 
TK-2000 representam cores na tela. Em- 
bora nosso quadriculado tenha oito 
pontos de largura (ou seja, na horizon- 
tal), na tela aparecerão apenas os sete 
primeiros (a partir da esquerda). São, 
portanto, quarenta posições com sete 
pontos cada, resultando nos 280 pontos 
da tela de alta resolução. Se um ponto 
da linha estiver apagado, aparecerá em 
preto. Caso esteja aceso, contudo, sua 
cor vai depender de sua posição na te- 
la. Se o ponto ocupar uma posição par, 
será violeta. Se ocupar uma posição ím- 
par, será verde. Tais regras se aplicam 
quando o oitavo ponto, que fica na ex- 
trema direita do bloco e não aparece na 
tela, estiver apagado. Se o oitavo pon- 



to estiver aceso, as cores violeta e verde 
serão substituídas por azul e vermelho, 
respectivamente. Se dois pontos adja- 
centes estiverem acesos, assumirão a cor 
branca. 

Existem, assim, seis cores disponíveis 
no modo de alta resolução. Sua exibi- 
ção, porém, está sujeita às seguintes li- 
mitações: 

1. Ponto em coluna ímpar é preto, 
violeta ou azul. 

2. Ponto em coluna par é preto, ver- 
de ou vermelho. 

3. Cada linha de bloco pode ter as co- 
res violeta e verde ou azul e vermelha. 
Não é possível misturar cores de grupos 
diferentes na mesma linha. 

4. Dois pontos adjacentes e acesos fi- 
carão brancos, mesmo que estejam em 
linhas diferentes. 

Deve-se ressaltar ainda que as cores 
dependem da posição do ponto na tela, 
e não no bloco gráfico. Isto quer dizer 
que a cor do ponto varia com a sua 
coordenada horizontaJ — de 0 a 279. 
Como a largura de cada linha de bloco 
na tela é de sete pontos, quando plane- 
jamos um bloco não sabemos quais os 
pontos que irão ocupar posições pares 
ou ímpares. Uma vez que tenhamos de- 
senhado o nosso bloco, podemos guar- 
dá-lo no banco de memória do progra- 
ma. Para isso, basta apertar a tecla G. 
O computador pergunta então em qual 
posição do banco vamos colocar o ca- 
ractere — 0 a 300. Informado esse nú- 
mero, o caractere é mostrado na tela, em 
posição correspondente à do banco e em 
tamanho natural. Sua cor dependerá da 
posição no banco. Para facilitar o tra- 
balho, é conveniente armazenar os blo- 
cos nas posições pares, onde é possível 
planejar as cores, pois as colunas da te- 
la coincidem com as do bloco. Nas po- 
sições ímpares, as cores são de grupos 
invertidos, já que as posições pares e ím- 
pares são invertidas. 

O banco nada mais é que uma por- 
ção protegida de memória. Ele pode 
ocupar a página 2 de gráficos, tornan- 
do o trabalho mais simples. Essa pági- 
na, porém, não deve ser usada enquan- 
to o programa estiver no micro. 

O uso da tecla R permite recuperar 
um bloco gravado no banco, trazendo 
seu desenho para o quadriculado. O blo- 
co recuperado, por sua vez, permanece 
no banco. Um mesmo bloco pode ser 
guardado em diferentes posições. 



COMO GRAVAR EM DISCO E FITA 



Aqueles que dispõem de unidade de 
disco podem usar a tecla T para gravar 
ou carregar todo o conteúdo do banco 



13 APLICAÇÕES 13 



de memória. Feito isso, o computador 
perguntará qual a opção desejada. Se 
você selecionar a primeira opção, o con- 
teúdo do banco será gravado. Não se es- 
queça, portanto, de guardar o último 
bloco editado. 

Quando carregamos um banco, as 
posições que não contêm blocos são 
preenchidas por linhas brancas. 

Quem não dispõe de disco, ou tem 
um TK-2000, deve parar o programa — 
com <RESET> ou <CTRLXxC> 
— para poder gravar o banco de me- 
mória em fita. Para tanto, é preciso usar 
o monitor, digitando CALL -151 — 
ou LM no TK-2000. A seguir, digite (no 
Apple): 
4000. 5FFF W 

No caso do TK-2000, temos algumas 
modificações: 
AOOO.BFFF U -nome" 

Para ler a fita, troque a letra W por R. 

Depois de ter carregado o banco, exe- 
cute novamente o programa. O conteú- 
do do banco poderá ser visualizado por 
meio da tecla T (caso tenham sido fei- 
tas as modificações sugeridas). 

Na próxima parte do artigo, traremos 
mais informações sobre a criação e uti- 
lização de blocos gráficos no Apple. 
Além disso, novas funções serão acres- 
centadas ao gerador de biocos. 



Mj 



10 HOME : HGB : HCOL0R- 3: DIM 

B(B,8) 
20 E - 16384:T - 8192 
30 GOSUB 1030 
50 X - 108 rY - 72: GOTO 200 
60 GET K3:LX = X : LY - Y 
70 IF KS - "I" AND X > 108 THE 
N X = X - 8 : GOTO 200 
BO IF KS - "X" AND X < 164 THE 
N X ■= X + 8: GOTO 200 
90 IF KS - "P" AND Y > 72 THEN 

Y » Y - 7: GOTO 200 
100 IF KS - "L" AND Y < 121 TH 
EN Y - Y + 7: GOTO 200 
110 IF KS - " " THEN BUY - 72 
) / 7,(X - 108) / 8) - 1: HCOLO 
B- 2: GOSUB 500: GOTO 200 
120 IF KS - "A- THEN B ( (Y - 72 
J / 7,(X - 108) / B) - 0: HCOLO 
R= 0: GOSUB 500: GOTO 200 
130 IF KS ■ "G" THEN GOSUB 15 
00: GOTO 50 

140 IF KS ■ "H" THEN GOSUB 10 
00: GOTO 50 

150 IF KS ■ "T" THEN GOSUB 20 
00: GOTO 50 

200 HCOLOB= 0: HPLOT LX + 3 , LY 
+ 4 TO LX + 4.LY + 3: HPLOT LX 
+ 4,LY + 4 TO LX + 3.LY + 3 

210 HCOLOR- 5: HPLOT X * 3,Y + 
4TOX+4.Y*3: HPLOT X + 4, 

Y+4TOX+3.Y+3 



230 GOTO 60 

500 FOB K-X+1T0X+6:HP 
LOT K,Y + 1 TO K.Y + 6: NEXT : 
RETURN 

1000 HOME ! UTAB 22: INPUT "QU 
AL O NUMERO DO BLOCO ?":N: IF N 

> 320 THEN 1000 

1005 FOR I - 0 TO 7:P(I) = PE 
EK {E + N * 8 + I) 
1010 FOR J - 0 TO 7 
1015 B(I.J) - PCI) - INT (P(I) 
/ 2) * 2:9(1) - INT (Pd) / 2 

i 

1020 HCOLOR- 2 * B(I.J): FOR K 

■ 109 + 8 * J TO 114 + 8 * J: 
HPLOT K.73 + 7 « I TO K,7B + 7 
• I: NEXT K,J,I 
1025 HOME : RETURN 
1030 HCOLOR- 3 

1040 FOR I - 108 TO 172 STEP 8 
: HPLOT 1,72 TO 1.127: NEXT 
1050 FOR I - 72 TO 128 STEP 7: 

HPLOT 108.1 TO 172,1: NEXT 
1060 RETUBN 

1500 HOME : VTAB 22: INPUT "QU 
AL O NUMERO DO BLOCO ?";N: IF N 

> 320 THEN 1500 

1502 L - INT (N / 40) :C - N - 
L * 40 

1505 FOR I = 0 TO 7:P(I) - 0: 
FOR J - 0 TO 7 

1510 PU) - P(I) + B(I.J) * 2 ' 
J 

1520 NEXT J: POKE E + N * B * 
I,P(I) 

1525 POKE T + L * 128 + C + 10 
24 * I.P(I) 

1530 NEXT I: HOME : RETURN 
2000 HOME : VTAB 22: INPUT " (S 
)AVE OU (L)OAD 7":AS: IF AS < 
> "S" AND AS < > 'V THEN 2000 
2010 INPUT "NOME DO ARQUIVO 7" 

2020 IF AS - "L" THEN 2100 

2030 PRINT : PRINT CHR3 (4):" 

BSAVE ";ARS;",A";E;",L3000" 

2040 HOME ! BETUBN 

2100 PRINT : PB INT CHRS (4);" 

BLOAD ";ABS 

2110 FOB N - 0 TO 320 

2120 L - INT (N / 40) :C = N - 

L * 40 

2130 FOB I - 0 TO 7 

2140 POKE T + L * 126 + C + 10 

24 * I, PEEK {E + N * 8 + I) 

2150 NEXT I.fJ 

2160 HOME : RETURN 

Aqueles que não dispõem de unida- 
de de disco não devem copiar as linhas 
2000 a 2100, Uma instrução REM deve 
ser colocada na linha 2000. 



El 




Os usuários do TK-2000 não devem 
copiar as linhas 2000 a 2100, fazendo 
ainda as seguintes modificações: 

20 E - 40960:T - 8192 



Quando colocamos o programa pa- 
ra funcionar, ele nos faz duas pergun- 
tas iniciais, relacionadas com o tipo de 
bloco gráfico que queremos criar. 

A primeira se refere ao PMODE de- 
sejado. PMODE4 nos dá uma grande 
resolução em preto e branco ou em pre- 
to e verde apenas. A segunda opção, 
PMODE3, tem uma resolução três ve- 
zes mais baixa na horizontal — pontos 
com o triplo de largura — , mas permite 
que usemos quatro cores. 

A segunda pergunta diz respeito ao 
conjunto de cores que vamos utilizar. 
SCREENO no PMODE4 nos dá preto e 
verde, enquanto em PMODE3 nos dá 
vermelho, azul, verde e amarelo. 
SCREEN1 nos dá preto e branco em 
PMODE4 e ciano, magenta, laranja e 
branco em PMODE3. 

Feitas estas opções, não poderemos 
mais mudar o PMODE sem usar RUN 
novamente, embora possamos mudar o 
SCREEN. 

A seguir, o computador coloca na te- 
la o quadriculado, que é a base para o 
desenho do bloco gráfico. Podemos en- 
tão usar as setas para mover o cursor e 
assim desenhar o bloco. 

Com o cursor sobre um determina- 
do ponto, devemos pressionar <EN- 
TER> para acender esse ponto. Para 
apagar pontos, basta mudar sua cor, co- 
mo veremos mais adiante. 

Dessa forma, desenharemos nosso 
bloco rápida e facilmente. A porção se- 
guinte do programa terá uma opção de 
uso de joystick. 

Como podemos observar, o quadri- 
culado não é o único quadrado na tela: 
abaixo dele há mais oito e à sua direita, 
mais dois. 

Os dois da direita são versões atuali- 
zadas do bloco criado, em modo normal 
e invertido. Ã medida que desenhamos, 
esses dois "modelos" vão mudando, de 
maneira a possibilitar a visualização do 
resultado em tamanho real. 
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...ou u»r os caracteres do próprio micro. 

Os oito quadrados na parte inferior 
da tela servem para guardar os blocos 
que já foram criados. Isso significa que 
até oito blocos podem ser guardados ao 
mesmo tempo no banco de memória do 
programa. Alguns desses blocos não são 
visíveis, uma vez que têm pontos com 
a mesma cor do pano de fundo. Eles não 
mudam junto com a edição, mas sim 
quando guardamos no banco um carac- 
tere recém -criado. 



AS TECLAS DE CONTROLE 



O programa tem uma série de teclas 
de controle, que nos possibilitam fazer 
opções. 

Duas delas são fundamentais: as te- 
clas S e G. S guarda no banco de me- 
mória o bloco que foi editado. Quando 
pressionamos essa tecla, o programa nos 
pede um número de 1 a 8, que corres- 
ponde à posição do bloco no banco. Is- 
so permite que substituamos qualquer 
um dos blocos do banco. 

Já a tecla G, seguida do número cor- 
respondente, faz a operação inversa — 
recupera um bloco do banco e o coloca 
no quadriculado. Embora o programa 
utilize uma rotina em linguagem de má- 
quina, o processo leva alguns segundos. 

Recuperar um bloco não modifica o 
conteúdo da posição correspondente no 
banco. Assim, podemos recuperar um 
determinado bloco do banco, trazendo- 
o para o quadriculado quantas vezes 
quisermos, desde que não guardemos 
nada na mesma posição do banco. 

Essa parte do programa utiliza duas 
outras teclas de controle. Se pressionar- 
mos C, mudaremos a cor. Se estivermos 
em um modo com quatro cores, pode- 
mos usar qualquer uma delas. No mo- 
do de duas cores, escolhemos uma ou 
outra. Selecionada a cor adequada, 
podemos apagar qualquer ponto, corri- 
gindo, assim, eventuais erros cometidos. 
Após digiar C, devemos informar o nú- 
mero da cor desejada. 

A última tecla de controle dessa par- 



Blocos maif largos no TRS-Color. 

te do programa é T, que permite a gra- 
vação ou a recuperação de todo um ban- 
co de memória contendo oito blocos. 



10 CLEAR 200, 30998 : DEFU8RQ-3100 

0 

20 T-0:FOR K-0 TO 43 : READ N:T-T 
+N:POKE K+31000.N:NEXT:READ C:I 
F TOC THEN PBINT 'ERRO NOS DAD 
OS" : END 

50 DATA 189,179.237.31,3,142,12 

3,12,230,192,134,8,183,121,68,7 

9,88,73,122,121,68,125,121,23 

60 DATA 39.5,88,73,122,121,66.1 

67, 12B, 125,121,68,38,233,140,12 

5.76,38,221,57,4725 

110 CLS:PBINT"SELECIONE MODO GB 

AFICO (3-4) "i 

120 AS-INKEY$:IF AS<"3" Ofi AS>" 
4" THEN 120 

130 T-5-VAL (AS) : PBINT AS 

140 PBINT"SELECIONE TIPO DE TEL 

A(O-l)"; 

150 AS-INKEYS:IF AS<"0* OB AS>" 
1- THEN 150 

160 PBINT AS:ST-VAL<A3) 
200 PMODE 5-T.l 

210 DIM A(14) ,C1 (1) .C2U) .C3 (1) 
.04(1) 

220 PCLS 4:GET(0,0) -(9,5) ,C4,0 
230 PCLS 3:GET(0,0)-[9,5) ,C3,0 
240 PCLS 2:GET(0,0)-{9.5) ,C2,G 
250 PCLS l:GET(0,0)-[9,5) ,C1,G 
260 PCLS: SCREEN l.ST 
270 C— l:F-3*T-2:GOSUB 2070 
260 FOR X-6 TO 255 STEP 32:C-(C 
+1) AND 3:COLOR C+l : LINE (X, 165) 
- [X+23, 188) , PSET, BF:NEXT: COLOR 
6-T 

290 FOR X-3 TO 147 STEP T"6:LIN 

E (X.3)-(X,147) ,PSET:NEXT 

300 FOR Y-3 TO 147 STEP 6:LINE 

(3 , Y) - (147 , Y) ,PSET:NEXT 

310 X-12:Y-12 

320 Xl-X*6+4:Yl-Y*6+4 

330 PUTfXl,Yl)-(Xl+5*T-l.Yl+4) . 

Cl.NOT 

340 A3-INKEY3 

350 GOSUB 1500 

360 IF A3-" THEN 360 

370 ON INSTRCPCTROSMIV ,A3) GO 

SUB 2200,2500,2300,2800,2600,27 

00,2900,2100,2400 

380 IF Y<0 THEN Y-23 

390 IF Y>23 THEN Y-0 



400 IF X<0 THEN X-24-T 
410 IF X>23 THEN X-0 
420 GOTO 320 

1500 PUT (Xl,Yl)-(Xl+5*T-l,Yl+4 
) ,C1,N0T 

1510 IF PEEK 13 381 "191 OOSUB2000 
1520 IF PEEK(343)-247 THENX-X-T 
1530 IF PEEK(344)-247 THENX-X+T 
1540 IF PEEK(341)-247 THENY-Y-1 
1550 IF PEEK (342] -247 THENY-Y+1 
1560 RETURN 
2000 GOSUB 4000 

2010 P-3*Y+INT[X/B) :PX-7-X+8*IN 

T(X/8) 

2020 IF T-2 THEN VL-F-1 ELSE VL 
— (F-l) 

2030 PK-PEEK(P+VARPTR(A(0))) 
2040 PK-PK AND(255.1-2'PX) :IF T 
-2 THEN PK-PK AND(255. 1-2* (PX-1 

)) 

2050 PK-PK OR UL"2" (PX+l-T) 
2060 POKE P+VARPTR(A(0) ) ,PK 
2070 PUT (216,10)-(239,33) ,A,PS 
ET 

2060 PUT (216,70)-(239,93) ,A,PB 

2090 BETUBN 
2100 RETURN 
2200 RETURN 

2300 AS-INKEY3:IF AS<>"3- AND A 

30"L" THEN 2300 

2310 IF A3-"S" THEN 2330 

2320 CLOADM : SCREEN 1 , ST : RETURN 

2330 CSAVEM"". 6800, 7679, 6600 

2340 SCREEN 1 , ST : RETURN 

2400 ST-1-ST;SCREEN 1 , ST : RETURN 

2500 A3-INKEYS:IF A3<"0' OR AS> 

"8' THEN 2500 

2510 F-((VAL(A3)-1)AND 3)+l:RET 
URN 

2600 AS-INKEY3:IF AS<"1" OR A9> 

"8* THEN 2600 

2610 J-VAL{A3)-1 

2620 GET(J*32+8,165)-{J*32+31.1 

88) ,A 

2630 GOSUB 3000: GOTO 2070 

2700 A3-INKEYS:IF A3<"1" OR AS> 

"8" THEN 2700 

2710 J-VAL (A3) -1 

2720 PUT(J*32+B,16S)-(J«32+31.1 

86) . A , PS ET 
2730 RETURN 
2800 RETURN 
2900 RETURN 

3000 CL-F:POKE 30999 , T-l : N-USR0 
(VARPTR{A(0) ) ) 

3010 FOR K-0 TO 23:FOR J"0 TO 2 
3 STEP T: F-PEEK ( 31500+K*24/T*J 
/T)+3-T 

3020 Xl-J*6+4: Yl-K«6+4 

3030 GOSUB 4000:NEXT J,K:F-CL:R 

ETURN 

4000 ON F GOTO 4010,4020,4030,4 
040 

4010 PUT(Xl,Yl)-(Xl+5*T-l.Yl+4) 
, Cl, PSET: RETURN 

4020 PUT(Xl,Yl)-tXl+5*T-l.Yl+4) 
,C2.PSET:BETURN 

4030 PUT(Xl,Yl)-(Xl+5*T-l.YH-4) 
,C3, PSET: RETURN 

4040 PUT(Xl.Yl)-(Xl+5*T-l.Yl+4) 
,C4, PSET: RETURN 
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Apesar de seu nome estranho, o comando ■ 

INKEY$ não é nenhum bicho-de-sete- M 

cabeças. De grande importância para a ■ 

programação de jogos, ele pode, M. 

contudo, ser facilmente substituído. =- 




usuário pressione alguma tecla. No pro- ra examinar uma posição absoluta de 
grama apresentado, por exemplo, pode- memória (veja artigo da página 261), 
riamos colocar outras linhas de progra- pode ser usada para "varrer" o recla- 
mação entre as linhas 1010 e 1020 (para do. A locação de memória número 39 
contar o tempo passando, movimentar (decimal) serve para essa finalidade. En- 
objetos gráficos na tela etc). quanto nenhuma lecla for pressionada 

Ora, o GET não permite fazer isso. essa locação conterá o número 48 (de- 

Dai por que se torna necessário encon- cimal). Quando uma tecla for pressio- 

trar um substituto. nada, um valor diferente deste será de- 

Não existe nenhum comando ou fun- posiiado automaticamente na memória, 

ção específicos para isso no TK-2000. O programa seguinle ilustra como po- 

Porém, a função PEEK, que é usada pa- demos aproveitar essa propriedade: 




COMO FUNCIONA 0 INKEY$ 
UM SUBSTITUTO PARAOINKEYS 
APLICAÇÕES PARA 0 PEEK 
UM INKEY$ MAIS SOFISTICADO 
LIMITES DE TEMPO 



IIIIIIIIIIIHM 
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10 HOME 

20 LET K-PEEKU9) 

30 IP K<>48 THEN PRINT K 

40 O0T0 20 

A linha 20 copia o conteúdo da me- 
mória 39 na variável K. A 30 mostrará 
esse valor na teia apenas se ele for dife- 
rente de 48, ou seja, se alguma tecla ti- 
ver sido pressionada. Em caso contrá- 
rio, o programa saltará de novo para a 
linha 20, de modo a manter vigilância 
sobre a memória 39. 

O único problema é que os códigos 
numéricos retornados para cada tecla 
pressionada nao correspondem ao códi- 
go ASCII dos caracteres aos quais elas 
estão atribuídas. 

Essa dificuldade, entretanto, pode ser 
facilmente solucionada por uma peque- 
na tabela de conversão, mostrada no fim 
deste artigo. Mas, se você preferir, po- 
de descobrir quais são esses códigos 
usando o programa. 

Para entender melhor como o co- 
mando PEEK (39) pode ser usado no lu- 
gar do comando INKEYS, acompanhe 
o programa apresentado a seguir. Ele 
desenha uma reta na tela, orientada em 
determinada direção. Pressione uma das 
teclas de controle do cursor (flechas) 
uma única vez, e a linha sofrerá uma 
mudança de direção. 

Ao ser acionada a tecla < FIRE> , o 
programa terminará. 

10 HGP2 : HCOLOR 3 
20 LET X-100:Y-90:DX-l:DY-0 
30 HPLOT X,Y 
40 FOR 1-1 TO 40:NEXT I 
50 LET P"PEEK t 39) 
60 IF P-48 THEN X-X+DX : Y-Y+DY : 
GOTO 30 

70 IF P-36 THEN DX-0 : DY-- 1 : GOTO 
30 

BO IF P-30 THEN DX-0 : DY-1 : GOTO 
30 

90 IF P-1S THEN DX— 1 : DY-0 : GOTO 
30 

95 IF P-24 THEN DX-1 : DY-0 :GOTO 
30 

100 IF P-46 THEN TEXT : END 
110 GOTO 30 

O laço principal do sistema está com- 
preendido entre as linhas 30 e 1 10. A cor 
e a posição inicial do ponto da tela são 
definidos nas linhas 10 e 20. A linha 20 
também define duas variáveis, DX e 
DY, que darão o incremento a ser so- 
mado a cada coordenada — X e Y — , 
quando o ponto for deslocado. Note 
que, com DX = 1 e DY = 0, inicialmen- 
te o ponto vai se deslocar de um em um 
só na direção horizontal. 

A linha 50 examina a memória vin- 
culada ao teclado. Se nenhuma tecla ti- 
ver sido pressionada, o código resultante 



é 48, e as variáveis X e Y são incremen- 
tadas de DX e DY, respectivamente, na 
linha 60. 

As linhas 70 a 100 verificam qual foi 
a tecla pressionada. Observe que os có- 
digos 36, 30, 18 e 24 correspondem às 
teclas do cursor; se uma destas for pres- 
sionada, os valores de DX e DY serão 
ajustados de modo a provocar movi- 
mento na direção apontada (a linha 40, 
por sua vez, serve apenas para diminuir 
a velocidade de deslocamento do ponto 
na tela). 

Finalmente, a linha 100 interrompe- 
rá o programa, quando a tecla <FI- 
RE> for pressionada. 



UM INKEVS MAIS SOFISTICADO 



O uso do comando PEEK implica a 
necessidade de trabalhar com valores 
não padronizados de códigos de teclas. 
Isso pode ser desvantajoso em muitas 
aplicações onde se deseja receber o có- 
digo ASCII da tecla, como também em 
programas de senha secreta (veja pági- 
na 166), e outros. 

Infelizmente, não existe nenhum 
PEEK apropriado para trabalhar com 
valores ASCII. Mas podemos "enxer- 
tar" em nosso programa em BASIC 
uma pequena rotina em linguagem de 
máquina (cujo funcionamento não será 
explicado por enquanto), que atribua a 
um PEEK essa propriedade. 

Digite o comando NEW para apagar 
o programa anterior, e entre e execute 

0 programa abaixo: 

1 FOR I-76B TO 774 

2 READ N:P0KE I,N:NEXT I 

3 DATA 32,67,240.141,0,4,96 

Como você deve ter notado, aparen- 
temente não acontece nada. Tudo que 
o programa faz é carregar um progra- 
minha de sete bytes em código de má- 
quina numa parte não usada da memó- 
ria do micro, que começa na locação 
768. Isso é feito por intermédio do co- 
mando POKE na linha 2. O programa 
está armazenado na linha DATA. 

Depois de rodar o programa, você 
pode apagá-lo com o comando NEW, 
pois ele não será mais necessário (o pro- 
grama em código de máquina ficará ar- 
mazenado até que a máquina seja desli- 
gada). Mas, se você preferir, pode tam- 
bém deixá-lo onde está. 

Para fazer funcionar esse programa, 
é preciso utilizar o comando CALL 768 
(que indica o endereço onde começa o 
programa). Toda vez que isso é feito, o 
computador "varre" o teclado e retor- 
na a um valor numérico corresponden- 
te ao código ASCII da tecla pressiona- 



da, mais 128. Se nenhuma tecla for pres- 
sionada, o código 0 será retornado. Pa- 
ra encontrar esse valor, usamos o co- 
mando PEEK (1024). 

O programa abaixo faz um teste. 

10 HOME 

20 CALL 768 

30 K-PEEKU024) 

40 IF K>0 THEN PRINT K 

30 GOTO 20 

Como você já deve ter observado, a 
lógica do programa é bem clara: a linha 
20 chama a rotina de máquina e retor- 
na o código da tecla pressionada na lo- 
cação 1024 de memória. 

A linha 40 imprimirá esse valor se es- 
te for maior do que 0. 

Ao executar o programa você nota- 
rá que os valores retornados aparente- 
mente não pertencem ao código ASCII. 
A letra A maiúscula, por exemplo, re- 
torna 193; a letra B, 194, e assim por 
diante. Experimente diminuir 128 desse 
valor: o resultado será 65, 66 etc: ou se- 
ja, o código ASCII. 

Tente agora substituir a linha 40 pe- 
lo seguinte programa: 

40 IF K>0 THEN PRINT CHRS(K); 

Em seguida: 

40 IF K>159 THEN PRINT CHRS ( 
K-12B) i 

Qual a diferença entre estas duas 
versões? 



UM PEQUENO TESTE 



Agora, como exemplo do uso do co- 
mando CALL, digite o programa: 

10 HOME:SPEED-10Q 

20 PRINT -TESTE DE DIGITAÇÃO" : 

PRINT 
30 FOR 1-1 TO 10 
40 LET T-0 :NS-"" 
50 FOR N-l TO 7 
55 LET R-48+INT(RND(l) «10) 
60 NS-NS+CHRS(R) :NEXT N 
70 UTAB 10 : HTAB 15: PRINT *)$ 
80 VTAB 2 0 ! HTAB 1 : PRINT * 

" : VTAB 20 : HTAB 1 
90 LET R3-" 
100 FOR J-l TO 7 
110 CALL 768:K-PEEK{1024) 
115 IF K>0 THEN 130 
120 LET T-T+1:IF T>200 THEN 180 
125 GOTO 110 

130 LET KS-CHRS (K-128) :RS-RS+K3 

140 PRINT KS; 

150 NEXT J 

155 VTAB 1 0 : HTAB 15 

160 IF RS-NS THEN PRINT 

"ACERTOU" :G0TO 190 
170 PRINT " ERROU !":GOTO 190 
180 VTAB 10 I HTAB 15:PRINT 

"DEMOROU" 
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O programa gera uma sequencia alea- 
tória de sete dígitos e pede que eles se- 
jam teclados rapidamente. O objetivo 
do exercício é digitar o número todo, 
sem errar, dentro de um intervalo de 
tempo máximo. 

As linhas 50 a 70 geram esse núme- 
ro, armazenando-o na variável NS e 
mostrando-o na tela. As linhas 100 a 150 
efetuam a leitura das teclas pressiona- 
das pelo usuário e a colocam em uma 
variável RS. 

Finalmente, as linhas 155 a 190 veri- 
ficam qual foi o resultado — este pode 
indicar várias alternativas, como erro, 
acerto, ou demora em datilografar to- 
do o número de teste. 

As linhas 1 10 e 1 15 efetuam a "var- 
redura" do teclado para verificar se al- 
go foi pressionado. Em seguida, a linha 
120 aumenta a contagem de tempo (T), 
enquanto o usuário não pressiona ne- 
nhuma tecla. Se alguma tecla foi pres- 
sionada, as linhas 130 e 140 concatenam 
o resultado na variável de resposta e 
mostram o caractere em outra locação 
da tela. 



Quem conhece um mínimo de códi- 
go de máquina será capaz de entender 
facilmente o funcionamento da rotina 
768. Você pode tentar carregá-la no 
TK-2000 usando o Míni-Assembler, em 
lugar do programa apresentado linhas 
atrás. Simplesmente digite ASS e pres- 
sione < RETURN > . Depois, cada vez 
que aparecer um sinal de exclamação, 
digite as linhas abaixo. 

Para sair, pressione as duas teclas 
< RESET > ao mesmo tempo: 

300: JSB SF043 
303 r STA 3400 
306: HTS 

O número 300 está em hexadecimal: 
equivale ao 768 em decimal e é o ende- 
reço de origem da rotina (mas poderia 
ser um número diferente deste). 

O comando JSR pula para a sub- 
rotina em código de máquina armaze- 
nada no endereço F043, hexadecimal, 
que efetua a varredura do teclado (JSR 
equivale ao GOSUB do BASIC). 

O comando STA copia o conteúdo 
do acumulador do micro (onde está o 
código da tecla pressionada) e o arma- 
zena na memória 1024 ($400 em hexa; 
mas poderia ser outra). 

Finalmente, o comando RTS retor- 
na para o BASIC. 







TABELA DE CÓDIGOS DE TECLA 






Caractere 

nenhum 




PEEK (39) 
48 


CALL 768 

0 


Caractere 

C 


ASCII PEEK (391 CALL 768 

67 3 195 


espaço 


32 


12 


1 60 


D 68 9 196 


— ! — 


33 


151 


161 


E 


69 


15 


197 




34 


150 


162 


F 


70 


8 


198 


# 


35 


149 


163 


G 


71 


7 


199 


S 


36 


148 


164 


H 


72 


37 


200 


% 


37 


147 


165 


1 


73 


33 


201 


& 


38 


153 


166 


J 


74 


38 


202 




39 


154 


167 


K 


75 


39 


203 


1 


40 


155 


168 


L 


76 


40 


204 


) 


41 


156 


169 


M 


77 


44 


205 




42 


157 


170 


N 


76 


43 


206 


+ 


43 


163 


171 


O 


79 


34 


207 




44 


45 


172 


P 


80 


35 


208 




45 


161 


173 


O 


81 


17 


209 




46 


46 


174 


R 


82 


14 


210 


/ 


47 


175 


175 


S 


83 


10 


211 


0 


48 


29 


176 


U 


84 


32 


212 


1 


49 


23 


177 


V 


85 
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0 QUE E UM PRINT FORMATADO 


■ 


PARA QUE SERVE 0 


PRINT USING 


■ 


COMO USAR MASCARAS 


DE FORMATAÇÃO 



O comando PRINT USING controla a 
forma com a qual aparecem na tala os 
números e as cadeias alfanuméricas. 

Embora recursos de formatação co- 
mo a vírgula, a função TAB etc, fun- 
cionem bem na maioria das aplicações, 
em alguns casos é interessante contro- 
lar não só o posicionamento de núme- 
ros e nomes a serem exibidos no vídeo, 
como também os seus formatos. Ora, is- 
so não pode ser feito apenas pelo co- 
mando PRINT. Alguns micros dispõem 
para isso de um poderoso comando 
auxiliar do PRINT, que é chamado 
USING. Outros, porém, não contam 
com esse recurso, é o caso das linhas 
ZX-81. Spectrum. Apple II e TK-2000. 
Mais adiante, estudaremos um modo de 
superar essa dificuldade, obtendo efei- 
tos semelhantes aos provocados pelo co- 
mando PRINT USING. 



PARA QUE SERVE 0 PRINT USING 



O PRINT USING facilita a especifi- 
cação de formatos de saída em tela, pos- 
sibilitando a programação de máscaras 
de saída. Para entender melhor como o 
USING funciona, digite o exemplo a se- 
guir, que mostra as raízes quadradas de 
dez números inteiros: 
10 CLS 

20 FOR 1-1 TO 10 

30 PRINT USING "l# it.tltt"; 

I ;EQH(I) 
40 NEXT I 

Os números ficam alinhados em duas 
colunas e a coluna da direita tem todos 
os valores com quatro decimais. Para 
verificar o efeito do PRINT USING, 
substitua a linha 30 por: 

30 PRINT I.SQR(I) 

Para usar a especificação USING 
dentro de um PRINT basta colocar en- 
tre aspas o gabarito de saída. O carac- 
tere sustenido (#) indica onde deve ir 
cada dígito dos elementos da lista de saí- 
da. Um espaço em branco assinala on- 
de começa e termina o gabarito relativo 
■ a cada elemento. O ponto indica onde 
(deve ser feita a quebra entre as partes 



inteira e fracionária. 

O gabarito estabelecido pelo PRINT 
pode ter especificações sucessivas para 
mais de um item de saída (no exemplo, 
o mesmo PRINT mostra a variável I e 
o resultado da raiz quadrada de I, sen- 
do o primeiro com três dígitos). En- 
quanto existirem elementos de saída a 
serem impressos, após o USING, o com- 
putador continuará procurando gabari- 
tos dentro da cadeia entre aspas. 

O USING aceita ainda variáveis al- 
fanuméricas. 

A função STRINGS gera uma cadeia 
de caracteres, com o comprimento de- 
sejado: 
10 CLS 

12 INPUT "QUANTAS DECIMAIS ";N 
15 US-"*» **-" + STRINGS (ND , 
■t*J 

20 FOR 1-1 TO 10 

30 PRINT USING USílrSQRU) 

40 NEXT I 

A tabela apresentada nesta página re- 
laciona os diversos sinais convencionais 
utilizados em um PRINT USING e seus 
efeitos para a especificação de gabari- 
tos, para números etc. 

O PRINT USING encontra suas apli- 
cações mais interessantes na formatação 
de relatórios de saída em tela ou impres- 
sora, onde se requer um controle perfei- 
to sobre o alinhamento de colunas, a 
formatação de valores numéricos etc. 
Uma úrúca variável ou especificação en- 
tre aspas no USING pode ser usada pa- 
ra formatar uma linha de saída inteira 
da tabela. Se a linha for muito longa, 
o programa deve ser estruturado com 
base em vários PRINT USING separa- 
dos por pontos e virgulas. 

É comum, em tabelas com valores mo- 
netários, empregar-se os sinais + e - no 
final (e não no começo) da quantia. Isso 
também é possível no PRINT USING. 

Em programas para preenchimento 
automático de cheques, os sinais S (ci- 
frão), S$ (duplo cifrão), ** (protegido) 
e **$ (cifrão protegido) especificam co- 
mo será preenchida a parte esquerda de 
campos com valores monetários: 

10 MS"" **SI*t. *tl. *•*.«* 

cruzados" 



30 INPUT "DIA,MES,ANO";D.M.A 



60 PRINT USING MS;Q; 

70 PRINT "NO DIA " ; : PRINT USING 

DS i D ; M ; A 

O TRS-80 e o TRS-Color têm as mes- 
mas regras de uso do PRINT USING. 
Os sinais demarcadores são os mesmos, 
e a palavra USING deve suceder a ex 
pressão PRINT. Já o MSX apresenta al- 
gumas diferenças: 

- Em vez do sinal de porcentagem (%), 
esse micro utiliza uma barra inversa ( ^ ) 
para demarcar o espaço das cadeias al- 
fanuméricas. 

- O ampersand (&) serve para indicar 
uma substituição completa por uma ca- 
deia alfanumérica. 

- O termo USING pode ser misturado 
aos itens de uma linha de impressão: 





CARACTERES 
DO PRINT USING 


Sinal 

# 


Efeito 

coloca um dígito numérico 


" coloca um ponto decimal 


' separa a pane inteira em 
grupos de três 


— coloca um sinal negativo 
após um número negativo, 
ou branco após um positivo 


+ 


coloca um sinal - após um 
número negativo ou um sinal 
+ após um positivo 


assinala um formato euponen- 


M 


preenche um campo com aste- 
risco! à esquerda 


$$ 


coloca um cifrão antes de um 
valor numérico 


**$ 


coloca um cifrão e asteriscos 
á esquerda 


t coloca o primeiro caractere de 


(r/ fl assinala o início e o fim de um 
campo alfanumérico 



APERFEIÇOE 
SUAS TELAS 



■ 


A IMPORTÂNCIA 


DE PLANEJAR 


■ 


COMO POSICIONAR 0 TEXTO 


■ 


MELHORE A DIAGRAMAÇÃO 


■ 


ADICIONE COR 



Para dar a seus programas 
uma aparência profissional, você 
precisará planejar cuidadosamente 
a página- tiiulo e outras telas, 
Aqui você aprende a fazer isso. 



Do ponto de visla do usuário, há vá- 
rias diferenças importantes entre um 
programa simples e bem planejado e ou- 
tro que não apresenta essas qualidades. 
A primeira coisa que distingue um pro- 
grama "profissional" de um amadorís- 
tico é, sem dúvida, o funcionamento 
adequado, sem erros e sem rotinas inú- 
teis ou mal aproveitadas. Além disso, 
num nível mais teórico, o programa pro- 
priamente dito deve ser bem estrutura- 
do e claro. As técnicas necessárias para 
lhe assegurar uma boa estruturação e a 
ausência de erros já foram vistas em ar- 
tigos anteriores, 

Porém, mesmo o programa mais bem- 
feito parecerá obra de um principiante 
se não tiver uma boa apresentação e, so- 
bretudo, se as leias não forem bem or- 
ganizadas e fáceis de compreender. Pa- 
ra isso, cada tela, bem como o menu ou 
mensagem que contiver, deve ser cuida- 
dosamente estudada. Sem o posiciona- 
mento correio das declarações PR1NT 
e INPUT será impossível criar telas de 
apresentação clara e interessante. 

No artigo da página 146, examina- 
mos os vários comandos BASIC dispo- 
níveis no seu computador que servem 
para controlar a posição dos caracteres 
na tela. Agora, você verá como usá-los 
para montar uma página-título para um 
jogo imaginário — "INPUT". Técnicas 
similares poderão ser empregadas para 
a elaboração de telas que apresentam 
instruções, menus e mensagens. 



Nada causa pior impressão do que 
uma tela contendo mensagens com er- 
ros de grafia ou sintaxe. 

Você já deve ter observado em mui- 
tos jogos mensagens do tipo "Você tem 
um canhão disponível". Este caso par- 
ticular desabona o programador, sobre- 



tudo porque o erro poderia ter sido fa- 
cilmente corrigido com uma declaração 
IF...THEN (IF L=l THEN PRINT 
"CANHÃO DISPONÍVEL"). Antes de 
começar a se preocupar com os aspec- 
tos visuais da tela, procure assegurar-se 
de ter eliminado todos os erros desse ti- 
po de programa. 

Ao diagramar uma tela, leve em con- 
ta algumas regras básicas. Em primeiro 
lugar, não perca de vista o objetivo prin- 
cipal: a clareza. Palavras muito próxi- 
mas umas das outras dificultam a leitu- 
ra — assim, deixe um espaço razoável 
entre as linhas. Evite também dividir pa- 
lavras; se for impossível, utilize, então, 
o hífen para separar as duas partes. 

Caso precise imprimir na tela dados 
fornecidos pelo usuário — como um no- 
me, em uma lista de recordes — , tenha 
o cuidado de evitar que o novo dado in- 
terfira nos demais. No exemplo citado, 
você poderia incluir uma rotina que não 
aceitasse nomes com mais de um certo 
número de caracteres ou que, indepen- 
dentemente do tamanho do novo dado, 
o colocasse numa posição que não afe- 



tasse a do placar ou de outras informa- 
ções exibidas. 

Sempre que você tiver uma lista de in- 
formações, faça com que todos os da- 
dos comecem numa mesma coluna. A 
recomendação parece óbvia, mas vários 
programadores não procedem assim. 

O segundo aspecto a observar diz res- 
peito ã quantidade de informações. Se 
você incorrer no erro de introduzir in- 
formações em excesso numa mesma te- 
la, quem utilizar seu programa não con- 
seguirá memorizar todas as instruções e, 
em consequência, não explorará todas 
as suas possibilidades. 

Por outro lado, para não ser obriga- 
do a trabalhar com um número exage- 
rado de telas, você não poderá reduzir 
muito a quantidade de informação em 
cada uma delas. O ponto de equilíbrio 
dependerá, naturalmente, do seu pro- 
grama — quanto maior sua facilidade 
de uso e clareza, menos instruções serão 
necessárias. 



Torne a tela o mais interessante pos- 
sível. Se puder use cores. Elas dão mais 
vida à tela, facilitando a compreensão 
das mensagens ou ressaltando determi- 
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nados itens. Estude cada caso para de- 
cidir se utilizará cores no fundo, no tex- 
to, em ambos ou simplesmente na com- 
posição de uma moldura. 

Os usuários do Apple ou do Sinclair 
Spectrum dispõem de um comando mui- 
to versátil — o FLASH. Ele apresenta- 
rá sua mensagem piscando na tela (em 
cores, no Spectrum). Impedindo que as 
instruções assumam uma forma muito 
estática, esse recurso torna o texto bas- 
tante atraente. 

Se você possui outro modelo de mi- 
cro, poderá obter um efeito similar ao 
do comando FLASH, imprimindo o tex- 
to repetidamente no mesmo ponto da te- 
la, em cores diferentes. 

O comando IN VERSE, do Apple, 
também possibilita o destaque de men- 
sagens. Ele é especialmente útil, já que 
não se pode usar cor na tela de texto des- 
se computador. 



Para assegurar a clareza da tela, fal- 
ta ainda um importante elemento: o po- 
sicionamento das palavras. Para ter um 
exemplo, digite e execute este pequeno 
programa. Você verá como não fazer 
uma página-título para o seu programa. 
As palavras estão jogadas na tela: não 
há coordenação entre uma e outra, o 
que resulta numa grande confusão vi- 
sual. Mais tarde, examinaremos como 
arrumar ludo isso. 



10 PRINT "Apresentamos um nov 
o jogo chamado 1 nput" 

20 PRINT AT 5.17;"(c) 1986" 
30 PRINT AT 12.13;" por Nova 
Cultural" 

40 PRINT AT 16 . 18: "qualquer t 



20 PRINTTABUO) ;"mput." 

30 PRIWT:PRINT"copyright 1986" 

40 FORJ'1T0500:NEXT 

50 CLS 
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10 CLS 4 

20 PRINT e40."INPUT" 

30 PRINT 6136, "copyright nova 

ultural" : 

40 PRINT #228, "APRESENTA" 
50 FOR T=l TO 2000:NEXT:CLS 

Para o TRS-80, use apenas CLS r 
linha 10 e multiplique por 2 todos os ví 
lores das instruções PRINT®. 

Jffi 

|lu PR1NTTAB 14) : "novacul tur a 1 a 



10 PRINT TAB( 5) ; "NOVACuLTURA 
t, APRESENTA" 

20 PRINT TAB ( 22);"TNPUT" 

30 PRINT : PRINT "COPYRIGHT 19 



Observe o resultado: trata-se, sem 
dúvida, de uma tela inexpressiva, em 
que vários detalhes precisam ser altera- 
dos. Inicialmente, poderíamos empregar 
letras maiúsculas para melhorar o efei- 
to. A versão para o Spectrum utiliza le- 
tras minúsculas até mesmo para a pri- 
meira palavra da tela e para o nome do 
jogo. Maiúsculas ressaltam palavras im- 
portantes ou, se forem usadas no texto 
inteiro, garantem à tela uma aparência 
bem clara. 

Deveríamos, também, limpar a tela, 
antes de mostrar um novo conjunto de 
mensagens. Como você pôde observar 
no programa anterior, fragmentos do 
que estava na tela misturam-se à men- 
sagem, completando a confusão. 

Não há espaço entre as palavras NO- 
VA e CULTURAL. Deveria haver. Ve- 
remos, adiante, como deixar tudo isso 
em ordem. 

Outra falha do programa é não espe- 
rar que se pressione alguma tecla para 
prosseguir. Assim, não há muito tem- 
po para ler as mensagens antes que elas 
sejam apagadas. Para evitar esse proble- 
ma é sempre interessante incluir uma li- 
nha dizendo o que se deve fazer para que 
o programa continue — quando o usuá- 
rio quiser. 



No Spectrum, sabendo-se o tamanho 
da tela e o número de caracteres que 
compõem as palavras, pode-se planejar 
com muita facilidade o posicionamen- 
to da mensagem. 

Suponhamos que seu computador te- 
nha 22 linhas e 32 colunas; você quer co- 
locar uma frase de dez caracteres na se- 
gunda linha, e bem no meio dela. Ao ve- 
rificar o tamanho da frase, não se esque- 
ça dos espaços. 

Para calcular a coordenada horizon- 
tal da posição onde a frase começará a 
ser impressa, subtraia o tamanho da fra- 
se (10 no nosso caso) do total de carac- 



teres por linha (32) e divida o resultado 
por 2. 

No nosso exemplo, a resposta é 11. 
Como o 0 é considerado, o primeiro ca- 
ractere da linha tem coordenada 0, e não 
1. Assim, devemos subtrair 1 do resul- 
tado acima para conseguir a coordena- 
da horizontal do PRINT AT (ou PRINT 
TAB). 

Se você quiser posicionar uma frase 
a apenas dois ou três caracteres da mar- 
gem esquerda, será mais fácil colocar o 
número de espaços dentro da declara- 
ção PRINT em vez de usar PRINT TAB 
ou PRINT AT. No entanto, se o núme- 
ro de espaços for grande, evite essa téc- 
nica, pois ela tende a gastar muita 
memória. 

Você pode calcular a posição vertical 
como calcula a horizontal — ou seja, 
para colocar a mensagem no centro da 
tela, vê quantas linhas ela ocupa, sub- 
trai esse número do total de linhas e di- 
vide por 2. Por fim, subtrai 1 do resul- 
tado, considerando que a coordenada da 
primeira Unha é 0. 

Quando quiser colocar a linha em ou- 
tra posição, use um papel gráfico para 
visualizar melhor a tela, ou, se já tem 
alguma experiência, estime a posição 
que lhe convém, de memória. 

Os usuários do Spectrum devem ob- 
servar que a instrução PRINT AT fun- 
ciona de modo um pouco diferente do 
dos outros computadores. O primeiro 
número que acompanha essa instrução 
refere-se à coordenada vertical (y) e o se- 
gundo, à coordenada horizontal (x). No 
entanto, o comando PLOT utiliza pri- 
meiro a coordenada x e depois a y. 



DQ 



O número após o PRINT® refere-se 
a uma posição da tela de texto do com- 
putador. Existem 512 posições no TRS- 
Color e 1024 no TRS-80. Os números, 
assim, não podem exceder 511 e 1023, 
respectivamente, já que a numeração co- 
meça no 0. 

O cálculo do número da posição que 
se quer é muito simples. Primeiro, mul- 
tiplique o número da linha desejada por 
32 (esse é o número de caracteres por li- 
nha, no Color) ou por 64 (se você está 
usando um TRS-80). Depois, adicione 
um valor de 0 a 31 (no Color) ou de 0 
a 63 (no TRS-80), para obter a posição 
horizontal. 

Se preferir, deixe que o computador 
faça as contas por você. Para isso, uti- 
lize a seguinte fórmula: PRINT® 
L'32 + C, "MENSAGEM". L represen- 
ta a linha que você deseja (de 0 a 14) e 
C a coluna (de 0 a 31). No TRS-80, use 
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64 em lugar de 32; C pode variar de 0 
a 63. 

Para centralizar uma frase na tela, 
subtraia o total de caracteres da frase do 
total de caracteres da linha (32 ou 64); 
divida o resultado por 2 e subtraia 1 
Você obtém, assim, o número da colu- 
na em que a impressão da frase se ini- 
ciará. Esse valor pode ser utilizado, por 
mplo, com a fórmula dada anterior- 
mente. Lembre-se de que os números 
que seguem a instrução PIÍINT® de- 
vem ser inteiros. 



O posicionamento de mensagens no 
MSX também é muito fácil. Esse com- 
putador usa o comando LOCA TE, se- 
guido da coluna e linha (nesta ordem). 
Assim, para colocar a mensagem no lu- 
gar desejado, basta calcular a coluna e 
a linha. O mesmo comando também po- 
de ser usado com um argumento numé- 
rico, que será interpretado como a co- 
luna onde se iniciará a impressão. 

Como o MSX tem duas telas de tex- 
to, verifique qual delas está em uso pa- 
ra, então, calcular a posição adequada 
de impressão. A primeira (SCREENO) 
apresenta quarenta colunas por 24 li- 
nhas e a segunda (SCREEN1), 32 colu- 
nas por 24 linhas. 



Para centralizar uma frase em deter- 
minada linha, subtraia o total de carac- 
teres da frase do total de caracteres da 
linha e divida o resultado por 2. Esta se- 
rá a posição para o início da frase. 
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O Apple e seus compatíveis empre- 
gam, além do PRINTTAB, os coman 
dos HTAB e VTAB para posicionar c 
cursor dentro da janela de texto. O co- 
mando HTAB determina a posição ho- 
rizontal com valores que variam de 1 í 
40 e o VTAB determina a posição verti 
cal, com valores que vão de 1 a 24. C 
uso de vaJores fora dessas faixas provo- 
cará o aparecimento de uma mensagem 
de erro. 

Para a centralização de uma mensa- 
gem, primeiro caJcule o total de carac- 
teres dela, depois subtraia de 40 e divi- 
da por 2. O resultado obtido deve ser 
utilizado como posição inicial de im- 
pressão da mensagem. 

O interessante, nesse computador, é 



a facilidade com que se pode manipu- 
lar a janela de texto. Essa característica 
torna muito simples a limpeza da linha 
de uma determinada posição até o fim 
dela ou de uma posição até o fim da te- 
la. Utiliza-se o comando CALL -868 pa- 
ra apagar tudo o que estiver à direita da 
posição do cursor até o fim da linha. O 
CALL -958 limpa todos os caracteres da 
janela de texto, da posição do cursor até 
o fim da tela. Desse modo, podemos 
trocar mensagens em locais específicos 
da tela, conservando o resto intocado, I 
com grande rapidez e versatilidade. I 
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UMA TELA BEM-FEITA 



Uma tela pode ser clara e atraente 
mesmo que não empreguemos técnicas 
de programação complicadas. O progra- 
ma dado a seguir é um exemplo disso. 
Ele corrige os defeitos do programa an- 
terior e adiciona cor e animação ao tí- 
tulo, para torná-lo mais interessante. Dè 
especial atenção ao uso dos comandos 
de controle do cursor, pois eles são fun- 
damentais em tudo o que diz respeito à 
impressão na tela. 




5 LET x=l 
10 BORDER li PAPER 1: INK 7: 
CLS 

20 PRINT INVERSE 1 ; AT 3,4:" 

EDITORA NOVA CULTURAL " 

30 PRINT INVERSE 1 : AT 5,10;" 

APRESENTA " 
40 PAUSE 50 

50 PRINT PAPER 6; INK 1 ; AT 
10.10;" INPUT" 
60 PRINT PAPER 6; INK 2 : FLASH 
1 i AT 9,9; TB BiBBHBHBBBHS 
" ; AT 1 1 . 9 L. — — — — — — — — — — — J 

70 PRINT PAPER 6: INK 2; 
FLASH 1;AT 1 0 . 9 ; "H" ; AT 10.21; 

"a" 

80 PRINT PAPES 5; INK 0 : AT 
15.2:"COPiRIGHT AUDIO . VISUAL . 
1981" 

90 PRINT QUALQUER TECLA 

PARA CONTINUAR" 
100 PAUSE 0 
110 CLS 

120 PRINT "INPUT - ÍNDICE" 

130 PRINT 

140 FOR X = l TO 10 

150 READ aS 

155 READ dS 

160 PRINT ' TAB 3;a$;TAB 25;bS 
170 NEXT X 

180 DATA "Animação" . "26-32" . "B 
asic, programação" . "2-7" . "BREAK 
.Spectrum", "7". "Cassetes". "25" 
."Gravadores", "24". "CHRS .uso 
do" . "26-27" , "CLEAR" ,"10-27","C 
LOAD.Dragon" . " 14" . "CLS , expl ica 
cao de" . "27" , "CODE . Spectrum" , 
•B" 

Como você pode observar, o progra- 
ma, inicialmente, muda a cor da tela e 
das bordas, e limpa a tela. Escolha as 
cores de sua preferência, mas procure 
evitar o habitual fundo negro com letras 
brancas. Qualquer outra coisa terá efei- 
to melhor, simplesmente por ser di- 
ferente. 

Não se esqueça, porém, de que a fa- 
cilidade de leitura é indispensável. As- 
sim, para as letras, opte por uma cor que 
contraste bem com o fundo. Fora isso, 
use seu bom gosto: algumas combina- 



ções são, sem dúvida, bem mais agra- 
dáveis que outras. 



POSICIONAMENTO 



As linhas 20 e 30 colocam na tela as 
palavras "EDITORA NOVA CULTU- 
RAL APRESENTA". Observe que o 
npme da empresa fica na primeira linha 
e a palavra "APRESENTA", duas li- 
nhas abaixo. Esse detalhe garante ao 
texto muito maior clareza. 

O programa utiliza o comando 
PRINT AT para posicionar as palavras 
no centro da tela. Tente descobrir quais 
deveriam ser os números dessa instru- 
ção por meio dos cálculos explicados an- 
teriormente. Veja se eles conferem com 
os do programa! 

Ao contrário do programa anterior, 
este posiciona as palavras no lugar ade- 
quado — detalhe que, como você pode 
notar, determina uma grande diferença 
de qualidade entre as telas. 

Pode-se também utilizar a instrução 
PRINT TAB para posicionar a mesma 
palavra, mudando a linha 30 para: 



30 PRINT 'TAB 10; INVERSE I; 
"APRESENTA" 

O apóstrofo junto ao TAB 10 faz 
com que o Spectrum deixe uma linha em 
branco antes de imprimir "APRESEN- 
TA" na tela. Pode-se também obter o 
mesmo resultado simplesmente colocan- 
do uma instrução PRINT vazia (com 
um número de linha apropriado). 

O programa faz uma pausa após es- 
sa mensagem para dar maior ênfase ao 
próximo item que deverá ser impresso, 
o nome INPUT. 

As linhas 50, 60 e 70 imprimem IN- 
PUT com uma borda que pisca em ver- 
melho e amarelo. Essa borda é feita com 
caracteres gráficos da ROM — como se 
vê no programa — com o comando 
FLASH usando vermelho e amarelo. 

Essas linhas utilizam uma série de co- 
mandos PRINT AT e mostram o quan- 
to ele é flexível. Não há necessidade de 
se repetir o PRINT enquanto um ponto 
e vírgula é colocado entre os itens da 
Unha. 

Os vários AT sãc separados por pon- 
to e vírgula. Caso os separássemos ape- 
nas por virgulas, estas colocariam meia 




linha de espaço na leia, o que poderia 
apagar alguma outra coisa que ali se en- 
contrasse. Assim, a não ser que você 
queira apagar o que estiver nesta posi- 
ção da tela, use de preferência o ponto 
e vírgula. 

Como a borda piscante não Fica no 
centro da linha, o cálculo de suas coor- 
denadas não pode ser feito da maneira 
explicada anteriormente. Calcule as po- 
sições tomando as coordenadas da pa- 
lavra central da linha e adicione e sub- 
traia o número necessário para obter os 
resultados para a borda. 

Tomemos, como exemplo, a primei- 
ra linha da borda. Já sabemos que as 
coordenadas da palavra INPUT são 10, 
10. Sabemos também que esta linha fi- 
ca uma acima de INPUT. Então, sub- 
traindo 1 do primeiro número, obtemos 
a primeira coordenada: 9. 

Como queremos que a borda come- 
ce um espaço antes da palavra, nova- 
mente subtraímos I, agora da segunda 
coordenada de INPUT, obtendo 9. 

Calcule os números das outras par- 
tes das bordas e compare seus resulta- 
dos às coordenadas que empregamos. 



O programa completa a tela com uma 
mensagem de direitos autorais (para 
lembrar aos usuários que é ilegal copiar 
programas) e informa que se deve pres- 
sionar qualquer tecla para continuar. 
Ao fazê-lo, não aparecerão instruções 
nem o início de um jogo, mas um índi- 
ce de INPUT. 

Quando se pressiona uma tecla, o 
Spectrum limpa a tela e imprime a men- 
sagem "INPUT — ÍNDICE" em seu to- 
po. A mensagem é posicionada no can- 
to esquerdo da linha. Se quiser centra- 
lizá-la, introduza nove espaços entre as 
aspas e a primeira letra da mensagem. 
Em seguida, o computador deixa uma 
linha em branco, resultado do PRINT 
sem nenhuma mensagem da linha 130. 

O laço FOR...NEXT que se segue lê 
duas variáveis alfanuméricas da linha 
DATA de número 180. Pode parecer es- 
tranho que números de páginas estejam 
armazenados em variáveis desse tipo. 
Observe, no entanto, que às vezes en- 
contramos mais de um número. Sua ar- 
mazenagem numa variável numérica se- 
ria interpretada como uma subtração e, 
quando imprimíssemos o valor da variá- 
vel, iríamos obter o valor- 6, o que cau- 
saria muita confusão! 

Além disso, alguns dados apresentam 
informações separadas por vírgula. Co- 
mo você sabe, esta é a pontuação que 
separa diferentes itens numa linha DA- 
TA. Assim, é necessário colocar esses 
dados entre aspas para que o computa- 
dor não os interprete como coisas dis- 
tintas — com as aspas, ele lê a informa- 
ção como um bloco, sem separá-la. 

A linha 160 controla a impressão das 
informações da linha DATA, determi- 
nando sua posição na tela. 

O PRINT TAB alinha os dados e nú- 
meros de páginas para que todos come- 
cem na mesma coluna, dando à lista 
uma aparência organizada. Ele é muito 
útil na impressão de índices, determi- 
nando a coluna em que o dado começa- 
rá a ser impresso. Nosso programa co- 
loca a indicação na coluna 3 e a página 
na coluna 25. 

Observe que usamos apenas um 
PRINT para imprimir os dois dados na 
linha, sendo que os TAB são separados 
por ponto e vírgula. Se você mudar o 
TAB 25 para TAB (25 + 32) ou TAB 57, 
não notará nenhuma diferença. Quan- 
do se emprega um número maior que 
32, ele é dividido por 32 e o resto é des- 
prezado. O cursor não muda de linha até 
que se utilize o retrocesso — ou seja, até 
que um TAB tenha um valor menor do 
que a posição atua! do cursor. O micro 
pula, então, para a linha seguinte e ne- 
la coloca a informação. 

Experimente mudar os valores do 
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TAB para ter uma idéia melhor do que 
eles significam em termos de posição na 
tela. Lembre-se de que esta tem 32 ca- 
racteres por linha. 

O PRINT AT e o PRINT TAB, em- 
bora muito parecidos, são usados em 
circunstâncias diferentes. Sempre que 
você quiser imprimir uma lista de pala- 
vras ou números na tela, utilize PRINT 
TAB. PRINT AT é mais poderoso pa- 
ra a impressão de mensagens isoladas 
em determinado ponto da tela. 



Digite este programa e veja como o 
PRINT® pode ser usado para produ- 
zir uma página-título adequada: 

10 CLS 3:B3=CHE3(128) 

20 PRINT e71,BS;"nova":BS;"cult 

ural" ;BS; 

30 PRINT 61 38 , "APRESENTA* ; 

40 PRINT ê35B.BS;"copynght";BS 

; BS : BS ; "1986" ;BS i 

50 PHINT e232.CHRS<190) ;STRINGS 

[11 . CHRS (188) ) :CHRS (189) ; 

60 PRINT ê264.CHRS(234) ;" I N P 

U T " ; CHRS (229) ; 
70 PRINT ê296,CHRS(155) :STRINCS 
(11. CHRS (14 7)) ; CHRS (151) ; 
80 PRINT 6448," QUALQUER TECLA 
PARA CONTINUAR " ; 
90 J-1-J:SCREEN 0.J 
100 FOR K-l TO 200:NEXT 
110 IF INKEXSO" " THEN 130 
120 GOTO 50 
130 CLS 4 

140 PRINT §7 . "INPUT - ÍNDICE"; 
150 FOR X-3 TO 12 
160 READ DS.ES 

170 PRINT #32«X+1.DS; ;PRINT S32 
*X+25,LEFTS(" "+ES+" ".7); 
180 NEXT X 

190 DATA ANIMAÇÃO. 26-32. "BÁSIC. 
PROGRAMAÇÃO" . 2-7 , "BREAK . DRAGON" 
. 7 . "CASSETE , FITAS" . 25 . "CASSETE , 
GRAVADORES", 24, "CHRS. USO DE" . 26 
-27.CLEAR."10.27","CLOAD.TRS",1 
4 . "CLS. EXPLICAÇÃO" , 27 , "CODE.SPE 
CTRUM" ,8 
200 GOTO 200 

O programa começa mudando a cor 
da tela para azul, na linha 10. O resto 
da linha iguala B$ a um quadrado escu- 
ro. As linhas 20 e 40 imprimem as pala- 
vras em caracteres reversos, usando B$ 
como um espaço. Lembre-se de que os 
caracteres reversos do TRS-Color 
aparecem em minúsculo nas listagens. 

A linha 30 é similar, com uma dife- 
rença: como a palavra APRESENTA é 
menos importante, aparece em caracte- 
res maiúsculos normais. 

No centro da tela está o título INPUT 
rodeado por um bloco gráfico colorido. 
Os caracteres e o título são impressos pe- 
las linhas 50 a 70. 
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O manual indica os caracteres gráfi- 
cos que estão disponíveis. Eles são cons- 
tituídos por áreas verdes e áreas escuras. 
Adicionando-se um múltiplo de 16 ao 
código do caractere, o verde pode ser 
substituído por amarelo, azul, vermelho 
etc. 

As áreas da tela coloridas de verde 
são aquelas em que a cor de fundo apa- 
rece. E fácil mudar a cor da tela do ver- 
de para o laranja e produzir um efeito 
pisca-pisca. Para a mudança, a linha 90 
usa o comando SCREEN de maneira si- 
milar à utilizada para mudar a cor de 
gráficos de alta resolução. SCREEN 0,1 
muda a cor da tela para laranja e 
SCREEN 0. 0 traz de volta o verde. O 
programa troca a cor da tela a cada exe- 
cução do laço. 

Para que se possa apreciar melhor a 
mudança de cor, a linha 100 estabelece 
uma pequena pausa. A linha 120 vai fe- 
char o laço. 

Se alguma tecla é pressionada en- 
quanto a página está sendo mostrada, 
a linha 1 10 faz com que o programa pas- 
se para a parte seguinte. 

A linha 130 muda a tela para verme- 
lho. A linha 170 e o laço FOR... N EXT 
das linhas 150 e 180 encarregam-se de 
imprimir os dados lidos da linha 190. A 
cada execução do laço, uma nova linha 
é usada para a referência e o número de 
linha. O LEFTS faz com que o número 
da linha apareça sempre num painel do 
mesmo tamanho, o que assegura um vi- 
sual bastante claro. 

O toque final cabe ao laço da linha 
200 que, embora não pareça, é bem im- 
portante. Sem essa linha, o programa 
colocaria uma mensagem de prontidão 
na leia, desfigurando nosso trabalho. 



Vejamos uma tela mais cuidada pa- 
ra apresentar o nosso jogo: 

10 COLOB 15.12.12:KEYOFF 

20 SCREENl:CLS:ZS-CHR5(lt 

30 PBtNTTAB (8) ; "NOVA CULTURAL" 

40 PBINT : PRTNTTAB (6) ; "A P R E S 

E N T A" 
50 LOCATE 11.9:PRTNT7$+CHRS(B8) 
i :FORX=JT05:PRINT ZS+CHRS (B 7 ) ; : 
NEXT:PRINT2S+CHHS (B9) 
60 LOCATE 11,10: PRINT25+CHRS (86 
I :"INPUT"iZS+CHRS(86) 
70 LOCATE 1 1. 11 :PRINTZS+CHRS (90 
) ; :F0RX=1T05:PRINT ZS+CHRS i H 7 ] ; 
•NEXT : PRINTZS+CHRS (91 ) 
80 LOCATE 5 . 19 : PRINT"Copyr i ght 
(C) 1986- 

90 LOCATE 2.22:PRINT"recle a ba 

rra de espaços" 
■100 IF INKEYS=""THEN100 
I 110 CLS:I.OCATE 7:PRrNTCHRS(207) 



;"INPUT - INDTCE" : CHRS (20B) 

120 FOB ,] = 1T07: LOCATE 0.7*J+õ 

130 READ AS.BS 

140 PR l:NTAS:TAB(2U ; BS 

150 NEXT 

160 COTO 160 

170 DATA ANIMAÇÃO. 26-32 , PROC-RAM 
AÇAO BASIC , 2- 7 . "CTRL -STOP , MSX" 
,8. SISTEMA OPERACIONAL , 25 , CONTR 
OLADORES DE DISCO , 74 . "CHRS . uao 
do', 26-27. "POKE. como uaar o". 
27-28 

O programa começa mudando a cor 
da tela para verde, com caracteres bran- 
cos, e desativando as indicações das te- 
clas de função. Em seguida, seleciona a 
tela de texto de 32 colunas e define a va- 
riável ZS como o caractere de código 1 . 
Adiante, veremos a utilidade dessa va- 
riável. 

As linhas 30 e 40 colocam na tela, de 
forma organizada, a mensagem "NO- 
VA CULTURAL APRESENTA". O 
PR1NT TAB, com um valor adequado, 
encarrega-se de centralizar as palavras, 
enquanto o PRINT vazio que inicia a li- 
nha 40 produz o espaço de uma linha en- 
tre as palavras. 

As linhas 50 e 70 imprimem o título 
INPUT dentro de uma moldura forma- 
da por caracteres gráficos. Esses carac- 
teres são acessados pela instrução PRINT 
na forma: PRINT CHRS(1)+CHR$ (có- 
digo do caractere + 64). 

Observe o uso da instrução LOCA- 
TE, já explicada anteriormente, para 
posicionar na tela caracteres gráficos e 
palavras. 

A linha 100 pode parecer um tanto 
estranha, mas é muito importante no 
programa. Ela faz com que o computa- 
dor varra repetidamente o teclado, até 
que pressionemos alguma tecla, passan- 
do para a parte seguinte. 

A linha 110, por sua vez, limpa a te- 
la e posiciona uma mensagem no topo 
desta. As referências e números de pá- 
ginas são fidos da linha DATA e impres- 
sos pelas instruções do laço das linhas 
120 a 150. 

A linha 160, finalmente, tem como 
função evitar que o cursor e um OK pro- 
vocados pelo término da execução do 
programa atrapalhem o visual da tela. 



] 0 HOME 

20 INVERSE : PRINT : HTAB 12: 

PRINT " NOVA CULTURAL " 

30 PRINT : HTAB 10: PRINT " A 

PHESENTA" 

40 VTAB 12: PRINT SPC ( 16): N 

ORMAL : PRINT " INPUT " ; : INVER 

SE : PBINT SPC ( 17) 



45 NORMAL : VTAB 20: HTAB 15: 
PBINT "VERSÃO 1.1" 
50 PRINT : HTAB 11: PRINT "COP 
YRIGHT IO 19B6" 

60 FLASH : VTAB 24: HTAB 7: PB 
INT " TECLE A BARRA DE ESPAÇOS" 
I : NORMAL 
70 GET AS 

80 HOME : INVEBSE : PBINT SPC 
( 13) j "INPUT - ÍNDICE"; SPC( 13 
) : NORMAL 

90 FOB J - 1 TO 7: VTAB J * 2 
+ 8 

100 READ IS. PS: PRINT TAB ( 7) 
;IS; TAB 1 30) rPS: NEXT 
110 GOTO 110 

120 DATA ANIMAÇÃO, 26-32 . PBO 
GRAMACAO BASIC . 2- 7 . "CTRL-C , App 
le" , 7 , SISTEMA OPERACIONAL , 25 . CO 
NTROLADORES DE DISCO. 24 , "CHRS . 
uao do" . 26-27 , "POKE , como uaar 
n" ,27-28 



O programa produz uma tela bem 
mais elaborada que a anterior. Logo que 
se inicia, ele limpa a tela e seleciona o 
modo invertido de apresentação de ca- 
racteres. A instrução PRINT vazia nas 
linhas 20 e 30 faz com que o computa- 
dor pule uma linha antes de começar a 
imprimir as mensagens. 

Os comandos HTAB e VTAB, como 
já explicamos, posicionam o cursor pa- 
ra a impressão. 

Na linha 40, a instrução PRINT SPC 
(..), no modo invertido, provoca o apa- 
recimento de uma linha escura antes do 
título INPUT, dando-lhe destaque. 

As linhas 45 a 50 imprimem no mo- 
do normal mensagens de copyright e da 
versão do programa. 

A linha 60 utiliza o comando 
FLASH. Os usuários do TK-2000 devem 
substitui-lo por INVERSE. A mensagem 
aparecerá piscando no Apple, junta- 
mente com o cursor (é quase impossível 
escondê-lo, mas, dessa forma, ele se 
confunde com a mensagem). 

A linha 70 faz o computador esperar 
até que alguma tecla seja pressionada 
para continuar a execução. 

Em seguida, o programa limpa a te- 
la novamente e coloca a mensagem "IN- 
PUT - ÍNDICE" no modo invertido. O 
laço das linhas 90 e 100 lê e imprime na 
tela as referências e números de páginas 
respectivos. Observe que isso é feito por 
meio dos comandos READ e PRINT 
TAB. A mesma instrução PRINT impri- 
me a referência e o número da página, 
estando os TAB separados por ponto e 
vírgula. Esse processo facilita muito a 
montagem de listas e tabelas. 

A Unha 1 10 impede que o programa 
termine. Assim, evita-se o aparecimen- 
to do cursor na tela, o que afetaria a dis- 
tribuição das mensagens. 
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GERAÇÃO DE BLOCOS 
GRÁFICOS (2) 



NOVAS FUNÇÕES 



"INVERSÃO DE CORES E FORMAS 



IMAGENS AO ESPELHO 



" COMO RODAR OS CARACTERES 



0 USO DA IMPRESSORA 



Aqui está a parte que faltava a 
seu programa gerador de blocos gráficos, 
Com as novas funções incorporadas, 
você poderá criar caracteres com 
muito mais facilidade. 



Este artigo completa o programa ge- 
rador de caracteres gráficos. As novas 
linhas acrescem am-lhe recursos que tor- 
nam ainda mais fácil a criação de blo- 
cos definidos pelo usuário. 

Além da parte final do programa, vo- 
cê encontrará aqui algumas dicas de co- 



mo usar os caracteres criados e 
programas BASIC. 



Depois de acrescentar as novas linhas 




vviMnnnnnnnnMMMMMnnr 



14 APLICAÇÕES 14 




ao programa dado no artigo anterior, 
você terá mais seis funções à sua dis- 
posição. 

A primeira evidencia-se já no início. 
Ela mostra na tela os valores dos oito 
bytes correspondentes às linhas do blo- 
co, bem como uma versão em tamanho 
real na tela. Isso é feito por um progra- 
ma em linguagem de máquina, que atua- 
liza tanto os valores como o bloco em 
tamanho real sempre que modificamos 
um ponto. 

O programa completo também per- 
mite que você limpe o quadriculado por 
meio da tecla C, evitando o trabalho de 
apagar ponto por ponto. 

Existem ainda três outras teclas de 
controle a que se pode recorrer para mo- 
dificar o padrão do quadriculado. Se vo- 
cê apertar o M, o bloco será substituí- 
do por sua imagem ao espelho. Assim, 
sempre que quiser obter uma figura 
composta por dois blocos simétricos — 
uma espaçonave, por exemplo — , bas- 
ta desenhar um deles, guardá-lo no ban- 
co de memória e criar a imagem simé- 
trica usando a tecla M. Também lança- 
mos mão desta função quando estamos 



desenhando duas figuras iguais, cada 
qual apontando para uma direção. 

De modo semelhante, é possível ro- 
dar o bloco 90 graus, pressionando a te- 
cla R. Esta função será muito útil quan- 
do se precisar criar apenas um bloco — 
de um torpedo, digamos — e depois vi- 
rá-lo em todas as direções. 

Com a última das três funções você 
obterá o inverso do caractere, por meio 
da tecla I. Se usá-la duas vezes seguidas, 
terá o inverso do inverso, ou seja, o ca- 
ractere original. 

O programa passará a dispor, tam- 
bém, de uma rotina de impressão. Pode- 
se empregá-la para imprimir os valores 
dos bytes que serão colocados em uma 
linha DATA, por exemplo, ou para fa- 
zer uma cópia da tela. Esta sairá melhor 
ou pior de acordo com o tipo de sua im- 
pressora. 

Para usar a impressora, pressione a 
tecla Z, seguida de D ou S, conforme 
queira valores de bytes ou uma cópia da 
tela, respectivamente. Caso outra tecla 
seja utilizada, o programa voltará à 
edição. 

Se você não tiver uma impressora, 



não copie as linhas de 2570 a 2590. 
Acrescente, porém: 

2570 GOTO 2000 

Aqui está o resto do programa: 

5 Cl. LAR 31999 
12 LET T-0: FOR N-32000 TO 
32227: READ A: POKE N,A: LET 
T-T+A: NEXT N . IF T021691 
THEN PRINT FLASH 1;"ERR0 NA 
S LINHAS 'DATA'": STOP 
2020 PRINT AT 10,21;CHRS 139tCH 
RS 131;CHRS 135:AT 11,21;CBR$ 1 
38;AT 11,23;CHRS 133iAT 12.21;C 
HR3 142;CHR$ MOiCHRS 141 
2030 RAND USR 32000 
2530 IF INKEY$-"I" THEN RAND U 
SR 32092 

2540 IF INKEYS--C - THEN' POKE 3 
2106.0: RAND USR 32092: POKE 32 
106,12 

2550 IF INKEY$-"M" THEN RAND U 
SR 32145 

2560 IF INKEYS-"R" THEN RAND U 
SR 32183 

2570 IF INKEY3<>"2- THEN GOTO 
2000 

2575 INPUT "C(OPIA DA TELA) OU 
B(YTES) ? - ; LTNE ZS 
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2580 IF ZS<>"C" AND 23<>"B" THE 
N GOTO 2000 

2590 IF ZS-"C- THEN COPY ! GOT 
O 2000 

2600 LET CH-65: FOR N-USR "A" T 
O USB -U"+7 STEP 8 
2610 LET TA-0: LPRINT CHRS CH: 
FOR M-N TO N+7: LPRINT TAB TA ; P 
EEK Mí: LET TA-TA+4 : NEXT M 
2620 LPRINT : LET CH-CH+1 : NEXT 
N 

9100 DATA 62.2,205.1,22,62,22,2 
15,62.8.215,175.215.33,11.72,22 
1,33,118,72 

9110 DATA 6.8.197,6,8,14.128.17 
5,50,91,125.126,254,1,40,7,58,9 
1,125, 129 

9120 DATA 50,91,125,203,57,35,] 
6.239.58,91,125.221,119,0,229,2 
21.229,62.23.215 

9130 DATA 62,5.215,33.90.125,20 
5,40,26,62,13,215,221,225,225.1 
'.24,0,25,221 

9140 DATA 229,209.20.213,221,22 
5,193.16,189,201,0,0,33,11,72,6 
,8,197.6,8 

9150 DATA 197,126.254,1,229,40. 
12.6,7.62.1,119,36.16,252.54.25 
5. 24.13,6 

9160 DATA 4, 54, B5, 36, 54, 171. 36, 
16,248,37,54,255,225,193,35.16, 



219.17,24,0 

9170 DATA 25.193,16.209,201,33, 
11,72,6,8,197.6,4,17,7,0,197.22 
9.126,25 

9180 DATA 78.119,225,113,35.27, 
27,193,16,242.17,28,0,25,193,16 
.229.205,92,125 

9190 DATA 195.92,125,221,33,11, 
74,33,235,72,6,8,197.6,8,197.22 
1.126,0,119 

9200 DATA 221,35,6.32.43.16.253 
,193,16,241,17.24.0.221.25,17.1 
,1 ,25,193 

9210 DATA 16,226,205,92,125,195 
.92, 125 

Os vaJores nas linhas DATA são pro- 
gramas em linguagem de máquina co- 
locados no alto da memória com POKE. 
AH existem três rotinas diferentes para 
rodar, espelhar e colocar o caractere cm 
tamanho real na tela, junto com o va- 
lor dos bytes. 

Tome cuidado na digitação desses va- 
lores. Qualquer erro pode ser fatal. Por 
isso mesmo, o programa verifica as li- 
nhas DATA, provocando uma interrup- 
ção caso detecte algum erro. 



USO DOS BLOCOS EM OUTROS PROGRAMAS 



O programa do artigo anterior já in- 
cluía funções de gravação e leitura em 
fita. Por meio delas, podemos dispor de 
uma versão permanente dos blocos cria- 
dos. O uso correto deste programa per- 
mite a criação de muitos bancos cheios 
de novos caracteres. 

O Spectrum é capaz de utilizar 21 
UDG de cada vez. Se precisar de um nú- 
mero maior, você terá duas opções: criar 
vários bancos de memória, ou redefinir 
o conjunto de blocos a todo instante. 
Explicaremos mais tarde como isso é fei- 
to, mas, agora, adiantaremos alguns de- 
talhes. 

Desde que saiba como modificar o 
"apontador de UDG", você pode utili- 
zar quantos caracteres quiser, O apon- 
tador é uma variável interna do Spec- 
trum que diz ao computador onde en- 
contrar os bytes correspondentes aos 
blocos definidos pelo usuário. 

Mesmo que tenha gravado os bytes 
criados pelo programa a partir de um 
determinado endereço, você poderá tra- 
zer este conjunto de caracteres de volta 
da fita para qualquer outro endereço. 
Assim, se quiser usar três diferentes ban- 
cos de caracteres ao mesmo tempo, bas- 
tará carregá-los em posições diferentes 
da memória, 

Cada banco criado pelo programa 
tem 168 bytes de comprimento. Por is- 
so, é necessário carregar cada conjunto 
de caracteres em posições que tenham 
uma distância de pelo menos 168 bytes 



entre si; caso contrário, um banco po- 
derá apagar parte de outro. Para carre- 
gar um conjunto de caracteres gravado 
pelo programa, digite: 



CODE (endereço 



al> 



Independentemente do endereço a 
partir do qual o banco tenha sido gra- 
vado, pode-se colocá-lo em qualquer 
parte da RAM. 

Para usar os bancos que carregou, 
modifique o valor do apontador de 
UDG. Em artigo posterior, trataremos 
do assunto em detalhes. 

É importante adiantar, ainda, que ao 
usarmos mais de um banco de caracte- 
res em um programa deveremos prote- 
ger, por meio de um comando CLEAR, 
a área de memória ocupada. Isso tam- 
bém será explicado mais tarde. 



Feitas as modificações, o programa 
terá várias novas funções. Você notará 
a primeira delas quando for guardar um 
bloco recém-criado no banco: o progra- 
ma imprimirá, ao lado do quadricula- 
do, o valor do byte correspondente ao 
padrão de cada linha do bloco, acom- 
panhado do valor do byte de cor e do 
código da cor de frente e de fundo da- 
quela Unha. 

O programa completo permite ainda 
que você limpe o quadriculado por meio 
da tecla A, evitando o trabalho de apa- 
gar ponto por ponto. 

Outra alternativa interessante que o 
programa oferece é a de se obter, com 
a tecla E, a imagem ao espelho do blo- 
co que está no quadriculado. Essa fun- 
ção facilita bastante a produção de de- 
senhos simétricos. 

Muito útil também é a possibilidade 
de rodar o bloco 90 graus, o que nos 
possibilita criar um torpedo, por exem- 
plo, e apontá-lo em todas as direcões, 
usando a tecla V. 

Com a tecla I, pode-se inverter todo 

0 padrão do bloco. Pressionando-a, os 
pontos acesos se apagam e os outros se 
acendem. A tecla Y tem o mesmo efei- 
to, mas troca a cor de frente com a cor 
de fundo, não atuando, assim, no esta- 
do dos pontos. Em outras palavras, o 

1 modifica apenas os bytes do padrão do 
bloco, enquanto o Y modifica os bytes 
de cor — e esta é uma diferença muito 
importante, embora não se refiita no 
efeito obtido. A última função utiliza 
uma impressora para reproduzir o pa- 
drão do bloco que está no quadricula- 
do, bem como os valores dos bytes de 
padrão e cor. Para imprimir, pressiona- 
se a tecla L. 
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40 GOSUB 6000 

135 IF KS-"V" THEN GOSUB 4000:G 
OTO 200 

145 IF KS-"A" THEN GOSUB 4500:G 
OTO 200 

155 IF K$«"Y" THEN GOSUB 5000:G 
OTO 200 

165 IF KS--L" THEN GOSUB 5500 :G 
OTO 200 

180 IF KS C "I" THEN GOSUB 300O:G 
OTO 200 

190 IF KS="E" THEN GOSUB 3500:G 
OTO 200 

1550 GOSUB 9000:FOR 1-0 TO ?:P( 

I)-0rFOB J=0 TO 7 

1595 II=64+I«6:PRESET(12,II) :PR 

INT*1,P(I> 

1605 PRESET(56,II) : PR INTt 1 , C <I ) 
:PHESET(1?6,II) :PRINT#1. (C(I)-( 
C(I)AND15))/16:PRESET(Z20,II) :P 
P.INT|1.CU)AND15 
1610 NEXT I 

1615 II=II+10:PRESET(12.II} :PRI 
NT# 1 . "BYTE" 

1620 PRESET(56,II) : PRINT* 1 , "COR 

1630 PRESET(164,II} :PRINT*1."FR 
ENTE" 

1640 PRESET(216,II) :PRINTI1,"FU 
NDO" 

1650 PRESET(8,160) :PRJNT|1 , "Qua 
lquer tecla para continuar" 
1660 XS-INKEYS:IF XS = "" THEN 16 
60 

1670 LTNE(0,64)-(88,160) -15.BF 
1680 LINE{164,64}-(255,160) .15. 
BF 

1690 GOSUB 9100:RETURN 

3000 FOR 1-0 TO 7:FOR J = 0 TO 7 

3010 B(I,J)-B(I, J)X0R1 

3020 GOTO 1080 

3500 FOR 1=0 TO 7 : FOR J=0 TO 7 



3510 T(I,J)-B(I.7-J> 

3520 NEXT J,I:FOR 1-0 TO 7 : FOR 

J-0 TO 7 

3530 B(I.J)-T(I.J) :GOTO 1080 
4000 FOR 1-0 TO 7:FOR J-0 TO 7 
4010 T(I, J)-B(J,7-I) 
4020 GOTO 3520 

4500 FOR 1-0 TO 7:FOR J-0 TO 7 

4510 B(I,J)-0 

4520 GOTO 1080 

5000 FOR 1=0 TO 7 

5010 Y1-C(I)AND15 

5020 Y2-{C(I)-Y1)/16 

5030 C{I)-Y1*16+Y2 

5040 NEXT I:FOR 1-0 TO 7 : FOR J- 

O TO 7 

5050 GOTO 1080 
5500 LPRINT TAB (10) ; "BYTE" j 
5510 LPRINT TAB (15);" COR"; 
5520 LPRINT TAB{20) j "FRENTE" ; 
5530 LPRINT TAB(28) ;"FUNDO" 
5550 FOR 1-0 TO 7:P(I)»0:FOR J- 
0 TO 7 

5560 P(I)=P(I)+B(I,J)*2*(7-J) 
5570 IF B(I,J)=1 THEN LPRINT "X 
"; ELSE LPRINT "."; 
5580 NEXT J 

5590 LPRINT TAB (10) ; P ( I ! i 
5600 LPRINT TAB ( 16) ; C í I ) ; 
5610 LPRINT TAB(22) ; (C{I)-(C(I) 
AND15) )/16; 

5620 LPRINT TAB ( 28) ; C ( I ) AND1 5 
5630 NEXT I 

5640 LPRINT : LPRINT ; LPRINT 

5650 RE TU RN 

6000 FOR 1-0 TO 7 

6010 C(I)-C*16+F:NEXT: 

6020 RETURN 

Não há função automática que per- 
mita o aproveitamento do banco de blo- 
cos gravado em fita. Para isso, precisa- 



mos da ajuda de algumas linhas escri- 
tas em BASIC. 

A elaboração de um programa desse 
tipo exige que se conheça bem a organi- 
zação da memória de vídeo do MSX. 
Em artigo futuro trataremos deste as- 
sunto em detalhes. 



ALGUMAS INFORMAÇÕES 



Para os usuários mais avançados, 
adiantamos que um banco gravado pe- 
lo programa pode ser lido a qualquer 
momento. Inicialmente, deve-se prote- 
ger o alto da memória com: 

CLEAR 200, tHDOOO 

Em seguida, carrega-se o banco di- 
gitando: 

BLOAD "CAS: " 

Com isso, o banco volta à mesma po- 
sição de memória onde foi criado. Os oi- 
to bytes correspondentes ao padrão do 
bloco guardado na posição X podem, 
então, ser encontrados a partir do se- 
guinte endereço: 

5. HD100 + x*8 

E os oito bytes de cor do bloco guar- 
dado na posição X do banco se encon- 
tram a partir de: 

6. HE100 + X*8 

O passo seguinte consiste em trans- 
ferir, com a ajuda de VPOKE, os bytes 
de padrão para a tabela de padrões — 
BASE(I2) — e os bytes de cor para a ta- 
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bela de cores — BASE(Il). Maiores es- 
clarecimentos serão dados num próximo 
artigo. 



O programa conta agora com várias 
outras funções de edição. Uma delas é 
a de limpeza do quadriculado, disponí- 
vel pela tecla C. Já não será preciso, 
portanto, apagar ponto por ponto. 

A tecla U tem função semelhante, 
mas apaga apenas o oitavo bit, que con- 
trola o grupo de cores. 

Duas outras novas funções contri- 
buem para diminuir um pouco as difi- 
culdades. Pressionando a tecla J, todo 
o padrão se desloca para a esquerda; a 
letra K tem efeito contrário. Utilizando 
essas teclas, pontos que estavam em co- 
lunas ímpares passam a ocupar colunas 
pares e vice-versa. Não havendo dois 
pontos adjacentes, o procedimento in- 
verterá a cor dos pontos. 

Para criar figuras simétricas, temos 
a tecla E, que produz a imagem ao es- 
pelho do bloco que está no quadricula- 
do. Ao usá-la, tenha sempre em mente 
as regras de definição de cores. Para ro- 
dar o padrão do quadriculado 90 graus, 
pressione a tecla V. Essas funções devem 
ser combinadas com outras, uma vez 
que modificam o oitavo bit, que não 
participa do padrão, mas da determina- 
ção de cores. 

Dispomos ainda de duas funções de 
inversão: apagar o que está aceso e vice- 



versa. A tecla I inverte todo o bloco, en- 
quanto a tecla O se restringe ao oitavo 
bit. O programa também exige os valo- 
res dos bytes, para quem quiser usá-los 
em linhas DATA. A tecla D mostra uma 
linha com os dados de um bloco, no ro- 
dapé da tela. Tendo uma impressora, os 
usuários do Apple podem obter uma có- 
pia usando W. 

40 DIM T(8,8) 

135 IF KS - "V" THEN GOSUB 40 
00: GOTO 50 

145 IF KS " "U" THEN LL = 7 : G 
OSUB 2500 : GOTO 50 
155 IF KS - "J" THEN GOSUB 45 
00: GOTO 50 

160 IF KS - "I" THEN LL = 0 : G 
OSUB 3000: GOTO 50 
165 IF KS » "K" THEN GOSUB 50 
00: GOTO 5 0 

170 IF KS - "C" THEN LL - 0: G 
OSUB 2500: GOTO 50 
175 IF KS - "D" THEN GOSUB 60 
00: GOTO 5 0 

1B0 IF KS - "O" THEN LL - 7 : G 

OSUB 3000 : GOTO 50 

185 IF KS - "W THEN PB* 1: G 

OTO 6000: PB* 0: GOTO 50 

190 IF KS = "E" THEN GOSUB 35 

00: GOTO 50 

2500 FOB I = 0 TO 7: FOR J - L 
L TO 7 

2510 B(I.J) - 
3000 FOH I - 
3005 FOH J - 
3010 IF B (I , 



0 20 



0: GOTO 
0 TO 7 
LL TO 7 

I) - 0 THEN B(I.J) 



1; GOTO 10 20 



3020 8 
3500 
TO 6 




3510 T(I . J) 

J.I 

3520 FOH I 

TO 6 
3530 B(I . J) 
4000 FOB I 

TO 7 
4010 T (I , J) 
J,I 

4020 FOR I 



B(1.6 - J) : NEXT 
0 TO 7 : FOB J = 0 



BÍJ. 7 - 
0 TO 7: 



I) ; NEXT 
FOR J - 0 



B ( 1 , d + l ) : GOTO 
0 TO 7 : FOB J - 0 
J) = BÍI.6 - J) : N 



TO : 
4030 BÍT.J) 
4500 FOR I 

TO 6 
4510 B(I.J) 
1 020 

5000 FOR I ' 

TO 6 
5010 T {1 , 7 - 
EXT J,I 

5020 FOR I - 0 TO 7: FOB J - 0 
TO 6 

5030 BU.J) = T(I,J): GOTO 1020 
6000 HOME : VTAB 22: TNPUT "QU 
AL O NUMERO DO BLOCO ?";N: IF t) 

> 320 THEN 1000 
60 20 HOME 

6030 VTAB 21: PHINT "DATA ": 
6040 FOH I - 0 TO 7: PRINT PE 
EK (E + N * 8 + I) ; : IF J < > 
7 THEN PBINT " ,"; 
6050 NEXT : VTAB 23: GET XS 
6060 HOME : RETUHN 



USO DOS BLOCOS EM OUTROS PROGRAMAS 



Além dos problemas na exibição de 
cores, o Apple tem uma organização de 
memoria de vídeo um tanto complica- 
da. Deixaremos, assim, para um artigo 
futuro as explicações sobre o uso dos 
blocos em outros programas. 



No artigo anterior vimos a primeira 
metade de um programa cujo objetivo 
é facilitar a criação de blocos gráficos. 
Apresentamos aqui a outra metade, que 
acrescenta ao programa novos recursos 
de edição 

Inicialmente, carregue o programa 
antigo e adicione as linhas: 

30 T=0:FOR K-0 TO 14 : READ N:T-T 
+N:POKE K+31100.N:NEXT:READC:IF 

TOC THEN END 
40 T-0: FOR K-0 TO 84 ! READ N:T= 
T+N:POKE 3115 0+K , N : NEXT : BEAD C: 
IF TOC THEN END 

70 DATA 141.72,142,123,12,236.1 
29,237,193,140,123,84.38,247.57 
,1974 

80 DATA 141,22,142,123.84.51.67 
.198,3.166.130,167,194,90.38.24 
9,51,70,140,123.12.38,240,57,18 
9,179.237.52 

90 DATA 6,31,3,142.123,14,134,3 I 
,183,121,68,230.192,134.8.74.88 : 
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.73.125.121.23. 39. 4, 8B, 73. 126, 4 
.68 

100 DATA 102.132.125.121,23.39, 

3.68.102.132.77,36,230,48,31.12 

2.121.68,36,219.48.6,140.123.86 

.38,207.53,192,8285 

170 PRINT" JOYSTICK OU TECLADO ( 

J OU T) ?"; 

180 AS = INKEY3:IF ASO"J" AMD AS 

<>"T" THEN 160 

190 IF AS-"J' THEN JY-1 

350 IF JY-1 THEN GOSUB 1000 ELS 

E GOSUB 1500 

1000 PUT(Xl.Yl)-(Xl+S*T-l.Yl+4) 
.Cl.NOT 

1010 IF (PEEK(65280)AND l)-0 GO 
SUB 2000 

1020 IF JOYSTK(1)-0 THEN Y-Y-l 
1030 IF JOYSTKCU-63 THEN Y-Y+l 
1040 IF JOYSTK(0)-0 THEN X-X-T 
1050 IF JOYSTK (01-63 THEN X-X+T 
1060 RETURN 

2100 GET(216,70)- (239,93) ,A 
2110 GOSUB 3000:GOTO 2070 
2200 AS-INKEYS:IF ASO"S" AND A 
SO"P" THEN 2200 

2210 CLS:DN=0:IF AS="P" THEN DN 
—2 

2220 FOR K-0 TO 14: FOR R-0 TO 2 

2230 PRINT |DN,PEEK;VARPTR(A(0) 

)+K»3+R) ; : NEXT: PRINTÍDN : NEXT 

2240 IF DN<0 THEN 2260 

2250 AS=INKEYS:IF AS="" THEN 22 

50 

2260 FOR K-15 TO 23: FOR P=0 TO 
2 

2270 PRINT |DN , PEEK (VARPTR (A (0) 
)+K*3+R) ; :NEXT:PRINT IDN : NEXT 
2280 AS=INKEYS:IF AS = "" AND DN= 
0 THEN 2280 

2290 SCREEN 1 , ST : RETURN 

2600 POKE 30999, T-l :N-USR2 (VARP 

TR{AC0) ) ) 

2610 GOSUB 3000:GOTO 2070 

2900 POKE 30999, T-l : N-USR1 (VARP 

TR(A(0) ) ) 

2910 GOSUB 3000:GOTO 2070 



Complete a linha 10 com: 
:DEFUSR1=31100:DEFUSR2=31150 

Se executarmos o programa agora, 
poderemos utilizar as novas funções. 
Mas é conveniente, antes de qualquer 
coisa, verificar se há algum erro em li- 
nhas DATA. 

Três funções foram somadas ao re- 
pertório do programa: espelhar, inver- 
ter e rodar o bioco gráfico. 

Para obter a imagem do bloco ao es- 
pelho, basta pressionar a tecla M. O ca- 
ractere é invertido da esquerda para a 
direita. Essa função é muito útil quan- 
do utilizamos dois blocos justapostos 
para produzir uma figura maior e simé- 
trica. Basta criar um dos caracteres, 
guardá-lo no banco e, em seguida, ob- 
ter a imagem ao espelho. 

A função de rotação é similar. Aper- 
tando R, rodamos o bloco 180 graus. 
Podemos, assim, mover a figura para ci- 
ma e para baixo , o que nos permite usar 
o gerador para criar uma versão do blo- 
co "de cabeça para baixo". 

A inversão da cor de todos os pon- 
tos constitui outra nova opção ofereci- 
da pelo programa. Em PMODE4, o 
efeito é fácil de prever: o preto se torna 
verde (ou cinza) e vice-versa. Em 
PMODE3, azul e amarelo são inverti- 
dos (o que é azul fica amarelo e vice- 
versa). O mesmo ocorre com vermelho 
e verde, cinza e laranja, ciano e 
magenta. 

As inversões de cor provocam altera- 
ções surpreendentes no aspecto de cer- 
tos blocos. Uma vez que nos acostume- 
mos com as regras de mudança de cor, 
a função será muito útil. 

É possível, também, executar uma 



mudança de cor durante a edição, pres- 
sionando-se a tecla V. A alteração, no 
caso, resulta de uma inversão no tipo de 
tela — SCREEN — que estiver sendo 
utilizada. 

Outro novo recurso do programa, a 
impressão dos valores dos bytes dos ca- 
racteres guardados no banco, mostra-se 
especialmente útil quando se pretende 
colocar tais valores em linhas DATA. A 
tecla P ativa a função; os valores podem 
ser exibidos na tela ou, então, copiados 
por uma impressora. Após teclarmos P, 
o programa espera que pressionemos P 
ou S. P utiliza a impressora e S, a tela. 



USO DOS BLOCOS EM OUTROS PROGRAMAS 



Para utilizar os blocos gravados em 
fita dentro de um outro programa, car- 
regue o conteúdo da fita e, em seguida, 
guarde os padrões em matrizes com 
CLOADM e GET. 

Infelizmente, você precisará repetir o 
procedimento sempre que quiser usar o 
programa com os blocos gráficos ante- 
riormente gravados. 

Para evitar o trabalho de ler os blo- 
cos da fita todas as vezes, só há uma al- 
ternativa: transferir os números corres- 
pondentes aos blocos para linhas DA- 
TA e incorporá-las ao programa em 
questão. 

Assim, embora não pareça, pode ser 
mais conveniente recorrer à função de 
impressão para digitar linhas DATA. Os 
números ali contidos deverão ser colo- 
cados pelo programa, usando POKE, na 
tela, e transferidos para matrizes por co- 
mandos GET. Depois disso, os blocos 
estarão disponíveis por meio de coman- 
dos PUT. 
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■ 


COMO E ARMAZENADO 


UM PROGRAMA EM BASIC? 


■ 


0 USO DO PEEK 


■ 


0 QUE SIGNIFICAM 


OS CÓDIGOS 



Como o computador armazena um 
programa em BASIC na memória? Satisfaça 
sua curiosidade: com um programa bem 
simples, você poderá listar os 
códigos secretos usados por seu micro. 



Já tivemos a oportunidade de exami- 
nar como se organiza o espaço total de 
memória dos microcomputadores (veja 
artigo da página 174). Em geral este es- 
paço divide-se internamente em uma sé- 
rie de áreas, cada qual com uma função 
específica. 

Uma dessas áreas da memória RAM 
é reservada para os programas em BASIC 
do usuário. Eles começam sempre em 
um mesmo endereço absoluto, cujo va- 
lor varia conforme a linha do micro. As- 
sim, quando o computador recebe um 
comando RUN, LIST ou LLIST, por 
exemplo, já "sabe" onde o programa se 
inicia, podendo começar a listá-lo ou 
interpretá-lo. Em muitos computadores, 
esse endereço de início está contido em 
um par de apontadores da RAM, em um 
lugar prefixado. Alterando-se seus va- 
lores com alguns POKF, pode-se mudar 
o local da memória onde o programa em 
BASIC está armazenado. 

A listagem dos códigos internos que 
seu microcomputador utiliza para arma- 
zenar esses programas constitui um óti- 
mo exercício para quem está começan- 
do a aprender programação em lingua- 
gem de máquina. 



Neste artigo, apresentaremos um pro- 
grama bem simples, baseado no coman- 
do PEEK, que nos permite examinar os 
códigos numéricos decimais contidos 
nas locações das memórias ROM ou 
RAM, e seu equivalente em ASCII. Vo- 
cê poderá, assim, identificar as partes 
dos programas que contêm códigos di- 
ferentes do ASCII. 

Os computadores de algumas linhas 
já dispõem de programas-monitores re- 
sidentes, que servem perfeitamente pa- 
ra.este propósito (é o caso do TRS-80, 



do Apple II e do TK-2000). Por isso, os 
programas seguintes destinam-se apenas 
aos micros das linhas ZX-81 , Spectrum, 
TRS-Color e MSX, que não dispõem 
desse recurso. 



10 FOR 1-7681 TO 7851 STEP 5 

20 PRINT I;TAB(6) 

30 FOB J-I TO 1+4: PRINT USING 

"III ■ ;PEEK<J) ; :NEXT J 

60 PRINT TAB (25) ; 

70 FOB J-I TO 1+4 

80 IF PEEK(J)>31 AND PEEKCJK 

129 PBINT CHHS (PEEK (J) ) ; ELSE 

PBINT " "; 

120 NEXT J:PRINT:NEXT I 

O programa acima funciona no TRS- 
Color. Para o MSX, modifique a linha 
10 para: 

10 FOR 1 — 32765 TO -32595 STEP 



10 FOR 1=23755 TO 23925 STEP 



20 PRINT i ; TAB 6:":"; 
30 FOR j-I TO 1+4: PRINT PEEK 
3 ; : NEXT j 
60 PRINT TAB{25) ; 
70 FOR 3-1 TO 1+4 
80 IF PEEK j>31 AND PEEK j<96 
THEN GOTO 110 

90 PRINT CBRS PEEK ( j) GOTO 120 
110 PRINT " "; 
120 NEXT J 
130 PRINT 
140 NEXT 1 



120 NEXT J 
130 PRINT 
140 NEXT I 

O laço FOR. ..NEXT que começa na 
linha 10 coloca o endereço absoluto da 
localização da memória a ser listada, a 
partir do ponto inicial de todo progra- 
ma BASIC, em incrementos de 5. A li- 
nha 20 imprime o endereço absoluto da 
primeira memória de um grupo de 5, en- 
quanto os laços das linhas 30 e 70 se en- 
carregam, respectivamente, da impres- 
são do conteúdo numérico e dos carac- 
teres ASCII correspondentes. 

Observe que as palavras-chave do 
BASIC não são armazenadas caractere 
por caractere, mas sim como códigos 
numéricos de 1 byte — os chamados lo- 
kens, em inglês. Cada código correspon- 
de a uma das palavras reservadas do 
BASIC, existentes no manual do micro. 
Eles são traduzidos de volta para as 
palavras-chave quando o programa é lis- 
tado com LIST ou LLIST. Armazenam- 
se em ASCII, por sua vez, as constan- 
tes, nomes de variáveis, caracteres de 
pontuação, símbolos matemáticos e tu- 
do o que esiiver entre aspas. 

Como exercício, procure identificar 
os códigos das palavras reservadas no 
programa listado. 




10 FOR 1-16509 TO 16679 STEP 



20 PRINT I ; TAB 6 
30 FOR J=I TO 1+4 
40 PRINT PEEK J( 
50 NEXT J 
60 PRINT TAB 25; 
70 FOR J-I TO 1+4 
80 IF PEEK J>31 AND PEEK J<96 
THEN GOTO 110 
90 PRINT CHRS PEEK(J); 
100 GOTO 120 
110 PRINT " "; 
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26 PROGRAMAÇÃO DE JOGOS 




Ajude uma cobra faminta a encontrar 
alimento. Enquanto vai abocanhando os 
números que o computador coloca na 
tela, o desnutrido animal se transforma, 
aos poucos, numa gigantesca serpente 



O jogo da cobra consiste num tipo 
clássico de videogame, de regras simples 
mas muito interessante e cheio de sur- 
presas. Além disso, sua programação 
dispensa o uso de linguagem de máqui- 
na — o jogo desafia o tempo, sendo um 
dos mais facilmente programáveis em 
BASIC. 



O objetivo do jogo é ajudar uma co- 
bra faminta a encontrar o alimento es- 
palhado ao acaso pela tela, na forma de 
números ou blocos. O valor desses nú- 
meros diminui à medida que o tempo 
passa; assim, quanto mais lento for o jo- 
gador, menor seu total de pontos. Se ele 
demorar demais, o número que estava 
na tela chega a zero e desaparece; outro 
número surge em posição diferente. Ca- 
da número engolido pela serpente au- 
menta seu comprimento proporcional- 
mente ao valor ingerido. 

Devemos tomar cuidado para não 
deixar a cobra ultrapassar a moldura da 
tela ou passar sobre si mesma — o que 
fica cada vez mais difícil, conforme ela 
cresce. Se cruzarmos a margem ou o 
corpo da cobra, o jogo termina. A pa- 
lavra "FIM" ou "FORA" é, então, exi- 
bida várias vezes na tela. 



10 BORDEEI 1: PAPER 7: INK 9: 
CLS 

20 LET hs-0 
30 DIM a<570,2) 
100 LET s-0 

110 LET a(l.l)=10: LET 
14 

120 LET s(2,l)-ll 



130 LET a(3,l)-12: LET a<3,21- 
14 

135 GOSUB 1500 

140 LET t = l: LET h=3 

145 LET yv=l: LET xvD 

150 FOR n=l TO 3: PRINT PAPER 

4;AT a(n,l) ,a(n,2) NEXT n 

160 LET y = 12: LET x-14 

165 LET p=0 

170 GOSUB 1000 

190 IF ATTR (y,x)<>56 AND ATTR 
(Y.xK.128 THEN GOTO 2000 
200 LET h-h+li IF h-501 THEN 
LET h-l 

210 PRINT PAPER 4 ; AT y,x;"#" 
220 LET a(h,l)-y: LET a(h,2)=x 
230 PRINT AT a ( t , 1 ) , a ( t , 2) : 
CHRS 32 

240 LET t-t+l! IF t-501 THEN 
LET t-1 

250 IF p-0 THEN LET p=INT ( 
RND*9)+1: LET fy=TNT (RND*19)+ 
2: LET fx-INT <RND"30)+1: IF 
ATTR (fy,fx)<>56 THEN LET p=0 
: GOTO 250 

260 PRINT PAPER INT (p/2); 
FLASH 1;AT fy,fx;p 
270 IF RND<.98 THEN GOTO 290 



280 LET p=p-l: IF p=0 THEN 
PRINT AT fy.fxrCHRS 32 
290 IF yOfy OR xOfx 
THEN GOTO 170 
300 LET a=a+p: PRINT 
PAPER 4iAT y.x;"*": PR 
INT PAPER 6; AT 0,6; a 
310 FOR n-1 TO p 
320 GOSUB 1000 
325 IF ATTR (y,x)<>56 
THEN GOTO 2000 
330 LET h-h+1 : IF h=501 
THEN LET h=l 
340 LET a{h,U=y: LET 
a(h,2)=x 

350 PRINT PAPER 4;AT a( 
(h,2) ; "t" 

355 FOR re-1 TO 10: NEXT 
360 NEXT n 
500 GOTO 165 
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UMA VERSÃO BASIC 


DO JOGO DA COBRA 


■ 


ESPALHE OS NÚMEROS E FAÇA 


A COBRA ABOCANHÁ-LOS 


■ 


COMO A FIGURA CRESCE 



1000 LET a$-INKEYS 
1010 1F aS-"Q" THEK LET yv--l 

LET xv-0 
1020 IF aS-"a" THEN LET yv-1 : 
LET xv-0 

1030 IF aS-"o" THEN 

LET yv-0 
1040 IF a$-"p" THEN 
LET yv-0 

1050 LET y-y+yv: LET x-x+xv: RE 
TUBN 

1500 FOR n-22560 TO 225 
91: POKE n.16: POKE n+6 
40.16: NEXT n 
1510 FOR n-22592 TO 225 
92+32*19 STEP 32: POKE 
n.16: POKE n+31. 16: NE 



LET . 



LET J 



XT n 

1520 PRINT PAPER 1 i AT 0.0;"SCO 
RE "; PAPER 6:s; PAPER 1 ; TAB 14 
; "RECORDE "; PAPER 6;hs: PAPER 

li TAB 31:" " 
1590 RETURN 

2000 PRINT AT 0.0;: FOR n-1 TO 
88: PRINT FLASH l| PAPER 2i IN 
K 6;"F0RA"; PAPER 6; INK 2i"FOR 
A";: SOUND .005.60-n: NEXT n 
2010 IF a>hB THEN LET ha-a 
2020 CL3 : PRINT AT 8.10;"SCORE 
: ";síAT 11 . 8 ; "RECORDE : " iho 
2030 PRINT INVERSE 1;AT 16.2;" 
Qualquer tecla para recoaecar " 
2040 PAUSE 0: CLS ! GOTO 100 

A linha 10 cuida das cores da mol- 
dura, do fundo c dos caracteres. Tam- 
bém limpa a tela. As linhas 20 c 100 ze- 
o recorde e o score. 
A linha 30 DIMensiona a matriz S, 
usada para armazenar as coordenadas 
da cobra. Inicialmente, esta ficará nas 
coordenadas (10,14), (11,14), (12,14), 
colocada nos primeiros elementos da 
matriz pelas linhas 110 e 130. 

A linha 135 chama uma sub-rotina 
que prepara a tela — linha 1500. Para 
o desenho da moldura, os valores são 
colocados na tabela de atributos com o 
auxílio de POKE. A linha 1500 traça 
duas linhas na tela: uma em cima e ou- 
tra embaixo; a 1510 desenha as linhas 
laterais. A linha 1520 escreve o recorde 
e o score. 

A linha 140 determina onde estão a 
cabeça e o rabo da cobra — het, res- 
pectivamente — dentro da matriz s. Es- 
sas variáveis indicam ao computador os 
elementos da matriz em que as coorde- m 
nadas da cabeça e do final do corpo da | 
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cobra podem ser encontradas. Elas são 
chamadas de "apontadores" (pointers). 
Conforme a cobra se move, o compu- 
tador reajusta os dois apontadores e co- 
loca as novas coordenadas no elemento 
adequado da matriz. 



MOVIMENTO £ DIREÇÃO 



As variáveis xv e yv indicam a dire- 
ção em que está indo a cobra. Elas po- 
dem assumir três valores diferentes: 0, 
quando a cobra não está indo naquela 
direção; 1 , quando a cobra se dirige pa- 
ra a direita ou para baixo; e — 1 , quan- 
do a cobra está seguindo para a esquer- 
da ou para cima. Pode-se ver, desse mo- 
do, que a linha 145 faz com que a ser- 
pente siga para cima no começo do jogo. 

A linha 1 50 desenha a cobra, inicial- 
mente, com apenas três caracteres. A 
posição atual da cabeça é dada por x e 
y, variáveis também usadas para detec- 
tar colisões. A linha 160 posiciona a ca- 
beça em (14,12). A linha 165 faz com 
que o valor do número a ser mostrado 
— p — seja zero. 

A linha 1 70 chama a sub-rotina que 
movimenta o cursor — linha 1000. Q e 
A movimentam a serpente na vertical, 
enquanto O e P o fazem na horizontal. 
Pressionando essas teclas, alteramos os 
valores de xv e yv; a linha 1050 modifi- 
ca a posição da cabeça adicionando xv 
e yv a x e y. 

Quando termina a sub-rotina, o pro- 
grama retorna para a linha 190, que usa 
o comando ATTR para verificar se a ca- 
beça está sendo colocada em uma posi- 
ção que não é de cor branca — a cor do 
fundo — ou não é cintilante — como 
são os números. Se essas duas condições 
não forem satisfeitas, a cobra deve ter 
cruzado a moldura ou seu próprio cor- 
po. Neste caso, o programa vai para a 
linha 2000, início da sub-rotina que in- 
forma o final do jogo. 

Se a nova posição da cabeça for vá- 
lida, o programa prossegue na linha 200, 
que incrementa o apontador da cabeça. 
Se o apontador indica um elemento da 
matriz maior do que sua dimensão, o 
apontador passa a valer 1. A linha 210 
desenha a cabeça em sua nova posição 
e a linha 220 coloca as coordenadas des- 
ta posição na matriz s, no elemento in- 
dicado pelo apontador da cabeça — h. 
O rabo da cobra é mantido no tamanho 
correto por meio da impressão de espa- 
ços em branco que apagam os caracte- 
res das posições já ocupadas. Isso é fei- 
to pela linha 230, que obtém as coorde- 
nadas correias na matriz s. A linha 240, 
por sua vez, aumenta o valor do apon- 
tador da cauda — I — verificando se ele 



ultrapassou a dimensão da matriz. 

Se não houver um número na tela pa- 
ra a cobra comer, a linha 250 escolhe um 
— p — , com posição e valor aleatórios 
Se as coordenadas escolhidas não 
respondem a uma área em branco da te 
la — ATTR O 56 — , o valor e a posi- 
ção de p são escolhidos novamente. A 
linha 260 escreve o número na tela cin- 
tilando, isto é, com atributo FLASH 

Ã medida que o tempo passa, o va 
lor do número que está na tela vai di- 
minuindo. A linha 270, que compara 
um número aleatório com 0.98, intro' 
duz um certo elemento de acaso na ve- 
locidade com que ocorre a diminuição 
Na maioria dos casos, a linha que dimi- 
nui o valor do número — 280 — é pula- 
da. Essa linha verifica se o valor de p 
ainda não chegou a zero, logo após 
subtrair -lhe 1 — em caso afirmativo, um 
espaço em branco é colocado no lugar 
do número na tela. Se a cabeça da co- 
bra não está na mesma posição que o 
número, completa-se o laço e o progra- 
ma volta à linha 170, 

Se a serpente engolir o número, o 
programa segue na linha 300, que soma 
o número engolido ao score. Este é co- 
locado na tela, assim como a cabeça. 

O laço FOR...NEXT das linhas 310 
a 360 adiciona ao corpo da cobra uma 
quantidade de caracteres igual ao valor 
ingerido. A cada volta do laço, a linha 
320 chama a rotina de movimentação do 
cursor; a linha 325 verifica se a cabeça 
ocupa uma posição legal; a linha 330 in- 
crementa o valor do apontador da ca- 
beça; a linha 340 coloca a nova posição 
na matriz s, e a linha 350 imprime a ca- 
beça. Nenhum caractere é apagado, co- 
mo aconteceria normalmente, servindo 
todos para acrescentar segmentos ao 
corpo da cobra. Como estes também 
nunca são apagados, a cobra teria mo- 
vimentos bem mais rápidos, se não hou- 
vesse o atraso provocado pela linha 355. 

A porção final do programa — que 
começa na linha 2000 — é a sub-rotina 
que cuida do encerramento do jogo. A 
linha 2000 escreve vários "FORA" na 
tela, ao mesmo tempo que emite uma sé- 
rie de sons. A linha 2010 atualiza o va- 
lor do recorde, se este foi batido, e a li- 
nha 2020 informa o placar. As linhas 
2030 e 2040 permitem que o jogador ini- 
cie uma nova partida. 



5 SCREEN 1 : KEY OFF 
10 M-512:DIMB(M) 
15 RH-RND ( -TIME) 
20 L=3:GOSUB 600 
30 GOTO SOO 

100 K-STIOK (0) : IF K=0 THEN K'L 
110 NP=B(H)+32*(K«1) -32*<K=5) -{ 



K-3)+(K-7) 

120 TE-VPEEK (NP) 

130 IF TE=25S OH TE n HC OR TE = BC 
OH NP<BASE(5>+32 THEN VPOKE NP 
,HC: E-l 

140 L=K:F0R 1=1 TO 50:NEXT:RETU 
RN 

200 R=INT(RND(t>*9)+l:RX-TNT<RN 
D(l)*13)+2:RY=ÍNT(RND(l)*29)+2: 
R P = RX* 3 2 + R¥ 

210 IF VPEEK(BASE<5)+RP)<>32 TH 
EN 200 

220 VPOKE BASE(5)+RP,48+R:P-1:R 
ETUHN 

250 R=R-1:IF H-0 THEN VPOKE BAS 
E(5)+RP.32:P=0:RETURN ELSE VPOK 
E BASE(5)+HP,4B+R:RETURN 
300 SOSC+R: LOCATE 22,0:PRINT S 
C; : P-0 

310 SL=SL+1 :VPOKE NP , BC 

320 H=H-1:IF H=0 THEN H=M 

330 B(H)-NP 

340 FOH J=l TO R 

350 PLAY" L64CEF" 

360 GOSUB 100 :IF E-l THEN SOO 

370 H=H-1:IF H-0 THEN H-M 

380 B (H) = NP : VPOKE NP, BC 

390 NEXT 

400 VPOKE NP , HC : R ETUHN 
500 IF P-0 THEN GOSUB 200 ELSE 
IF INT(RND(1)*150)+KSL THEN CO 
SUB 250 

510 GOSUB 100:IF E=l THEN BOO 
520 IF TE=48+R THEN VPOKE B(H1, 
BC:GOSUB 300 

530 VPOKE B(H) , BC: VPOKE B(T),32 
540 H-H-1:IF H=0 THEN H-M 
550 T-T-1:IF T=0 THEN T-M 

560 B(H)=NP:VPOKE NP , HC 
570 GOTO 500 

600 BG= TNT (HND ( 1 ) * ] 3) +1 : FG=INT ( 
RND ( 1 ) *13 + 1 ) : P = 0 :3C = 0 :SL = 1 :E = 0 
610 IF BG=FG THEN 600 
620 COLOR 15,BG,BGíCLS 
630 VPOKE BASE(6)+4.240+BG 
640 VPOKE BASE(6)+31,FG*16+FG 
650 FOB J-0 TO 3 1 : PLAY "T255L640 
4AG":VP0KE BASE (5) +J , 255 • VPOKE 
BASE (5) + J+736 , 255 : NEXT : FOR J-32 
TO 736 STEP 32:PLAY"02DA":VPOK 
E BASE{5)+J,255:VPOKE BASE(5)+3 
1+J. 255 : NEXT 

660 LOCATE 3,0: PRINT"RECORDE a " ; 
HS;:PRINT TAB { 15) i "SCORE » 0 "| 
670 HC-2:BC-215:T-3:H-1 
680 VPOKE BASE (6) , FGM6+BG 
690 VPOKE BASE(6)+26.FG*16+BG 
700 B(l)= BASE(5)+239íVPOKE B(l 
) i HC 

710 B(2)=B(l)+32:VPOKE B{2).BC 
720 B!3)=B{2)+32:VPOKE B(3).BC 
730 RETURN 

BOO COLOH 15.INTtHND(l)*14)+l : C 
LS : PLAY"01 ACDEFGACDEFG" ! FOR K=l 
TO 408:PRINT "FIM " ; : NEXT : PLAY 
"04ABCEDFG03ABCDEFG02ABCDEFG" 
810 IF HS<SC THEN HS-SC 
820 COLOR l,15.15:CLS:LOCATE 9. 
8:PHINT"SC0RE =":SC:LOCATE 8,12 
: PRINT"RECORDE =";HS 
830 AS=INKEYS : LOCATE 3.20:PRINT 
"<RETURN> para continuar" 
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Ao contrário de outros jogos vistos 

, em INPUT, para os quais utilizamos a 
tela gráfica, optamos aqui pela tela de 

| textos de 32 colunas, já que a cobra é 
feita de caracteres. 

A linha 5 seleciona a tela e desliga o 
meou das teclas de funções da parte in- 
ferior da tela. A linha 10 dimensiona a 

! matriz B de maneira que esta acomode 
no máximo 512 caracteres — o maior ta- 
manho que a cobra poderá ter. Note que 

; os elementos dessa matriz não corres- 
pondem às posições de caracteres na te- 
la. Cada um deles contém as coordena- 
das de uma parte da cobra. A linha 15 
"dá a partida" no gerador de números 
randòmicos; a 20 manda o programa 

I para a linha 600, que prepara as condi- 
ções iniciais do jogo. 

Na linha 600, BG é a cor de fundo da 
tela e FG, a cor da moldura, bem como 
da cobra. P=0 significa que nenhum nú- 
mero está sendo exibido; SC = 0, que o 

! score é zero; SL=0 quer dizer que o ni- 

i vel de dificuldade é zero e E=0 informa 
ao computador que a cobra permanece 
dentro dos limites da tela, não tendo cru- 
zado nem a moldura, nem seu próprio 
corpo. Todas essas variáveis são utiliza- 
das ao longo do programa para que cer- 
tas sub-rotinas sejam chamadas no mo- 
mento adequado. 

A linha 610 verifica se a cor de fun- 
do é igual à da moldura — em caso afir 
mativo, duas novas cores são escolhidas. 
A linha 620 seleciona as cores da tela — 
caracteres brancos, fundo e bordas de 
acordo com BG. Além disso, limpa a 
tela. 

Na linha 630, um comando VPOKE 
assegura que o caractere de espaço em 
branco — código 32 — tenha cor de 
frente branca e cor de fundo igual a BG. 



Na linha 640, a mesma técnica é empre- 
gada para fazer com que o caractere 
255, usado para desenhar a moldura, te- 
nha cor de frente e de fundo igual a FG. 
A linha 650 desenha a moldura, enquan- 
to emite alguns sons. A linha 660 mos- 
tra o placar. 

Na linha 670, HC é o código do ca- 
ractere da cabeça da cobra e BC, o có- 
digo do caractere usado no corpo da 
mesma. As variáveis H e T indicam os 
elementos de B() que contêm as coorde- 
nadas da cabeça e da ponta da cauda da 
serpente. São chamadas de "apontado- 
res" (pointers). 

Ainda usando o comando VPOKE 
para modificar os valores da tabela de 
cores da tela de 32 colunas, as linhas 680 
e 690 fazem com que os caracteres da 
cabeça e do corpo da cobra tenham cor 
de frente igual a FG e cor de fundo igual 
a BG. As linhas 700 a 720 colocam a ca- 
beça e dois segmentos do corpo na tela, 
de modo que a cobra tenha apenas es- 
tas partes a cada inicio de partida. 



Da sub-rotina o programa retorna à 
linha 30, que o envia para a rotina prin- 
cipal, na linha 500. Essa linha verifica, 
inicialmente, se na tela há um número 
para a cobra comer. P é o indicador de 
número na tela; se seu valor for zero, a 
sub-rotina da linha 200 é chamada. Se 
houver um número na tela, um valor 
qualquer entre 1 e 150 é comparado com 
o nivel de dificuldade SL. Se o número 
gerado for menor que SL, o programa 
vai à sub-rotina 250. 

A sub-rotina que começa na linha 200 
coloca um número qualquer na tela, em 
uma posição escolhida ao acaso. A li- 
nha 200 seleciona o número — R — en- 




tre 1 e 9, bem como suas coordenadas 
RX e RY. Esses dois valores são usados 
para calcular RP, posição do número na 
tabela de nomes da tela 1. Antes que o 
número seja impresso na tela, a linha 
210 verifica se na sua posição há algum 
outro caractere além do de espaço — có- 
digo 32. Dessa maneira, evita que o nú- 
mero seja colocado sobre a moldura ou 
sobre o corpo da serpente. A linha 220 
escreve o número na tela, usando VPO- 
KE para colocar o código corresponden- 
te ao número na tabela de nomes — BA- 
SE (5) — da tela 1. Consultando uma 
tabela ASCII, você verá que os caracte- 
res de 0 a 9 têm códigos de 48 a 57. 

A sub-rotina que começa na linha 250 
faz o valor do número na tela ir dimi- 
nuindo até que o jogador leve a cobra 
até ele. Se o número chegar a zero an- 
tes da cobra comê-lo, um espaço em 
branco será colocado em seu lugar. En- 
quanto isso não acontecer, valores su- 
cessivamente mais baixos substituem os 
anteriores, na mesma posição. A sub- 
rotina retorna para a linha 510. 

Essa linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de 
movimentação do cursor. Podemos usar 
tanto as teclas com setas como um joys- 
tick, desde que o comando STICK da li- 
nha 100 seja modificado (veja o artigo 
da página 348). O IF...THEN verifica se. 
a cobra cruzou a moldura ou seu pró- 
prio corpo. Em caso afirmativo, o pro- 
grama vai para a linha 800, que cuida do 
fim da partida. 

A linha 520 testa se o número foi en- 
golido pela cobra, somando 48 a R e 
comparando o resultado com TE. So- 
mamos 48 a R para obter o código do 
caractere correspondente ao número que 
estava na tela. TE, obtido com VPEEK, 
corresponde ao código do caractere que 
estava na posição que a cabeça da co- 
bra ocupa agora. Caso o número tenha 
sido realmente engolido, um caractere 
do corpo é colocado em sua posição. O 
programa vai, então, para a sub-rotina 
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da linha 300, que calcula o novo score, 
aumenta o tamanho da cobra propor- 
cionalmente ao número engolido — la- 
ço entre as linhas 340 e 390 — e coloca 
outro número na tela. 

As linhas 540 e 550 modificam os 
apontadores da cabeça e da ponta da 
cauda, ajustando seus valores, caso te- 
nham se reduzido a zero. A linha 560 co- 
loca o caractere da cabeça na tela. 

A rotina que cuida do encerramento 
da partida começa na linha 800, que lim- 
pa a tela, usando uma cor ao acaso, e 
produz um som enquanto a palavra 
"FIM" é impressa várias vezes. No fim 
da operação, outro som é produzido. A 
linha 810 atualiza o recorde, antes que 
as linhas 820 a 840 ofereçam ao joga- 
dor a oportunidade de jogar novamente. 



P / 40) 
390 NEXT 
400 COLOR - 
(NP / 40) * < 
410 RETURN 

500 IF P - 0 THEN GOSUB ZOO : 
GOTO 510 

505 TF INT ( RND (1) * 150) + 

1 < SL THEN GOSUB 250 
510 GOSUB 100; IF E = 1 THEN 8 
00 

520 IF TE - 6 THEN COLOR- 0: 
PLOT B ( H ) - INT (BÍH) / 40) * 
40, INT (B(H) / 40): GOSUB 300 



HUM 



530 COLOR= 



40) 

540 H - H - 1 
- M 

550 T = T - 1 
« M 

560 B (Hl - NP 



600 L3 = "X":P - 0 : SC ' 
til « 0 
650 COLOR- 1 
VLIN 0,39 AT 0: 
: HLIN 0,39 AT 39 
660 HOME ! VTAB 22: PRINT ' 
TAB ( 15) : "RECORDE 1 



PLOT B(H) - TNT 
40, INT (B(H) / 
PLOT B(T) - INT 
40, INT (B(T) / 

IF H ' 0 THEN H 

TF T = 0 THEN T 

COLOR- 11: PLOT 



670 T - 3:H 
6B0 R{1) - 300: 
T (Btl) / 40) * 
40) 

COLOR- B 
B[2) - 340: 
i(2) / 40) * 



COLOR- 
PLOT B(l) - I 
40, INT (B(l) 



720 RETURN 
800 HGR : TEXT 
- 1 TO 500:XX - 



5 HOME : CR 

10 M - 500: DIM B (M) 

20 GOSUB 600 

30 GOTO 500 

100 GET KS: IF KS < > "P" 
KS < > " L" AND KS < > "X 
D KS < > "Z" THEN KS = LS 
110 NP = B(H) - 40 * (KS - 
+ 40 * (KS " "L") - (KS - 



(KS ; 



-X") 



120 TE = SCRN( NP - TNT (NP / 
40) * 40, INT (NP / 40) ) 

130 IF TF. = 9 OH TE - 11 OR TE 
- 8 OR NP < 40 THEN COLOR- 11 

! PLOT NP - INT (NP / 40) * 40 

, INT (NP / 40) :E = 1 

140 LS - KS: RETURN 

200 R " TNT ( RND (II * 9) + 1 

:RX - INT ( RND (1) * 37) + 2: 

RY = TNT ( RND (1) * 37) + 2 

210 IF SCRNI RX.RY) < > 0 TH 

EN 200 

220 VTAB 22- HTAB 31: PRINT "B 
ÓNUS ";P.:P ■ 1 

230 COLOR- 6: PLOT BX.RY: RETU 
RN 

250 R = R 



260 HTAB 31: VTAB 22: PRINT "B 
ÓNUS ":R: RETURN 

300 SC - SC + R: HTAB 7: VTAB 2 
2: PRINT SC:P = 0 

310 SL - SL ♦ l : COLOR" 8: PLOT 
NP - INT (NP / 40) * 40, INT 
(NP / 40) 

320 H = H - l : 1 F H = 0 THEN H 

330 BÍH) - NP 

340 FOR J = 1 TO R 

350 XX * PEEK ( - 16336) 

360 GOSUB 100: IF E - 1 THEN B 

00 

370 H = H - 1: TF H = 0 THEN H 



OiaT. 



Oui- 
OtA-t- 
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) ! PRINT "FIM " ; : NF.XT 
805 IF HS < SC THEN HS - SC 
BIO HOME : HTAB 15: VTAB 8: PB 
INT "3COHE - -;SC: HTAB 14: VTA 
B 12: PB INT "RECORDE - " ; HS 
820 HTAB 6: VTAB 20: PRINT "<B 
ETURN> PARA JOGÃO NOVAMENTE" : G 
ET A3 

830 IF AS - CHRS <13) THEN B 
OME : GR : GOTO 2 0 
880 GOTO 820 

Para o jogo no Apple e no TK-2000, 
escolhemos a tela de baixa resolução, já 
que a cobra é feita de blocos. 

A linha 5 scleciona a tela e limpa sua 
parte inferior. A 10 dimensiona a ma- 
triz B de modo a acomodar no máximo 
quinhentos caracteres — o maior tama- 
nho que a cobra poderá ter. Note que 
os elementos da matriz B não correspon- 
dem às posições dos blocos na tela. Ca- 
da um deles contém as coordenadas de 



uma parte da cobra. A linha 20 manda 
o programa para a linha 600, que pre- 
para as condições iniciais do jogo. 

Na linha 600, P=0 significa que ne- 
nhum bloco está sendo mostrado; 
SC=0, que o score é zero; SL=0 quer 
dizer que o nível de dificuldade é zero 
e E = 0 informa ao computador que a co- 
bra permanece dentro dos limites da te- 
la, não tendo cruzado nem a moldura, 
nem seu próprio corpo. Todas essas va- 
riáveis sào utilizadas ao longo do pro- 
grama para que certas sub-rolinas sejam 
chamadas no momento adequado. 

A linha 650 desenha a moldura. A li- 
nha 660 mostra o placar. 

Na linha 670, 1 1 é a cor da cabeça da 
cobra. H e T são variáveis usadas para 
indicar os elementos de B ( ) que con- 
têm as coordenadas da cabeça e da pon- 
ta da cauda da serpente. Essas duas va- 
riáveis são chamadas de "apontadores" 
{pointers). 

As linhas 680 a 710 colocam a cabe- 




ça e dois segmentos do corpo na tela, de 
modo que a cobra tenha apenas estas 
partes a cada início de partida. A cor do 
corpo da cobra è 8. 



Da sub-rotina o programa retorna à 
linha 30, que o envia para a rotina 
principal, na linha SOO. Essa linha veri- 
fica, inicialmente, se há comida (bloco) 
para a cobra na tela. P é o indicador de 
bloco na tela; se seu valor for zero, a 
sub-rotina da linha 200 é chamada. Se 
houver um bloco na tela, um número 
qualquer entre 1 e 1 50 é comparado com 
o nível de dificuldade SL. Se o número 
gerado for menor que SL, a linha 505 
manda o programa para a sub-rotina 
250. 



A sub-rotina que começa na Unha 200 
coloca um bloco na tela, em uma posi- 
ção escolhida ao acaso. A linha 200 se- 
leciona o número — R — entre 1 e 9, 
bem como duas coordenadas RX e RY. 
A linha 210 verifica se a posição tem a 
cor 0, preta, indicando que não há na- 
da no local. A linha 220 imprime na por- 
ção inferior da tela o valor do bloco que 
ali está (bónus). A linha 230 coloca um 
bloco de cor 6 em um ponto qualquer 
da tela. 

A sub-rotina da linha 250 diminui 
gradativamente o valor do bónus, até 
que o jogador consiga fazer a cobra che- 
gar à comida. Se o número for reduzi- 
do a zero antes que a cobra coma o blo- 
co, um espaço em branco é colocado em 
seu lugar. Enquanto isso não ocorre, va- 
lores mais baixos são sucessivamente 
exibidos. A sub-rotina retorna para a li- 
nha 510. 

Esta linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de mo- 
vimentação do cursor. Usamos as teclas P, 
L, Z e X como de costume. O IF...THEN 
verifica se a cobra cruzou a moldura ou seu 
próprio corpo; em caso afirmativo, o pro- 
grama vai para a linha 800, que cuida do 
encerramento da partida. 

A linha 520 testa se a comida foi en- 
golida pela cobra, comparando a cor do 
bloco com TE. Usamos SCRN na linha 
1 20 para obter TE, cor do bloco que es- 
tava na posição que a cabeça da cobra 
ocupa. Caso a comida tenha sido real- 
mente engolida, um bloco do corpo é 
colocado em sua posição. O programa 
vai, então, para a sub-rotina da linha 
300, que calcula o novo score, aumenta 
o tamanho da cobra proporcionalmen- 
te ao bónus — laço entre as linhas 340 
e 390 — e, por fim, coloca outro bloco 
na tela. 

As linhas 540 e 550 mudam os apon- 
tadores da cabeça e da ponta da cauda, 
ajustando seus valores, caso tenham se 
reduzido a zero. A linha 560 coloca o 
bloco da cabeça da cobra na tela. 

A rotina que cuida do final da parti- 
da começa na linha 800, que limpa a te- 
la e provoca um ruído (no Apple), en- 
quanto a palavra "FIM" é impressa vá- 
rias vezes. A linha 805 atualiza o recor- 
de, antes que as linhas 810 a 830 ofere- 
çam ao jogador a oportunidade de jo- 
gar novamente. 



10 M-512:DIM B IM) 

20 GOSUB 600 

30 GOTO 500 

100 KS»INKEYS:IF KS-" 

LS 

110 K=ASC (KS) :NP»B (H) 
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+ 32* (K=94) -(K-9)+(K=8) 
120 TE=PEEK (NP) 

130 IF TE=FG OB TE=HC OR TE=BC 
OR NP<1056 THEN POKE NP.HC:E-1 
140 LS=KS ; RETURN 

200 R=RND(9) : RX-BND (1 3) +1 : RY = RN 

D(29)+l :RP=RX*32+RY 

210 IF PE£K(1024 + RP)OBG THEN 2 

00 

220 RS=RIGHTS(STRS(R) .1) : PRINT6 

RP.RS; : P" 1 : RETURN 

250 B-B-1:IF B-0 THEN PBINT 6BP 

, CHRS (BG) ; : P-0 : RETURN ELSE PRIN 

T êRP . RIGHTS ( STBS (R) .1) S s BETURN 

300 SC«SC+R:PRINT g26.SC;:P-0 

310 SL-5L+1 : POKE NP , BC 

320 H-H-l : IF H-0 THEN H-M 

330 BIH5-NP 

340 FOR J-l TO R 

350 P LA V "L255CEF" 

360 GOSUB 100:IF E-l THEN BOO 

370 B-H-l :IF H=0 THEN H=M 

380 B(H)-NP:P0KE NP. BC 

390 NEXT 

400 POKE NP , HC : RETURN 
500 IF P-0 THEN GOSUB 200 ELSE 
IF RNDU59KSL THEN GOSUB 250 
510 GOSUB 100: IF E-l THEN 800 
520 IF TE-R+112 THEN POKE B ( H) , 
BC: GOSUB 300 

530 POKE B(H).BC:POKE B (T) , BG 
540 B-B-1:IF H=0 THEN H = M 
550 T=T-1:IF T=0 THEN T=« 
560 B1H)-NP:P0KE NP.HC 
570 GOTO 500 

600 BG-RND ( 7 ) +1 : FG-RND ( 7 ) +1 : LS = 

CHRS (94) :P-0:SC=0:SL-1:E-0 

610 IF BG-FG THEN 600 

620 CLS BG:BG=BG-1:FG"FG-1 

630 BG=143+16*BG 

640 FG=143+16*FG 

650 FOR J=1024 TO 1055:PLAY "T2 
55L25504AG":P0KE J,FG:POKE J+48 
0 , FG : NEXT : FOR J = 1056 TO 1472 ST 
EP 32:PLAY"02DA":P0KE J.FG:POKE 

J+31.FG:NEXT 
660 PBINT «3, "RECORDE^" ;HSi : PBI 
NT êl5."SCORE= 0 "; 
670 HC-ASC("« -, )+64:BOASCri") + 
64:T-3:H-1 

680 B(l)-1263:POKE B(1),HC 
690 B (2) -1295: POKE B(2),BC 
700 B(3)-1327:POKE B{3),BC 
710 RETURN 

600 CLS RND(B): PLAY"01ACDEFGAC 

DEFG" : FOR K=l TO 408:PRINT " FO 

BA!! " ; : NEXT : PLAY"04ABCDEFG0 3AB 

CDEFG02ABCDEFG" 

810 IF HS<SC THEN HS = SC 

820 CLS : PRINT &73. "SCORE =";S 

C:PRINT S230." RECORDE =";HS 

830 AS-INKEYS : PRINT 6450 , "PRESS 

IONE QUALQUER TECLA PARA RECO 

MECAR" 

840 AS=INKEYS: IF AS="" THEN 84 
0 ELSE 20 



Usamos a tela de textos, e não a grá- 
fica, para o jogo no TRS-Color, já que 
a cobra é feita de caracteres. 

A linha 10 dimensiona a matriz B de 



modo que esta acomode no máximo 5 1 2 
caracteres — o maior tamanho que a co- 
bra poderá ter. Note que os elementos 
da matriz B não correspondem às posi- 
ções de caracteres na tela. Cada elemen- 
to contém as coordenadas de uma par- 
te da cobra. A linha 20 manda o pro- 
grama à linha 600, que prepara as con- 
dições iniciais do jogo. 

Na linha 600, BG é a cor de fundo 
da tela e FG, a cor da moldura. 
L$ = CHR$(94) faz com que a cobra se 
movimente para cima, até que uma te- 
cla seja pressionada. P = 0 significa que 
nenhum número está sendo mostrado; 
SC = 0, que o score é zero; SL = 0 quer 
dizer que o nivel de dificuldade é zero, 
e E = 0 informa ao computador que a 
cobra permanece dentro dos limites da 
tela, não tendo cruzado nem a moldu- 
ra, nem seu próprio corpo. Todas essas 
variáveis são utilizadas ao longo do pro- 
grama para que certas sub-rotinas sejam 
chamadas no momento adequado. 

A linha 610 verifica se a cor de fun- 
do é igual à da moldura, escolhendo 
duas novas cores se o par inicial for 
idêntico. A linha 620 usa CLS BG para 
colorir a tela. Subtrai I de BG e FG, nu- 
ma preparação para as contas das linhas 
630 e 640. Embora pareçam complexas, 
essas contas simplesmente convertem 
BG e FG em valores que possam ser co- 
locados na tela com POKE, a fim de 
produzir a còr desejada. 

A linha 650 desenha a moldura, en- 
quanto produz alguns sons. A linha 660 
mostra o placar. 

Na linha 670, HC é o código do ca- 
ractere da cabeça da cobra e BC, o có- 
digo do caractere usado no corpo da 
mesma. H e T são variáveis usadas pa- 
ra indicar os elementos de B( ) que con- 
têm as coordenadas da cabeça e da pon- 
ta da cauda da serpente. Essas duas va- 
riáveis são chamadas de "apontadores" 
(pointers). 

As linhas 680 a 700 colocam na tela 
a cabeça e dois segmentos do corpo, de 
modo que a cobra tenha apenas estas 
partes a cada início de partida. 

Da sub-rotina o programa retorna pa- 
ra a linha 30, que o envia para a rotina 
principal na linha 500. Essa linha veri- 
fica, inicialmente, se há um número na 
tela para a cobra comer. P é o indicador 
de número na tela. Se seu valor for igual 
a zero, a sub-rotina da linha 200 é cha- 
mada. Se houver um número na tela, um 
número qualquer entre 1 e 150 é com- 
parado com o nível de dificuldade SL. 
Se o número gerado for menor que SL, 
o programa vai à sub-rotina 250. 

A sub-rotina que começa na linha 200 
coloca na tela úm número qualquer, em 
uma posição escolhida ao acaso. A li- 



nha 200 seleciona o número — R — en- 
tre 1 e 9, bem como suas coordenadas 
RX e RY. Esses dois valores são usados 
para calcular RP, posição do número na 
tabela de nomes da tela 1. Ames que o 
número seja impresso na tela, a linha 
210 verifica se na sua posição há outra 
cor além da cor de fundo, para evitar 
uma superposição com a moldura ou 
com o corpo da serpente. À linha 220 
cabe escrever o número na tela, e colo- 
car 1 em P. 

A sub-rotina que começa na linha 250 
diminui gradativamente o valor do nú- 
mero na tela, até que o jogador consiga 
fazer a cobra comê-lo. Se o número for 
reduzido a zero, um espaço em branco 
é colocado em seu lugar. Enquanto isso 
não ocorre, valores sucessivamente mais 
baixos são colocados na mesma posição. 
A sub-rotina retorna para a linha 510. 

Essa tinha chama outra sub-rotina, na 
linha 100, que recebe os comandos de 
movimentação do cursor. O IF...THEN 
verifica se a cobra cruzou a moldura ou 
seu próprio corpo; em caso afirmativo, 
o programa vai para a linha 800, que cui- 
da do fim da partida. 



A COBRA CRESCE 



A linha 520 testa se a cobra engoliu 
o número, somando 112 a R e compa- 
rando o resultado com TE. Somamos 
1 1 2 a R para obter o código do caracte- 
re correspondente ao número que esta- 
va na tela. TE é obtido com PEEK, e 
corresponde ao código do caractere que 
estava na posição que a cabeça da co- 
bra ocupa agora. Caso o número tenha 
sido realmente engolido, um caractere 
do corpo é colocado em sua posição. O 
programa vai, então, para a sub-rotina 
da linha 300, que calcula o novo score, 
aumenta o tamanho da cobra propor- 
cionalmente ao número engolido — la- 
ço entre as linhas 340 e 390 — e coloca 
outro número na tela. 

As linhas 540 e 550 modificam os 
apontadores da cabeça e da ponta da 
cauda, ajustando seus valores, caso eles 
tenham se reduzido a zero. A linha 560 
coloca o caractere da cabeça da cobra 
na tela. 

A rotina que cuida do encerramento 
da partida começa na linha 800, que lim- 
pa a tela usando uma cor ao acaso e pro- 
duz algum som enquanto a palavra 
"FIM" é impressa várias vezes. Ao fi- 
nal da operação, outro som é produzi- 
do. A linha 810 se incumbe de atualizar 
o recorde, antes que as linhas 820 a 840 
ofereçam ao jogador a oportunidade de 
jogar novamente. 
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I© ESCOLHER 



■ 


ESCOLHA 0 TIPO CERTO 


DE IMPRESSORA 


■ 


PAPEL PARA IMPRESSÃO 


■ 


COMO CONECTAR A IMPRESSORA 


AO SEU COMPUTADOR 



Se você já desejou algum dia uma 
listagem impressa de seus 
programas, ou uma cópia dos gráficos 
que aparecem na teta, chegou 
o momento de adquirir uma impressora. 



Periférico dos mais úteis para um mi- 
crocomputador , uma impressora contri- 
bui não só para a concretização de mui- 
tas aplicações novas, como também pa- 
ra um notável progresso na produtivi- 
dade e na eficiência da programação. 
Entretanto, como ela representa um in- 
vestimento considerável, e como existe 
no mercado uma grande variedade de ti- 
pos e preços, é necessário planejar com 
bastante cuidado a aquisição do mode- 
lo mais adequado. 

Embora a impressora possa ser vista 
apenas como um periférico de saída al- 
ternativo para o vídeo, isto não quer di- 



zer que ambos tenham as mesmas fun- 
ções. O papel principal da impressora é 
assegurar um registro permanente de 
qualquer informação armazenada ou 
processada pelo computador, mesmo 
que esta nunca seja exibida na tela. Mas 
ela pode proporcionar também cópias 
da tela em papel (o que é conhecido co- 
mo hardcopy, em jargão técnico). 

Há muitos tipos de programas capa- 
zes de desenhar na tela gráficos cientí- 
ficos (chamados também de "arte com- 
putacional") que o usuário gostaria de 
copiar, arquivar, ou até colocar em uma 
moldura. O mesmo acontece com os de- 
senhos técnicos produzidos no vídeo por 
software de projetos (CAD ou Computer- 
Aided- Design). Tudo isso pode ser re- 
produzido no papel por uma impresso- 
ra gráfica adequada. 

Certas aplicações, porém, exigem 
apenas uma impressora de textos; por 
exemplo, se você trabalha com progra- 
mas de bancos de dados ou com progra- 



i!" 



i 



■ ii 

Adernadas por solenóides, 
.1- agulhas instaladas 
na "cabeça" da Impressora 
matricial pressionam 
a fila tintada contra o 
papel para formar 
os caracteres. 
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mas contábeis. que não necessitem de 
gráficos, pode encontrar uma impresso- 
ra mais barata, e igualmente adequada. 

Um computador doméstico pode ser 
usado de modo semelhante a uma má- 
quina de escrever: seu teclado permite 
datilografar cartas, artigos, livros etc. 
Existem programas de processamento de 
textos que manipulam com rapidez e efi- 
ciência palavras, linhas e parágrafos. 
Nesse tipo de aplicação, a impressora é 
um periférico essencial. 

A impressora funciona ainda como 
elemento de apoio para a atividadc de 
programação. Neste particular, os mé- 
ritos do video são muitos, mas as pes- 
soas costumam ter mais familiaridade 
com a palavra impressa. Por outro la- 
do, a maioria dos programadores gosta 
de ter uma cópia impressa do programa; 
esta não só dá uma idéia global do pro- 
grama, como facilita o trabalho de de- 
tecção e correção de erros. Além disso, 
é sempre bom contar com uma listagem 
do programa em papel para manter um 
arquivo paralelo. 



TIPOS DE IMPRESSORA 



No Brasil, o usuário de computado- 
res pessoais conta com três espécies de 



impressora: a matricial de impacto, a do 
tipo "margarida" e a impressora térmi- 
ca. Um quarto modelo é a impressora- 
traçadora, muito utilizada na Europa e 
no Japão; essa espécie, porém, é encon- 
trada no Brasil apenas como parte do 
equipamento do microcomputador de 
bolso PC-1500. da Sharp. 

Como acontece com todas as impres- 
soras modernas, a matricial conta com 
carro de papel fixo. A cabeça de impres- 
são se movimenta no sentido transver- 
sal sobre o papel; ela contém uma colu- 
na vertical de agulhas bem próximas 
umas das outras c ligadas a indutores do 
tipo solenóide. Quando um solenóide é 
ativado, a agulha é propulsionada con- 
tra uma fita tintada, imprimindo um 
ponto no papel. Os caracteres são for- 
mados por meio da combinação de agu- 
lhas, e da movimentação da cabeça de 
impressão. 

As primeiras impressoras matriciais 
tinham matrizes de 5 x 7 (cinco colunas 
por sete fileiras), porém as mais moder- 
nas já utilizam nove agulhas, para pro- 
duzir um padrão de 7 x 9 ou 9 x 9. Este 
é um aspecto importante, pois a quali- 
dade final dos caracteres impressos de- 
pende do número de pontos na matriz. 
Uma das características "negativas" das 
impressoras matriciais, quando operam 



com matrizes menores, é a impossibili- 
dade de traçar a parte da letra que fica 
abaixo da linha de impressão, como nas 

letras p e q. 

Essas impressoras são as mais rápi- 
das de todas, existindo modelos com ve- 
locidades que variam de 80 a 400 eps (ca- 
racteres por segundo). A velocidade má- 
xima, no entanto, raramente é atingida. 
As impressoras mais modernas impri- 
mem linhas de texto nas duas direções 
(Impressão bidírecional). 

Mesmo nos melhores modelos de im- 
pressoras matriciais, os caracteres im- 
pressos, embora claramente legíveis, são 
nitidamente formados por pontinhos. 
Entretanto, é possível conseguir uma 
qualidade melhor de apresentação. O re- 
curso mais utilizado para isso é a im- 
pressão múltipla, que faz com que a ca- 
beça imprima duas vezes cada linha de 
texto: uma vez cm cada direção. Antes 
da segunda passagem, o rolo de papel 
é deslocado em uma fração de milíme- 
tro, o que causa um pequeno desalinha- 
mento entre as agulhas de impressão e 
os caracteres já impressos. Assim, os es- 
paços em branco deixados na primeira 
passagem são preenchidos na segunda, 
e os caracteres ficam com um aspecto fi- 
nal mais completo e mais escuro (qua- 
lidade carta). 



4> 
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Esse recurso, porém, reduz a veloci- 
dade normal de impressão à metade e 
tem efeito apenas em impressoras ma- 
triciais com capacidade gráfica. Nestas, 
o computador controla não só o dispa- 
ro individual de cada agulha, como o 
grau de deslocamento horizontal da ca- 
beça de impressão e vertical do rolo. 

Existe ainda um tipo de cabeça com 
um conjunto duplo de agulhas. Esse dis- 
positivo não diminui a velocidade de im- 
pressão, mas é menos usado por ser mais 
caro. Com ele, os caracteres são forma- 
dos em passos múltiplos: a primeira co- 
luna de agulhas dispara, em seguida vem 
a segunda, com um ligeiro deslocamen- 
to, e assim por diante. 

As impressoras gráficas permitem 
também a troca dos tipos de letra (co- 
nhecidos como fontes); desse modo, po- 
de-se controlar a largura e altura dos ca- 
racteres, e determinar se eles serão im- 
pressos em negrito, ou em itálico, etc. 
(alguns programas têm comandos inter- 
nos que indicam o tipo de letra a ser uti- 
lizado na impressão). 

Embora todos esses métodos repre- 
sentem um progresso considerável, a 
qualidade final de impressão de textos 
não é irrepreensível. Para aperfeiçoá-la, 
é necessário utilizar as impressoras de 
caracteres formados, ou seja, as que têm 



caracteres em relevo, como as máquinas 
de escrever (dos tipos "esfera", "vare- 
ta", ou "margarida"). 



IMPRESSORAS DE CARACTERES FORMADOS 



As primeiras impressoras de caracte- 
res formados acopladas a micros foram 
adaptadas dc máquinas de escrever elé- 
tricas, do tipo "esfera". Embora a qua- 
lidade de impressão seja boa, a massa 
da cabeça de impressão (que não foi fei- 
ta para as velocidades máximas dc 15 
eps que a impressora consegue) torna a 
impressão lenta e pouco conftável. Con- 
sequentemente, hoje dominam as im- 
pressoras do tipo "margarida". 

As impressoras "margarida" empre- 



gam um elemento de impressão remo- 
vível semelhante a uma flor, com "pé- 
talas" irradiando do anel central. Cada 
"pétala" tem na ponta um caractereem 
relevo. Para imprimir, a impressora gi- 
ra a margarida até que a "pétala" com 
o caractere fique em posição; um peque- 
no martelo pressiona-a então comra a 
fita de impressão e o papel. A qualida- 
de de impressão é igual ou superior à de 
uma máquina de escrever ciei rica, e mui- 
to superior a de uma impressora matri- 
cial (em qualidade carta); entretanto, a 
velocidade de impressão é bem menor, 
variando entre 8 e 80 cps. 

Tais máquinas contam com recursos 
de ênfase de texto, como sublinhamen- 




Dispostas em torno de um anel (acima), as 
agulhas da impressora "margarida" 
são equipadas com caracteres em relevo 
que imprimem sobre u papel (abaixo). 
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to. negrito etc. Além disso, elas possi- 
bilitam variações no espaçamento entre 
os caracteres. Algumas são capazes de 
gerar gráficos por meio do controle da 
movimentação do papel. 



IMPRESSORAS TÉRMICAS 



Uma desvantagem importante das 
impressoras matriciais e do tipo "mar- 
garida" é o custo relativamente alto. As- 
sim, tem-se tentado, ao longo dos anos, 
utilizar outras técnicas mais baratas de 
impressão. 

As primeiras tentativas levaram ao 
surgimento das impressoras térmicas, 



que exigem um papel especial, revesti- 
do com uma substância química termos- 
sensível. Esse papel é caro, mas tem a 
vantagem de não precisar de fita de im- 
pressão. A cabeça impressora é consti- 
tuída de uma matriz equipada com pe- 
quenas peças de aquecimento. O com- 
putador seleciona o caractere a ser im- 
presso, e o sistema eletrõnico interno da 
impressora faz passar uma corrente elé- 
tríca nas agulhas da cabeça, aquecendo- 
as até cerca de 1S0°C. Esse padrão é en- 
tão aplicado sobre o papel tennOSsensi- 
vel, escurecendo-o nos pontos corres- 
pondentes. 

Tal género de impressora não pode 
ser usado para imprimir textos de me- 
lhor qualidade. O papel, geralmente de 
rolo, é alimentado por fricção (rolo de 
borracha). Assim, seu deslocamento não 
tem a precisão oferecida pela alimenta- 
ção por trator (formulário perfurado 
nas margens). Entretanto, ele apresen- 
ta vantagens como: pequeno tamanho, 
menor desgaste mecânico etc. 

Outro tipo é a chamada impressora- 
traçadora, cujo funcionamento se baseia 
no mesmo princípio do traçador digital 
de desenhos. Além de impressora, ela é 
também traçadora, utilizando pequenas 
canetas esferográficas de várias cores. A 




cabeça de impressão típica contém qua- 
tro penas, que são alojadas em um tam- 
bor rotatório. Sob comando de softwa- 
re, a cabeça pode ser rodada para colo- 
car em posição a caneta com a cor ade- 
quada. Ademais, existe um solenóide 
que retira ou pressiona a pena contra o 
papel. A cabeça se movimenta no senti- 
do transversal, e o papel no vertical, 
possibilitando traços contínuos sobre o 
papel. A velocidade de impressão se si- 
tua em torno de 12 cps. O papel é de 
rolo, semelhante ao das máquinas de 
calcular. 



0 PAPEL PARA IMPRESSORA 



Ao selecionar uma impressora, é ne- 
cessário saber antes como se quer a im- 
pressão. Isso se aplica não somente aos 
modelos e à qualidade dos caracteres, 
como também ao tipo, tamanho, cor e 
textura do papel. Além disso, a íorma 
com que este é alimentado na impresso- 
ra também é importante. Por exemplo, 
se um médico precisar imprimir receitas 
em papel timbrado, deverá dispor de 
uma impressora capaz de ser alimenta- 
da com folhas soltas. 

Existe uma grande variedade de pa- 
péis para impressora de largura padro- 
nizada. Esta pode ser especificada em 
número de colunas (80, 120 e 132 colu- 
nas) ou ainda em centímetros (os tama- 
nhos variam, neste caso, entre 10 e 40 
cm). Os comprimentos são igualmente 
padronizados (ofício, A4 etc). 

Algumas impressoras usam apenas 
um tipo de papel (por exemplo, formu- 
lário continuo de oitenta colunas); ou- 
tras comportam vários tipos. O papel 
pode ser comprado em folhas soltas, em 
rolo ou em formulário contínuo. Este 
último é o papel tradicionalmente utili- 
zado em computadores: consiste de uma 
faixa contínua dobrada em "Z", e acon- 
dicionada em caixas. As folhas podem 
ser separadas na dobra, por meio de um 
serrilhado ou corte vincado. Nas bor- 



Além dc gráficos e desenhos de todos 
us tipos, a Impressora-lricador* 
pode produzir textos com caracteres 
de diversas cores e tamanhos. 
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das, existem duas fitas de papel perfu- 
rado (chamadas remalinas), que lam- 
bem podem ser separadas manualmente. 
Cada tipo de papel exige uma forma 

peculiar de alimentação. Os principais 
mecanismos de alimentação são: trator 
(rodas dentadas que movimentam o for- 
mulário continuo) e fricção (rolo de bor- 
racha, semelhante ao da máquina de es- 
crever, usado com folhas soltas ou com 
papel de rolo). As folhas soltas podem 
ser alimentadas manualmente ou por in- 
termédio de um dispositivo especial (este 
deve ser comprado separadamente, e 
não existe para todos os tipos de im- 
pressora). 

Os papéis podem ser lisos (em uma 
só cor, geralmente branca), pautados e 
zebrados (com faixas de cor e brancas, 
alternadas). Existem ainda papéis com 
cópias múltiplas (1 a 7), com ou sem pa- 
pel carbono intercalado. 



INTERFACES 



Por outro lado, o computador só po- 
de se comunicar efetivamente com a im- 
pressora se for usada uma interface 
adequada. 

Uma interface é, essencialmente, o 
hardware que torna possível a conexão 
entre dois sistemas. Ela é equipada com 
um circuito eletrònico e com o softwa- 
re necessário para operá-lo. Muitos 
computadores já são vendidos com a in- 
terface para impressora embutida; as- 
sim, basta adquirir um cabo para efe- 
tuar a ligação. Outros são normalmen- 
te vendidos sem qualquer tipo de inter- 
face para impressoras. 

Quando o computador e a impresso- 
ra são do mesmo fabricante, há geral- 
mente compatibilidade entre eles. Caso 
isso não aconteça, eles podem ser trans- 
formados por meio de uma interface. 

É importante também assegurar que 
o software que se pretende utilizar seja 
compatível com a impressora, principal- 
mente se ele precisar de recursos espe- 



ciais (elaboração de gráficos, proces- 
samento de textos etc), peculiares a 
determinados tipos de impressora. Al- 
guns softwares têm um módulo de ins- 
talação que permite selecionar a impres- 
sora a partir de um menu. 

Para assegurar algum grau de com- 
patibilidade entre os equipamentos no 
mercado, foram desenvolvidos diversos 
padrões interfaces. Os dois mais famo- 
sos são o RS-232C (uma interface do ti- 
po serial), e o padrão Centronics (uma 
interface do tipo paralelo). 

Numa interface serial, a transmissão 
dos bits do código de cada caractere é 
feita gradualmente (um de cada vez). In- 
ternamente, porém, tanto o computador 
quanto a impressora armazenam os bits 
em paralelo; assim, torna-se necessária 
a presença de um mecanismo de conver- 
são de paralelo para serial (e vice-ver- 
sa) em cada ponta do sistema. Daí a 
vantagem da interface paralela, que 
manda todos os"bits de cada caractere 
ao mesmo tempo. Apesar de mais rápi- 
da, essa interface tem a desvantagem de 
exigir um cabo com maior número de 
fios (geralmente coaxial ou paralelo), 
enquanto a interface serial requer ape- 
nas um par de fios. 

A conversão, transmissão e recepção 
de bits em série são efetuadas por um 
circuito integrado especial chamado 
U ART ( Universal Assynchronous Trans- 
mitter and Receiver, ou Transmissor e 
Receptor Assincrônico Universal). 

Um UART no computador recebe 
códigos ASCII da memória por meio da 
UCP, "traduzindo-os" para o formato 
serial. Além disso, adiciona outros có- 
digos de transmissão e os transmite pa- 
ra a impressora. Um UART idêntico na 
impressora recebe esses códigos e, se não 
houver erros, os converte de volta no 
formato paralelo. As taxas de transfe- 
rência de dados (medidos em bauds) va- 
riam, segundo a impressora, entre 75 e 
19 200 bits por segundo (ou bauds), o 
que equivale a cerca de 7 c 1 800 eps, res- 
pectivamente. 



Para superar as limitações de veloci- 
dade impostas ao computador, devido 
à lentidão do mecanismo impressor, a 
maioria das impressoras dispõe de uma 
memória intermediária chamada buffer. 
A informação a ser impressa e" enviada 
diretamente para o buffer, liberando o 
computador para outras tarefas. O con- 
trolador da impressora esvazia então o 
buffer na impressão. O tamanho dessa 
memória intermediária varia entre 8 e 
8 000 bytes. À medida que ela aumenta, 
lorna-se menor a frequência com que o 
computador é interrompido, ou seja, di- 
minui a demanda da impressora sobre 
o computador. Assim, embora saia mais 
caro, é preferível ter uma impressora 
com um buffer maior. Algumas empre- 
sas vendem buffers especiais de grande 
capacidade para serem instalados entre 
o computador e a impressora. 

Um outro tipo de interface serial em- 
pregado durante muito tempo com im- 
pressoras é o laço de corrente de 20 mA. 
Originalmente usado em terminais de te- 
Ictipos e telex, esse tipo tem sido substi- 
tuído ultimamente pelo padrão 
RS-232C, pois é muito lento. 

A interface paralela mais usada é a 
do tipo Centronics. Desenvolvida pelo 
fabricante do mesmo nome na década 
de 70, ela foi universalmente adotada 
devido à sua simplicidade. A esmagado- 
ra maioria de impressoras e micros uti- 
liza hoje esse padrão, o que garante am- 
pla compatibilidade. 

Outra interface bastante usada, prin- 
cipalmente na interligação de instrumen- 
tos de medida a computadores, é o pa- 
drão IEE 488, um sofisticado equipa- 
mento paralelo que permite a operação 
full-duplex (comunicação simultânea 
nos dois sentidos). Como pode ser co- 
nectada a muitos micros, essa interface 
foi incorporada a alguns modelos de im- 
pressora. Muitos de seus inúmeros re- 
cursos, porém, não são necessários à co- 
municação computador-impressora. 
Por esse motivo, a Centronics continua 
sendo a opção preferida. 
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Nem só de monstros e dragões vivem 
os blocos gráficos. Com eles podemos 
criar, por exemplo, conjuntos de símbo- 
los especiais ou de novas letras, ou qual- 
quer outra coisa que desejarmos. Neste 
artigo, veremos como criar uma grande 
variedade de blocos e como utilizar me- 
lhor o programa gerador apresentado 
nas lições anteriores. 



Monstros e espaçonaves são apenas duas 
aplicações dos blocos gráficos. 
Extremamente úteis e versáteis, estes 
podem assumir a forma que 
quisermos. A imaginação é o limite. 



QUAIS SÃO OS LIMITES? 



Alguns microcomputadores limitam 
o número de blocos que podem ser pro- 
duzidos. Este é o caso do Spectrum, que 
só permite a criação de 21 blocos. Já no 
MSX é possível produzir 256 blocos pa- 
ra cada terço da tela de alta resolução 
— 256 também é o máximo que o pro- 
grama gerador cria de cada vez. No Ap- 
ple, o número de blocos é limitado ape- 
nas pela quantidade de memória dispo- 
nível; esse é também o limite do TRS- 
Color. Neste último, aliás, não se pode 
falar propriamente de blocos gráficos, 
mas sim de matrizes que armazenam o 
padrão desejado. O ZX-81 e o TRS-80 
não dispõem desse recurso, impossibi- 
litando a criação de blocos gráficos em 
BASIC apenas. 

No caso do Spectrum, há formas de 
se extrapolar o limite dos 21 blocos, 
quando se deseja um número maior. As- 
sim, podemos criar uma tela que use 
muitos blocos — por exemplo, um jo- 
go em que um sapo deve atravessar uma 
pista movimentada, pela qual trafegam 
carros, caminhões e ônibus. Isso certa- 
mente consumirá mais de 21 caracteres, 
sem contar os que vamos precisar para 
desenhos de fundo como margens de 
rios, calçadas e acostamentos. 

Suponhamos que se trate de um de- 
senho representando uma rua. Teremos, 
nesse caso, de utilizar blocos para figu- 
rar os edifícios, as pessoas, os veículos 
e outros detalhes da cena. No próximo 
artigo, explicaremos como criar uma le- 
ia desse tipo. 

Finalmente, podemos precisar de um 
novo conjunto de caracteres — o alfa- 
beto grego, por exemplo — o que ul- 
trapassaria o limite de 21 caracteres. 

IEm resumo, há inúmeras situações 
que exigem mais de 21 blocos gráficos. 
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Felizmente, casos como esses não ficam 
sem solução, pois existe uma maneira de 
aumentar o número de blocos ofereci- 
dos pelo computador. 



O espaço reservado pelo Spectrum ao 
ser ligado corresponde a 21 blocos grá- 
ficos. Podemos, contudo, aumentá-lo, 
destinando uma área maior na RAM es- 
pecialmente para esse fim. Assim, quan- 
do os padrões dos novos blocos estive- 
rem na memória, serão formados vários 
"bancos" de 21 blocos cada um. 



COMO COLOCAR OS BLOCOS NA MEMÓRIA 



A primeira coisa a fazer é encontrar 
um lugar seguro para guardar nossos 
blocos na memória, de tal forma que 
eles não possam ser apagados pelo BA- 
SIC. Devemos também decidir quantos 
blocos usaremos para dimensionar pre- 
viamente o espaço a ser reservado. 

Se quisermos criar mais 21 blocos, 
podemos fazer o cálculo do comprimen- 



to que o "banco de memória" vai ocu- 
par, multiplicando 21 (o número de no- 
vos blocos) por 8, que é o número de 
bytes necessários para definir o padrão 
de um bloco. O resultado dessa multi- 
plicação é o número de bytes que preci- 
samos reservar. 

O passo seguinte consiste em escolher 
a posição em que vamos colocar o "ban- 
co". Quanto mais alto o colocarmos na 
memória, mais espaço sobrará para o 
programa em BASIC. O ideal seria po- 
sicionar nosso "banco" imediatamente 
abaixo da área em que ficam guardados 
os 21 primeiros blocos e reservada au- 
tomaticamente pelo micro. 

O endereço máximo até onde o BA- 
SIC pode chegar é denominado RAM- 
TOP. Ele Tica situado uma posição abai- 
xo do primeiro byte da área dos blocos 
gráficos — UDG — , reservada automa- 
ticamente pelo Spectrum. Veremos mais 
tarde que esse endereço não é fixo. Po- 
demos verificar o valor atual de RAM- 
TOP por intermédio do comando: 

PRINT USR "A" - 1 

Essa linha mostra na tela o endereço 
do primeiro byte do bloco definido pe- 



lo usuário no lugar "A" menos 1. Se 
não houver alterações depois que o apa- 
relho for ligado, o valor de RAMTOP 
deverá ser 65367 no Spectrum de 48K, 
e 32599 no de 16K. 

Agora que sabemos onde fica o 
RAMTOP, podemos calcular o endere- 
ço inicial de nosso espaço reservado pa- 
ra os novos blocos. 

Para isso, temos que calcular quan- 
tos bytes vamos reservar a partir do pri- 
meiro byte da área dos UDG. Nosso 
banco tem um comprimento de 21 x 8, 
ou 168 bytes. Dessa forma, ele deve co- 
meçar 168 bytes abaixo da área dos 
UDG. Isso fica na posição: 

PHINT USR "A" - 169 

que corresponde ao valor 65199, ou 

32431 nas máquinas de 16K. 



PROTEÇÃO DO BANCO DE BLOCOS 



Entretanto, não basta colocar sim- 
plesmente os padrões dos blocos nessa 
área. Programas BASIC muito longos 
podem chegar até lá, destruindo os da- ■ 
dos. Para proteger essa área, devemos | 
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digitar , ou colocar em uma linha do pro- 
grama, a instrução: 
CLEAB USB "A" - 169 

Isso fará com que o RAMTOP seja 
deslocado 168 bytes para baixo, de mo- 
do que as posições acima de 65199 (ou 
32431) ficarão protegidas. 

Agora, ternos que informar o Spec- 
trum onde encontrar os dados; depois 
disso, colocamos na memória os bytes 
correspondentes aos novos caracteres. 



COMO USAR APONTADORES 



Para informar ao computador onde 
se encontram os dados referentes aos 
novos blocos, precisamos modificar o 
valor de um apontador. 



Existem vários apontadores na me- 
mória do Spectrum: cada um deles 
"aponta" para uma posição importan- 
te da memória. Neste caso especifico, es- 
tamos interessados naquele que "apon- 
ta" para o endereço do primeiro byte da 
área de blocos gráficos. Antes de usar 
um bloco gráfico, o computador deve 
descobrir onde seus bytes estão guarda- 
dos. Para isso, ele precisa primeiro ob- 
ter o valor do endereço que está no 
apontador. Esse valor é geralmente 
65368, mas devemos modificá-lo, de 
maneira que ele passe a "apontar" pa- 
ra o início do novo banco de blocos. 

Uma característica dos apontadores 
é que podemos colocar novos valores 
dentro deles usando POKE; assim, o 
computador utilizará simplesmente o 
novo endereço. É essa característica que 



faz do apontador um elemento tão útil 
na expansão do limite de blocos. Na ver- 
dade, precisamos de dois comandos PO- 
KE para modificar o conteúdo de um 
apontador, pois o valor máximo que um 
byte pode conter é 255, ao passo que os 
valores de endereços são geralmente 
maiores. Desse modo, o Spectrum que- 
bra o endereço em duas partes, equiva- 
lentes, por assim dizer, ao algarismo das 
dezenas e ao algarismo das unidades de 
um número normal. 

Para calcular as diferentes partes de 
um número decimal, devemos dividi-lo 
por 10, caso ele tenha dois algarismos. 
Tomemos o número 56 como exemplo: 
para encontrar o algarismo das dezenas, 
dividimos 56 por lOe obtemos 5. O res- 
to da divisão, 6 no nosso exemplo, é o 
algarismo das unidades. 
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Quando quisermos colocar um novo 
valor dentro do apontador (usando PO- 
KE), devemos quebrar o número em 
duas partes de maneira similar. A dife- 
rença é que, em vez de dividirmos por 
10, dividimos por 256. Nosso banco con- 
tendo 21 novos blocos deve começar no 
endereço 65200 (no Spectrum de 48K). 
Assim, é preciso colocar esse valor den- 
tro do apontador, quebrando-o em duas 
partes. Dividimos então 65200 por 256. 
Obtemos 254 e um resto igual a 176. 

O sistema operacional do Spectrum 
interpreta a primeira parte de um núme- 
ro com duas partes como sendo a me- 
nor (ao contrário do que fazemos com 
números decimais). Desse modo, o quo- 
ciente da divisão vai para a segunda par- 
te do número e o resto para a primeira. 

O nosso apontador corresponde en- 



tão a dois endereços: 23675 e 23676. 
Portanto, precisamos de dois POKE: 



Falta agora criar e colocar os novos 
blocos na memória. 

Uma vez modificado o conteúdo do 
apontador, procedemos exatamente da 
mesma maneira que com blocos nor- 
mais: POKE USR "A" com o primeiro 
byte do primeiro caractere, USR "A" 
+ 1 com o segundo byte do primeiro ca- 
ractere, e assim por diante. 

Se você preferir, pode colocar os va- 
lores na memória antes de mudar o 
apontador. Neste caso, terá que usar o 
valor do endereço, e não mais USR 
"A". Assim, no nosso exemplo, o pri- 
meiro endereço seria 65200. Para não 



confundirmos os números, é aconselhá- 
vel usar + 1 em cada novo POKE. 

Para trabalhar com os caracteres no- 
vos, é preciso modificar o apontador 
(geralmente, é mais fácil fazer isso no 
início). 

Se seguirmos corretamente as ins- 
truções, será fácil imprimir os blocos, 
usando um programa BASIC. Contudo, 
quando precisamos de novos caracteres 
ou blocos disponíveis via teclado, o mé- 
todo não é muito adequado. Não é agra- 
dável mudar o apontador ou usar o mo- 
do gráfico a todo instante. 



UM NOVO CONJUNTO DE CARACTERES 



Para contornar esse problema, é ne- 
cessário que redefinamos o conjunto de 




IIIIIIIIIIIHH 



■■■■■■llllllll 



caracteres do Spectrum. Isso vai fazer 
com que o ato de pressionar uma tecia 
imprima um novo caractere ou bloco 
gráfico, em vez da letra ou número cor- 
respondentes. 

Há muitos motivos para se criar um 
novo conjunto de caracteres: por exem- 
plo, quando queremos imprimir mensa- 
gens na tela em outra língua (russo ou 
grego, digamos), ou quando desejamos 
personalizar um programa, usando tipos 
que nós mesmos criamos. 

A redefinição do conjunto de carac- 
teres do Spectrum é na realidade bem si- 
milar à criação de novos bancos de 
UDG: reserva-se uma área na memória 
RAM e coloca-se ali os padrões de ma- 
neira análoga. 

O único problema com a redefinição 
é que, mesmo que queiramos criar ape- 
nas um caractere novo, todos os outros 
devem ter seus padrões transferidos pa- 
ra a mesma área da RAM. 

A razão para isso é que devemos mo- 
dificar o apontador do conjunto de ca- 
racteres, da mesma maneira que ante- 
riormente mudamos o apontador de 
UDG. Uma vez modificado o valor do 
apontador, o computador passa a pro- 
curar os padrões das letras no novo en- 
dereço na RAM, não podendo retornar 
à ROM para obter os padrões das letras 
que não foram modificadas. 

Um procedimento útil é transferir pa- 
ra a área reservada na RAM todos os 
bytes das letras antes de colocar os da- 
dos correspondentes aos caracteres que 
queremos modificar. 

Digite a instrução RANDOM O pa- 
ra limpar a memória e depois carregue 
o seguinte programa: 

10 CLEAR USR "A"-769 

20 LET d-PEEK 23730+256*PEEK 

23731+1 

30 FOR n-15616 TO 15616+767 

40 POKE d, PEEK n 

50 LET d-d + 1 : NEXT n 

60 POKE 23606, PEEK 23675 

70 POKE 23607 , PEEK 23676-4 

80 LET p=PEEK 23606+256*PEEK 

23607+46*8 

90 FOR n-p TO p+79: READ a; 

POKE n.at NEXT n 
110 DATA 0,124,76,84,86,102, 
126,0 

130 DATA 0,8.8,6,24,24,24,0 
150 DATA 0,126,2,126,96,96,126 
.0 

170 DATA 0.124,4,126,6,6,126,0 
190 DATA 0,96.96,98,126,2,2,0 
210 DATA 0,124,64.126.6,6,126,0, 



230 DATA 0.62,32,126,96.98,126 

.0 

250 DATA 0,124,4,4,6,6,6,0 
270 DATA 0.60,36,60,102,102, 
126,0 

290 DATA 0,124,68,126,6,6,126, 



As oito primeiras linhas protegem 
uma área na RAM e colocam ali os bytes 
correspondentes ao conjunto de carac- 
teres obtidos na ROM. As linhas restan- 
tes redefinem os números. 

Coloque o programa para funcionar, 
aguardando a mensagem "OK". A se- 
guir, aperte uma das teclas numéricas. 

Se pressionarmos NEW, os números 
voltarão à sua forma original. Entretan- 
to, os dados correspondentes continuam 
na memória e o novo conjunto de ca- 
racteres pode ser reativado por: 



Não importa o tamanho d; 
de seu micro — 16K ou 48K — , o pro- 
grama descobre e altera os endereços re- 
levantes. Ele faz isto verificando o va- 
lor do apontador do RAMTOP (ende- 
reços 23730 e 2373 1 ). Os valores dos 
mandos PEEK são combinados de ma- 
neira a produzir o valor de RAMTOP. 

O conjunto de caracteres da ROM 
é guardado entre os endereços 15616 
e 15616 + 767 (pelo menos, esta é a 
parte do conjunto de caracteres que 
pode ser redefinida). Usando um laço 
FOR.. .NEXT, o programa transfere pa- 
ra a RAM os bytes dessa região da 
ROM. 

O laço atualiza o endereço que está 
sendo transferido automaticamente (já 
que o contador do laço é também o en- 
dereço que está sendo transferido); o en- 
dereço da RAM que está recebendo o 
byte é atualizado na linha 50 (variável 
d). Como podemos ver na linha 30, não 
há necessidade de somar os endereços 
nem os bytes, já que o Spectrum pode 
fazer isso por nós. As linhas 60 e 70 mo- 
dificam o valor do apontador do con- 
junto de caracteres, para que ele "apon- 
te" para o endereço inicial da área que 
reservamos na RAM. Esse endereço é 
calculado a partir do endereço da área 
de caracteres UDG, obtido por intermé- 
dio de PEEK (esse mecanismo funcio- 
nará mesmo que tenham sido criados 
novos bancos de UDG). O novo conjun- 
to de caracteres ficará logo abaixo da 
área de caracteres UDG; assim, o cál- 



culo na Unha 70 simplesmente subtrai o 
comprimento do conjunto de caracteres 
do endereço inicial da área de UDG. Es- 
se comprimento é igual a 4, mas, como 
está no byte mais significativo do ende- 
reço, ele é multiplicado por 256, resul- 
tando no comprimento real do conjun- 
to, que é de 1024 bytes. 

Agora que o conjunto de caracteres 
foi todo transferido para a RAM, po- 
demos substituir alguns dos velhos ca- 
racteres por novos. 

Se não tomarmos cuidado, corremos 
o risco de substituir os caracteres erra- 
dos, isso pode ser evitado se escolher- 
mos direito os caracteres que serão mo- 
dificados e se colocarmos os novos bytes 
nos lugares certos. 

O apêndice 1 do manual do Spectrum 
apresenta uma lista com o conjunto de 
caracteres. Somente podem ser redefi- 
nidos os caracteres com códigos ASCII 
entre 32 e 127 (a coluna da esquerda traz 
o código de cada caractere). 

Para calcular os bytes que devem ser 
modificados, multiplicamos o código do 
caractere por 8. Essa operação nos dá 
o endereço do primeiro byte do carac- 
tere que queremos redesenhar. Para o 
caractere de espaço (código ASCII 32), 
o resultado é 32 x 8 = 256. 

Agora que sabemos onde o byte es- 
tá, dentro do conjunto de caracteres, so- 
mamos esse número ao endereço que se 
encontra no apontador do conjunto de 
caracteres. Isso é calculado como PEEK 
23606 + 256*PEEK 23607 + 32*8. No 
Spectrum de 48K recém-Hgado, o resul- 
tado será 64600. 

Depois de tudo isso, lorna-se fácil 
fornecer os dados do novo caractere ao 
Spectrum. Usamos POKE para colocar 
oito bytes na memória a partir do ende- 
reço que acabamos de calcular. Esses 
bytes devem corresponder ao padrão do 
novo bloco. 

As linhas que se seguem redefinem o 
formato dos caracteres de espaço, fazen- 
do com que eles se tornem visíveis na 
listagem: 

10 FOR X=64600 TO 64600+7 
20 READ A 
30 POKE X.A 
40 NEXT X 

50 DATA 0.126,66,66,66,66,126 
.0 

Se seu micro tem I6K, mude o núme- 
ro 64600 para 31832. Evidentemente, é 
uma boa idéia usar laços FOR.. .NEXT 
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para colocar bytes na memória, uma vez 
que o laço muda automaticamente o en- 
dereço e evita que escrevamos oito co- 
mandos POKE. 

Tente agora calcular o endereço ini- 
cial dos bytes correspondentes aos diver- 
sos caracteres numéricos: você poderá 
conferir o resultado examinando a lis- 
tagem do programa. 



Já vimos como mudar o formato dos 
caracteres do MSX. Agora, vamos pro- 
curar esclarecer a organização da memó- 
ria de alta resolução (SCREEN 2) para 
que possamos criar blocos gráficos (à 
mão ou por meio do gerador de blocos). 
O artigo Os Comandos PEEK e POKE 
(página 261) apresenta uma introdução 
ao assunto, que deve ser revista. 

A tela do MSX tem 256 pontos de 
largura por 192 de altura. Cada um des- 
ses pontos pode estar aceso ou apaga- 
do, assumindo assim a cor de frente ou 
a cor de fundo, respectivamente. Exis- 
tem dezesseis cores disponíveis. No mo- 
do de alta resolução (SCREEN 2), es- 
ses pontos estão distribuídos por 768 
blocos gráficos de 8 x 8 pontos. Cada 
bloco gráfico definido pelo usuário po- 
de ocupar uma dessas 768 posições — 
ao contrário dos sprites, que podem 
ocupar qualquer posição. 

O padrão de cada uma dessas posi- 
ções (ou blocos) é definido da maneira 
usual, ou seja, cada linha de oito pon- 
tos corresponde a um número de oito 
bits ou um byte. Assim, cada posição 
precisa de oito bytes de memória. 

O MSX tem uma memória separada 
só para o vídeo: a memória VRAM. O 
comando SCREEN determina como es- 
sa memória será utilizada pelo micro. 
No modo de alta resolução — que ob- 
temos logo após acionar o comando 
SCREEN 2 dentro de um programa BA- 
SIC — , uma porção da VRAM é sepa- 
rada para armazenar os padrões de to- 
das as 768 posições da tela. Essa parte 
da VRAM é denominada tabela de pa- 
drões e tem seu endereço inicial (na 
VRAM) contido em BASE<12), que é 
uma variável interna do micro. Como 
cada posição — 8x8 pontos — da tela 
necessita de oito bytes, a tabela de pa- 
drões tem um comprimento igual a 768 
x 8 = 6144 bytes. Cada byte define o 
padrão de uma linha de bloco gráfico. 



Esse padrão, por sua vez, dett 
quais pontos estão acesos e quais pon- 
tos estão apagados. Para colorir os pon- 
tos, o computador precisa usar uma ou- 
tra área da VRAM, a tabela de cores, 
que tem endereço inicial armazenado em 
BASE(ll). Cada linha de bloco gráfico 
pode ter apenas uma cor de frente (pon- 
tos acesos) e uma de fundo (pontos apa- 
gados). Assim, a cada linha de bloco 
gráfico — ou posição — da tela corres- 
ponde um byte de cor. O valor desse 
byte é igual ao código da cor de fundo 
mais 16 multiplicado pelo código da cor 
de frente. Como a tela tem 768 posições 
e cada posição oito linhas, a tabela de 
cores também tem 6144 bytes de com- 
primento. 

Quando quisermos colocar um blo- 
co gráfico em determinado ponto da te- 
la, devemos calcular as posições nas ta- 
belas de padrões e de cores correspon- 
dentes aos bytes que vamos alterar. Pa- 
ra conhecermos a posição na tabela de 
cor ou na de padrões do primeiro byte 
que coloca um bloco na tela, multipli- 
camos a posição desejada na tela por oi- 
to. Se quisermos colocar um bloco, di- 
gamos, na posição 25 da tela,.temos que 
alterar oito bytes, a partir da posição 25 
x 8 = 200 na tabela de padrões e na de 
cores. O programa a seguir tenta ilus- 
trar o processo: 

5 P-367 

10 SCREEN 2 

20 FOR 1-0 TO 7 

30 HEAD Aí II 

40 VPOKE BASEU2)+P*B+I,A(I) 
50 VPOKE BASE(11)+P*8+I, 6*16+11 
60 NEXT I 
70 GOTO 70 

100 DATA 254,124,56,16,8,28,62, 
127 

Este programa desenha na posição 
367 da tela o bloco gráfico cujo padrão 
corresponde aos oito bytes da linha DA- 
TA 100. 

A linha 5 determina a posição P da 
tela onde será colocado o bloco gráfi- 
co. A linha 10 seleciona o modo de alta 
resolução. 

O comando VPOKE é utilizado para 
colocar valores na VRAM. Note como 
os endereços correspondentes ao padrão 
e à cor das linhas do bloco são cal- 
culados. Como são oito linhas, o laço 
FOR.. -NEXT será repetido oito vezes. 
Na linha 40, o endereço do primeiro 
byte- a ser alterado na tabela de padrões 
é 8 multiplicado pela posição na tela P. 



Essa posição é contada na tabela a par- 
tir de seu endereço inicial na VRAM, da- 
do por BASE(12). A variável I, conta- 
dor do laço, faz com que oito posições 
consecutivas da VRAM sejam modifi- 
cadas. Por fim, o vaJor colocado na ta- 
bela de padrões é A(I), que foi lido com 
READ na linha 30. A cor de cada linha 
do bloco é determinada de forma seme- 
lhante. O cálculo da posição é o mesmo, 
só que o valor obtido é contado a partir 
de BASE(ll), endereço inicial da tabe- 
la de cores na VRAM. O byte de cor de- 
termina que a cor de frente seja verme- 
lha (código 6) e a de fundo seja amare- 
la (código II), na linha 50. 

A linha 70, por sua vez, evita que a 
tela seja apagada, já que o modo gráfi- 
co de alta resolução — SCREEN 2 — 
só permanece ativo enquanto o progra- 
ma estiver funcionando. 



0 PROGRAMA GERADOR DE BLOCOS 



Se você já criou vários blocos gráfi- 
cos com o auxílio de nosso programa ge- 
rador, chegou o momento de usá-los. Se 
você ainda não usou o programa, o que 
vem a seguir pode parecer confuso. As- 
sim, para aproveitar bem as próximas 
linhas, é necessário que você tenha cria- 
do e guardado em fita todo um banco 
cheio de blocos gráficos criados pelo 
gerador. 

Uma vez gravado um banco conten- 
do 256 blocos, podemos recuperá-lo de 
duas maneiras: usando o próprio pro- 
grama gerador para fazer uma edição, 
por exemplo, ou para retirá-lo direta- 
mente da memória do micro e usar os 
blocos em outro programa. Na segun- 
da hipótese, a primeira coisa a fazer é 
proteger uma área no topo da memória 
do micro, colocando ali o banco de blo- 
cos. Para isso, digite: 

CLEAR 200.B.HC999 

Em seguida, posicione a fita e carre- 
gue o banco de blocos usando: 

BLOAD "CAS:" 

e o banco terá sido carregado. 

Para trazer o banco para a tela, use 
um programa BASIC: 



20 FOR 1-0 TO 256*8-1 



IIIIIIIIIIIMHI 



■■■■■■lllllllll 



30 VPOKE BASE{12)+I+J.PEEK(S.HD1 

00+1) t 

40 VPOKE BASE(11)+I+J,PEEK(LHE1 

00+1} 

50 NEXT I.J 
60 GOTO 60 

Depois de executar o programa, te- 
remos três cópias do banco de blocos 
que criamos anteriormente. Todos os 
blocos produzidos estarão lá. Se não ti- 
vermos armado um banco completo 
com 256 blocos, alguns blocos estranhos 



aparecerão, mas sem prejuízo dos que 
foram criados. Esses blocos exteriores 
correspondem a valores da memória que 
permaneceram inalterados quando cria- 
mos o banco e foram gravados junto 
com ele. No entanto, nada disso acon- 
tecerá se criarmos 256 blocos, preen- 
chendo inteiramente o espaço. 

A linha 5 ativa a tela de alta resolu- 
ção. A linha 10 se prepara para fazer 
três cópias do banco, repetindo três ve- 
zes as linhas de 20 a 40. O laço entre as 
linhas 30 e 40 será repelido 256 x 8 ve- 
zes — correspondente a 256 blocos com 
oito bytes cada um. 

A linha 30 transfere os padrões do 
banco — endereço inicial D100, em he- 
xa — para a tabela de padrões — ende- 
reço inicial BASEU2). A linha 40 trans- 
fere os bytes de cor do banco — ende- 
reço inicial E100, em hexa — para a ta- 
bela de cores — endereço inicial BA- 
SEOU. Observe como esse processo é 
demorado. 

Como vemos, o banco de blocos cria- 
do pelo gerador consiste em uma "ta- 
bela de padrões" — endereço inicial 
D100, hexadecimal — e uma "tabela de 
cores" — endereço inicial E100. 

Obviamente, nem sempre desejamos 
transferir de uma só vez todo o banco 
para a tela, como no exemplo. Quando 
quisermos obter o padrão (ou a cor) de 
um bloco isolado que está no banco, te- 
remos que calcular onde se encontram 
os bytes correspondentes. Para isso, pre- 
cisamos saber qual a posição desse blo- 
co no banco (é necessário fazer uma lis- 
ta quando criarmos os blocos). Conhe- 
cendo esse valor, é possível calcular o 
endereço do primeiro byte do bloco, 
multiplicando sua posição por 8 e so- 
mando o resultado ao endereço inicial 
— D100 ou E100, conforme queiramos 
padrões ou cores. 



Por esse método de trabalho com a 
tela de alta resolução, tudo o que foi co- 
locado nas tabelas de padrões e cores 
apareceu imediatamente na tela. Existe, 
porém, outra maneira de usar essas ta- 
belas: levando-as a funcionar como ban- 
cos de blocos gráficos, dos quais esco- 
lhemos apenas alguns para exibir de ca- 
da vez na tela. 

Para fazer isso, utilizamos a tabela de 
nomes — endereço inicial BASE (10), na 
VRAM. Essa tabela tem 768 bytes de 
comprimento — cada byte corresponde 
a uma posição (8x8 pontos) da tela. Ela 
permite que codifiquemos os blocos que 
estão na tabela de padrões com números 
de 0 a 255, como no banco do gerador. 



Para que o bloco de número 37, por 
exemplo, apareça na posição 170 da te- 
la, basla fazer com que o byte 170 da 
tabela de nomes seja igual a 37, usando 
VPOKE BASE<10) + 170,37. Essa or- 
ganização é semelhante à da tela de tex- 
tos, onde os padrões dos caracteres fi- 
cam numa tabela de padrões e uma ta- 
bela de nomes faz com que os caracte- 
res sejam impressos na tela codificados 
por seu código ASCII. 

Existem aqui dois problemas. Pri- 
meiro, só podem ser codificados 256 
blocos gráficos, enquanto o número 
de blocos nas tabelas de cor e padrão é 
três vezes maior. Esse problema é con- 
tornado com a criação de três bancos 
de blocos gráficos. Isso significa que 
os 256 primeiros blocos (256 x 8 bytes) 
das tabelas de cor e padrão têm seus có- 
digos validos apenas para o terço supe- 
rior da tela. Do mesmo modo, o terço 
médio e o inferior contam com seus pró- 
prios bancos — respectivamente, no ter- 
ço médio e inferior das tabelas de cor 
e padrão. 

O segundo problema é que nem o 
próprio micro emprega esse tipo de or- 
ganização. Assim, se trabalharmos com 
a codificação descrita para criar telas 
gráficas, não poderemos recorrer a co- 
mandos como DRAW, LINE e PAINT. 
A forma de organização utilizada pelo 
computador é a mesma que faz com que 
cada byte colocado na tabela de padrões 
e de cores apareça na tela, possibilitan- 
do o modo de utilização que descreve- 
mos linhas atrás. 

Para entender melhor, veja os valo- 
res que o micro mantém normalmente 
na tabela de nomes: 

20 FOP, 1-0 TO 3*256-1 

30 PBINT I.VPEEK(BASE(10)+I) 

40 NEXT 

Este programa lista os valores conti- 
dos na tabela de nomes. Note que a po- 
sição I corresponde ao caractere 1 , que 
é o primeiro da tabela de padrões e de 
cores; a posição 2 tem valor 2, corres- 
pondente ao segundo bloco da tabela de 
padrões (e de cores), e assim por diante. 

Para familiarizar-se com a utilização 
da tabela de nomes, acrescente as pró- 
ximas linhas ao programa que carrega 
o banco criado pelo gerador. Ele só fun- 
cionará, contudo, se houver um banco 
de blocos no topo da memória. 

60 FOfi 1-0 TO 255 
70 FOR J-0 TO 3*256-1 
BO VPOKE BASE(10)+J.I 
90 NEXT J,I 
100 GOTO 100 

Este programa preenche toda a tabela | 
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A figura mostra na linha superior a 
números empregados pelo 
Spectrum; logo abaixo, aparecem 
alinhados os novos 
números criados pelo programa. 



de nomes com o mesmo valor. O códi- 
go de cada bloco é modificado pelo la- 
ço FOR...NEXT das linhas 60 a 90, de 
tal forma que, ao ser desenhado, cada 
um dos 256 blocos do banco ocupa a le- 
ia inteira. 

Mais interessante ainda é fazer com 
que os blocos que estão na tela se movi- 
mentem. Para tanto, você deve modifi- 
car a linha 80: 



O programa movimema todos os blo- 
cos da tela mudando apenas os valores 
na tabela de nomes. Uma vez copiado 
o banco do alto da memória nas tabe- 
las de cor e padrão, seus valores não se 
modificam. A velocidade com que são 
movimentados os blocos é aproximada- 
mente dezesseis vezes maior que aquela 
com que eles são desenhados no início 
do programa, já que um VPOKE na ta- 
bela de nomes equivale a oito VPOKE 
na tabela de padrões e oito VPOKE na 
tabela de cor. 

Esta última modificação faz com que 
apenas o terço superior da tela seja mo- 
vimentado: 

70 FOR J-0 TO 255 



O maior problema para a utiliza- 
ção de blocos gráficos no Apple e no 



TK-2000 é a caótica organização da me- 
mória de vídeo desses computadores. 
Com efeito, na tela desses micros, as li 
nhãs consecutivas não têm números con 
secutivos e é necessário recorrer à ma- 
temática para contornar a dificuldade, 
o que torna parte do programa muito 
complicada para alguns. 

Nada melhor do que um exemplo em 
BASIC para ilustrar o problema: 



10 



40 



HGB 

FOR I - B192 TO 16363 
POKE 1,255 
NEXT I 



Este programa coloca na tela peda- 
ços de linha, por intermédio de POKE. 
Embora os endereços da memória de ví- 
deo sejam consecutivos, as linhas pro- 
duzidas não o são. Ora, nossos blocos 
gráficos só serão desenhados se colocar- 
mos valores na memória de vídeo usan- 
do POKE. 

O problema pode ser resolvido pela 
dedução de uma fórmula matemática 
que permita calcular os oito endereços 
necessários para desenhar um bloco grá- 
fico em uma determinada posição. 



ESCREVA NA TELA DE ALTA RESOLUÇÃO 



Para os usuários do TK-2000 o pro 
grama a seguir pode parecer desneces 
sário, pois esse micro é capaz de escre 
ver textos na tela de alta resolução. En 
tretanto, os usuários do Apple o acha- 
rão bem útil. 

10 HGB :E - 16384:T - B192 

20 FOR I ■ E TO E + 9 * 8 - 1: 

READ B: POKE I,B: NEXT 
30 DATA 28.34,38,42,50.34.28, 
0 

40 DATA 16.24.20.16,16,16,56, 
0 

50 DATA 28,34.32,24,4,2,62,0 
60 DATA 28,34.32,24.32,34,28. 

0 

70 DATA 16.24,20,18.62.16.16, 
0 

80 DATA 62,2.2. 30, 32, 34, 2B.0 
90 DATA 28.34,2,30,34,34,28,0 
100 DATA 62.32,32,16,8,8,8,0 
110 DATA 28,34,34,28,34,34.28 
.0 

120 DATA 28.34,34,60.32,34.28 
.0 

130 FOR 1 - 0 TO 19: FOR X - 0 

TO 39:N - INT ( RND (1) * 9) 
140 FOR I - 0 TO 7 
150 POKE T + (Y - 8 * (Y > 7) 



- 6 * (Y > 15)) * 128 + 40 * (Y 
> 7) + 40 * (Y > 15) + X + 102 
4*1, PEEK (E + N * 8 + I) 
160 NEXT I.X.Y 

O programa começa ativando a tela 
de alta resolução e estabelecendo os va- 
lores de E, endereço inicial da página 2, 
e T, endereço inicial da página 1, Os 
usuários do TK-2000 devem mudar o va- 
lor de T para 40960. 

A linha 20 lê os valores contidos nas 
linhas DATA, criando parte de um ban- 
co de blocos. 

A linha 130 inicia um laço 
FOR... NEXT, onde Y é a linha e X a 
coluna em que serão impressos os nú- 
meros. N é o número que será impres- 
so, escolhido ao acaso. 

A parle mais importante do progra- 
ma é o FOR.. .NEXT das linhas 140 a 
160. Ela é responsável pelos oito co- 
mandos POKE que colocam o bloco na 
posição desejada. A fórmula a que nos 
referimos é a que está na linha 150. 

Este programa só escreve números. 
Ora, nosso objeiivo é escrever todo ti- 
po de mensagem na tela gráfica. Para 
isso, precisamos criar (com o auxílio do 
gerador) um conjunto inteiro de carac- 
teres. Quando houver um banco de blo- 
cos com caracteres na página 2, pode- 
remos utilizar seus bytes para escrever 
na tela de alta resolução. 

Os usuários do TK-2000 devem ago- 
ra redefinir o conjunto de caracteres, 
criando seus próprios tipos gráficos. 

Para os que não se habituaram ao 
uso do gerador, o programa a seguir cria 
um banco de blocos comendo os carac- 
teres de código ASCII entre 32 e 95. 

Uma vez executado com sucesso, ele 
poderá ser apagado e todo o banco será 
visualizado e editado pelo gerador de 
blocos. Basta carregá-lo sem desligar o 
computador. 

As letras têm aqui posições corres- 
pondentes a seus códigos ASCII. 
10 HGR :E - 16384 :T - 8192 
20 FOR I = E+-32 * 8TOE+ 3 
2«8+64*B-l: READ B : POK 
E I.B: NEXT 

100 DATA 0,0,0.0,0,0,0,0 
110 DATA 8,8,8,8,0,0,8,0 
120 DATA 18,18,18.0,0,0,0,0 
130 DATA 18,18,63.18.63,18.18 



140 DATA 



,60 ,10 ,28 ,40 
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370 
3B0 
390 
400 
410 
420 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 



DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 



470 
4B0 
490 



DATA 
DATA 
DATA 



24,16,8.0,0,0,0,0 

32,16.8.8,8,16,32,0 

2,4.8,8.8.4,2,0 

0, 8. 12, 28, 28.42 .8.0 

0,8,8,62,8,8,0.0 

0,0,0,0,0,24,16,8 

0,0.0,62,0,0,0,0 
0 , 0,0 ,0,0 . 24 , 24.0 
64,32,16.6,4,2.1,0 
28,34,38,42,50.34,28 

16,24.20,16,16,16,56 

28,34,32,24,4,2,62,0 

28,34,32,24,32,34,28 

16,24.20,18,62,16,16 



62,32,32,16,8,8,8,0 

28,34,34.28,34,34,28 

28.34,34,60,32,34,28 

0.24,24,0,0,24,24,0 

0,24,24,0,0,24,16,8 

32, 16, 8,4.8, 16, 32,0 

0,0,0,62,0,62.0,0 

4,8,16,32,16,8,4,0 

28,34,32,16,8,8,0.8 

28,34.58,42,58,2,60, 

8,20,34,34.62,34.34, 

30,34,34,30.34.34,30 



62.2,2.62. 2.2,62.0 
62,2.2,30,2.2.2,0 
28,34,2,58,34,34,28, 



600 DATA 30.34.34,30.18,34,34 



610 

620 

630 

.0 

640 

0 

650 
.0 
660 
0 

670 

680 
690 
700 
710 



500 DATA 34.34.34.62,34,34.34 



530 DATA 34.18,10.6.10.18,34, 



DATA 
DATA 
DATA 
DATA 



34,38,42.42,50,34.34 
28,34,34,34,34,34,28 
30,34,34,30,2.2.2.0 
28,34,34.34,42,50,60 



DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 



60.2,2,28,32,32.30.0 

62,8,8.8,8,8,8,0 

34.34.34,34,34,34,28 

34,34,34,34,34,20,8, 

65,65,65,73,85.99,65 

34.34,20.8,20,34.34, 

34.34,34.20,8.8,8,0 

62,32.16,8,4.2,62,0 
60,4 ,4 ,4 ,4,4,60, 0 
1,2,4,8,16,32,64,0 
30,16,16,16,16,16,30 



720 
730 

799 ti GB 

800 A3 = "ESTA MENSAGEM E ' UM T 

810 C - 7:L - 11: GOSUB 1000 
820 END 

1000 N - L * 40 + C 

1010 FOB J - 1 TO LEN (AS) 

1020 B$ " MIDS (AS.J.l) 

1030 B - ASC (BS) 

1040 L - INT (N / 40) :C - N - 

40 * L 

1050 FOB I - 0 TO 7 
1060 POKE T + (L - B * (L > 7) 
- 8 * (L > 15) ) * 128 + 40 * ( 
L > 7) * 40 * (L > 15) + C + 10 
24 * I, PEEK (E + B ■ 8 + I) 
1070 NEXT I:N = N + ll NEXT J 
1080 HCOLOB- 6 

1090 HPLOT 25,80 TO 250,80 TO 
250,105 TO 26,105 TO 26,80 
1100 BETURN 

A linha 10 estabelece as condições ini- 
ciais. A linha 20 cuida de transferir pa- 
ra a página 2 de vídeo os padrões dos 
caracteres contidos nas linhas DATA. 
Note que são 64 caracteres, a partir da 
posição 32, e cada caractere precisa de 
oito bytes para ser definido. Com essas 
informações fica mais fácil entender os 
números da linha. 

Para imprimir uma mensagem, utili- 
za-se a sub-rotina que começa na linha 
1000. Essa sub-rotina imprime ria tela 
gráfica o conteúdo da variável alfanu- 
mérica A$. Para fazer isso, ela toma le- 
tra por letra da variável, usando MIDS 
na linha 1020. Como o código ASCII da 
letra é igual à sua posição no banco, fi- 
ca fácil para a linha 1060 imprimir a le- 
tra correspondente. C e L são respecti- 
vamente a linha e a coluna onde a men- 



sagem é impressa. O laço da linha 1010 
faz com que todas as letras sejam lidas, 
uma a uma, até o final de A$. N é a po- 
sição absoluta do "cursor" na tela. 

N é usado em lugar de L e C para evi- 
tar que a mensagem ultrapasse os limi- 
tes da tela, "pulando" de linha. Obser- 
ve que é N que é incrementado na linha 
1070 e que L e C têm seus novos valo- 
res calculados a partir de N, na linha 
1040. 

As últimas linhas do programa fazem 
uma pequena moldura colorida para a 
mensagem, lembrando ao usuário que 
se trata da tela gráfica. 

As letras aparecerão com cores alea- 
tórias — geralmente tons de amarelo. Is- 
to é inevitável devido à maneira com que 
o Apple codifica as cores. 

Para ver e editar os novos caracteres 
usando o editor, apague o programa 
com NEW e carregue o gerador. Antes 
de executá-lo, acrescente as próximas li- 
nhas, que dão a ele uma nova função, 
disponível através de "M". 

195 IF KS - "M" THEN GOSUB 21 



O TRS-Color tem dois comandos — 
GEI e PUT — , que permitem a criação 
e o controle de blocos gráficos. Como 
esse micro guarda os valores correspon- 
dentes ao padrão dos blocos dentro de 
matrizes, o único limite ao número de 
blocos é o tamanho da memória. Isso 
significa que podemos criar tantos blo- 
cos quantos couberem em 32k, 

Ao contrário dos demais computado- 
res, o TRS-Color não permite que mu- 
demos o formato de seus caracteres da 
ROM — ou seja, os caracteres disponí- 
veis por intermédio do teclado. Portan- 
to, não podemos alterar os tipos com 
que são escritas as listagens e as mensa- 
gens de erro. É possível, porém, produ- 
zir blocos gráficos que sejam ao mesmo 
tempo letras e dar a estas o formato que 
se quiser. 

Um programa para isso deveria ter 
uma série de comandos IF INKEYS = 
"X"THEN..., um para cada letra, o 
que o tornaria muito lento. Se você op- 
tar por uma operação dessas para alguns 
caracteres, empregue o comando 
PMODE1 e as linhas DATA do progra- 
ma do Spectrum. 



Illlllllll 



20 CÓDIGO Di MÀQUIl 



Illlllllll 



UM COMPACTADOR 
DE PROGRAMAS 



Ao se digitar um programa em BA- 
SIC, é conveniente colocar espaços em 
branco entre os comandos, as variáveis 
e os dados, para tornar mais fácil a lei- 
tura das linhas. 

Necessárias para nossa própria orien- 
tação, as linhas REM são especialmen- 
te importantes quando estamos depu- 
rando o programa. O problema é que os 
espaços entre as palavras e as linhas 
REM diminuem a velocidade de execu- 
ção do programa e ocupam um grande 
espaço na memória. 

Quando o programa está funcionan- 
do bem e desejamos obter um máximo 
de rendimento, temos que apagar todas 
essas linhas e espaços. Isso, porém, exi- 
ge muito esforço e, o que é pior, pode 
introduzir novos erros no programa. 

O programa em código de máquina 
que apresentamos aqui faz todo esse tra- 
balho para você. Uma vez que seu pro- 
grama esteja funcionando, execute a ro- 
tina em código para compactá-lo. 



2 



A seguir, apresentamos um compac- 
tador de programas para o TRS-Color. 
Caso você use o monitor, e não o As- 
sembler, o endereço inicial é 30000. 

10 OBG 30000 630 

20 LDU 25 640 

30 LDD 27 650 

40 PSHS D 660 

50 BR A LONE 670 

60 LTWO LDA .X+ 680 

70 BNE LTHB 690 

80 LDU ,U 700 

90 LONE CLR ICOM.PCR 710 

100 LDD ,U 720 

110 BNE LFOU 730 

120 LDX 27 740 

130 STX 29 750 

140 STX 31 760 

150 PULS D 770 

160 SUBD 27 780 

170 JSR SB4F4 790 

180 RTS 800 

190 LFOU LEAX 4.U 810 

200 BRA LTWO 820 

210 LTHH CMPA *32 830 

220 BNE LFIV 840 

TST ICOM.PCR 850 

BNE LTWO 860 

LDD #1 870 

PSHS D,X,U 880 

BSR SHIFT B90 



PULS D,X.U 

LEAX -1,X 

BRA LTWO 

LFIV CMPA *34 

BNE LTWE 

LDB ICOM.PCR 

EORB II 

STB ICOM.PCR 

BRA LTUO 

LTWE CMPA »134 

BNE LSIX 

LDA -2,X 

CMPA 4255 

BEQ LTWO 

LDB ICOM.PCR 

EORB *2 

STB ICOM.PCR 

BRA LTWO 

LSIX CMPA U30 

BEQ LSEV 

CMPA #131 

BNE LTWO 

LSEV LDA -2.X 

CMPA #255 

BEQ LTWO 

LDD .U 

LEAX -1,X 

PSHS X,U 

SUBD ,S++ 

TFR X.Y 

LDX , U 

LEAX -1,8 

PSHS D.X 

TFR Y,D 

SUBD 4.S 

CMPB i4 

BNE LNIN 

PULS D 

ADDD t4 

PSHS D 

LNIN BSR SHIFT 
PULS D,X,U 
LBRA LONE 
ICOM FCB 0 
SHIFT LDD ,U 
BEQ SHTWO 
LDX ,U 
SUBD 2,S 
STD ,U 
TFR X.U 
BRA SHIFT 
SHTWO LDD 4.S 
SUBD 2.S 
TFR D.U 
LDX 4,S 
SHTHR LDA , X+ 
STA ,U+ 
CMPX 27 
BLO SHTHR 
LDD 27 
SUBD 2.S 
STD 27 



A primeira instrução LDU 25 carre- 
ga o registro U com o conteúdo das po- 
sições 25 e 26 da memória. Estas con- 
têm o valor de unia variável do sistema 
que corresponde ao endereço inicial do 
programa em BASIC. LDD 27 carrega 
o registro D com o conteúdo das posi- 




Apague as linhas REM e os espaços 
inúteis, tornando seus 
programas em BASIC mais rápidos 
e económicos. Existe um 
programa em código para isso. 



■ 


LOCALIZE OS COMANDOS REM 


E OS ESPAÇOS 


■ 


COMO USAR SINALIZADORES 


■ 


COMO COMPRIMIR UM 


PROGRAMA NA MEMORIA 



ções 27 e 28, que contêm igualmente o 
valor de uma variável do sistema. Des- 
ta vez, porém, trata-se de um aponta- 
dor, que indica o endereço da primeira 
posição livre da memória, após o fim do 
programa em BASIC. Seu valor é guar- 
dado na pilha por PSHS D. 

Mais adiante, durante a execução do 
programa, será calculado o número de 
bytes economizado pelo processo de 
compressão. Assim, é preciso que o 
computador saiba onde o antigo progra- 
ma em BASIC termina. A instrução 



BRA (BRanch Always, ou "desvie sem- 
pre") transfere a execução para o meio 
da sub-rotina seguinte, no rótulo 
LONE. 



COMO USAR SINALIZADORES 



A linha CLR ICOM, PCR limpa a 
área de armazenamento formada pela 
instrução FCBO que se segue ao rótulo 
ICOM. O comando PCR (Programa 
Counter Relativç) faz com que o ende- 
reçamento utilizado possibilite a realo- 




cação do programa quando necessário. 

FCB (Form Constant Byte) reserva 
um byte para a armazenagem de dados. 
Qualquer tipo de dado pode ser guarda- 
do ali, mas, no nosso caso, armazena- 
remos um par de indicadores que o pro- 
grama usará para saber se está manipu- 
lando uma variável alfanumérica. Quan- 
do se tratar de um cordão, os espaços 
em branco não devem ser apagados. 
Não é conveniente também que as pa- 
lavras que o BASIC escreve na tela apa- 
reçam juntas. Os bits da posição de me- 
mória rotulada como ICOM serão usa- 
dos como sinalizadores, do mesmo mo- 
do que é feito no registro indicador de 
condições. Os indicadores serão estabe- 
lecidos (ou ligados) quando o programa 
encontrar uma variável alfanumérica, 
voltando a valer zero quando o progra- 
ma estiver cuidando de outras expres- 
sões. Desse modo, ao fazer a compac- 
tação, podemos verificar os bits de 
ICOM para saber como proceder. 

Existe uma instrução parecida com 
FCB. É FDB (Form Double Byte) que 
reserva dois bytes para colocar dados. 

O 0 após FCB coloca inicialmente 00 
nesse byte (se o 0 for colocado após 
FDB, os dois bytes reservados recebe- 
rão 00 00). CLR ICOM, PCR limpa o 
conteúdo do byte a cada linha. 



COMO ATUALIZAR OS APONTADORES 



LDD.U coloca no registro D o con- 
teúdo do endereço contido em U. Em 
outras palavras, ele posiciona os dois 
primeiros bytes do programa em D. 

Os dois primeiros bytes de um pro- 
grama em BASIC correspondem ao en- 
dereço do início da linha seguinte. Quan- 
do esses dois bytes forem 00 00, chega- 
mos ao final do programa. BNE (des- 
vio, se diferente de zero) verifica essa 
condição. Enquanto não se tratar do fi- 
nal do programa, esses dois bytes serão 
diferentes de 00 00, e o desvio não será 
realizado. LDX coloca o conteúdo das 
posições de memória 27 e 28 no regis- 
tro X. Essas posições contêm o endere- 
ço do início da "área das variáveis", isto 
é, o primeiro byte livre depois do pro- 
grama BASIC. 

Esse apontador será atualizado repe- | 



tidas vezes à medida que o programa for 
comprimido. STX 29 e STX 31 colocam 
esse endereço nas posições 29 e 30, e 3 1 
e 32. Esses dois apontadores são variá- 
veis do sistema que correspondem ao en- 
dereço inicial da tabela de apontadores 
das matrizes e ao endereço final da 
"área" do BASIC. As variáveis serão 
definidas e as matrizes montadas somen- 
te quando o BASIC for executado. As- 
sim, aquelas duas variáveis do sistema 
devem ficar apontando para o endere- 
ço do primeiro byte livre após o final do 
programa em BASIC, enquanto este é 
compactado. 



ESCREVA NA TELA 



O valor contido no apontador do fi- 
nal da área BASIC (colocado na pilha 
quando o programa ainda tinha o tama- 
nho original, no inicio da rotina em có- 
digo) é recuperado da pilha. Em segui- 
da, o valor que ficai io apontador após 
a compressão do programa será subtraí- 
do daquele que acaba de voltar da pi- 
lha e o resultado, armazenado em D. 

JSR SB4F4 transfere o programa pa- 
ra uma sub-rotina da ROM que toma o 
valor do registro D, converte-o em de- 
cimal e o imprime na tela. Como pode- 
mos observar, o registro D contém o nú- 
mero de bytes economizados pela com- 
pressão do programa. Quando o proces- 
so terminar, a economia de espaço será 
impressa na tela. RTS retorna ao 
BASIC. 



COMO PERCORRER A MEMÓRIA 



Se o programa compactador não che- 
gar ao final do programa em BASIC, 
BNE LFOU enviará este último para a 
próxima ocorrência do rótulo LFOU. O 
comando LEA significa "carregar o en- 
dereço efetivo" (Load Efective Adress). 
Neste caso, ele opera sobre o registro X. 
LEA X 4.U toma o endereço em U, so- 
ma 4 e coloca o resultado em X. Os dois 
primeiros bytes de qualquer linha BA- 
SIC são o endereço inicial da linha se- 
guinte; os dois bytes imediatamente pos- 
teriores contêm o número da linha. Des- 
te modo, a instrução move o micropro- 
cessador para o início dos códigos do 
BASIC. Em seguida, o programa vai pa- 
ra o rótulo LTWO. 

LDA.X + coloca o primeiro byte do 
BASIC no acumulador. O sinal " + " 
significa que o registro X é incrementa- 
do após a execução da instrução. Isso 
faz com que o valor contido em X cor- 
responda ao byte seguinte do programa. 

BNE LTHR desviará para o rótulo 
LTHR se o conteúdo do acumulador 



não for zero. Um byte igual a 0 (zero) 
corresponde ao final da linha BASIC. 
Quando o programa chegar ao fim da 
linha, o desvio não ocorrerá e o conteú- 
do da memória cujo endereço está em 
U será colocado no registro U por LDU, 
U. No início, o conteúdo da variável do 
sistema que aponta para o começo do 
BASIC foi colocado em U. No TRS- 
Color, os dois primeiros bytes de uma 
linha correspondem ao endereço da li- 
nha seguinte. Cada vez que o programa 
em código chega ao fim de uma linha 
BASIC, o registro U é atualizado de mo- 
do a corresponder ao endereço inicial da 
próxima linha. A seguir, é realizado o 
comando de limpeza CLR. 



CUIDE DOS ESPAÇOS 



Se ainda não se trata do final de uma 
linha BASIC, ocorre desvio e o coman- 
do CMPA #32 verifica se o byte colo- 



cado no acumulador corresponde a um 
espaço. O código ASCII do caractere de 
espaço é 32. Caso se trate de um espa- 
ço, o valor do acumulador será iguala- 
do a 0 (zero) pelo comando CMPA # 32, 
de forma que a instrução de desvio BNE 
LF.V não será executada. 

TST ICOM.PCR verifica o estado da 
posição de memória rotulada como 
ICOM. Se qualquer um dos bits indica- 
dores em ICOM valer 1, é sinal de que 
se trata de um cordão, de modo que o 
espaço não deve ser eliminado e BNE 
LTWO voltará ao Início do programa. 
Caso o espaço esteja entre dois coman- 
dos BASIC, o processador passará pa- 
ra a próxima instrução: LDD #1. 



COMO USAR A PILHA 



LDD #1 coloca 1 no registro D. 
PSHSD,X;U transporta o conteúdo des- 




Illlllllll 
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ses registros para a pilha da máquina. 
Pode parecer desnecessário pôr o regis- 
tro D na pilha, já que sabemos que ele 
contém 1; contudo, a instrução seguin- 
te, BSR SHIFT, desvia para a sub- 
rotina SHIFT. Esta desloca o progra- 
ma aproveitando o espaço deixado pe- 
los caracteres apagados. Ela é usada 
quando apagamos espaços — apenas 
um byte — e quando apagamos linhas 
REM — vários bytes. O valor do regis- 
iro D corresponde ao número de bytes 
apagados e é usado peia sub-rotina. No 
caso de uma linha REM, esse valor po- 
de chegar a 255 bytes. 

Usamos um comando de salto relati- 
vo, BSR, em vez de um de salto absolu- 
to, JSR, de maneira que o programa se- 
ja realocável na memória. O comando 
JSR é mais adequado quando usamos 
sub-rotinas de ROM, que são fixas. 

Depois que a rotina na SHIFT for 
executada, os valores de D,X e U serão 
recuperados porPULS D,X,U. Note que 
D, X e U são especificados na mesma 
ordem em que estão guardados na pilha. 

Não importa a ordem em que defini- 
mos os registros. O microprocessador 
tem uma ordem pré-determinada para 
guardar e recuperai grupos de registros. 
A ordem de armazenamento é: byte me- 
nos significativo do registro PC; byte 
mais significativo de PC; bytes de S ou 
U, na mesma ordem baixo-alto; Y, X, 
DP, A, B e CC. A ordem de recupera- 
ção é a inversa: CC primeiro, PC por 
último. 

Os registros U e S são os apontado- 
res das duas pilhas — U para a pilha do 
usuário e S para a pilha da máquina. 
Obviamente, não podemos colocar o va- 
lor de um apontador dentro de sua pró- 
pria pilha, nem podemos recuperar um 
valor da pilha, colocando-o dentro de 
seu apontador. Este é o motivo de ter- 
mos colocado U ou S na ordem anterior. 
A própria instrução informa de que pi- 
lha se trata. PSHS usa a pilha de má- 
quina e PSHU e PULU, a pilha do 
usuário. 

LEAX - l.X decrementa o registro 
X, subtraindo 1 de seu conteúdo. Isso 
é feito porque o programa acaba de ser 
deslocado um byte para baixo na memó- 
ria. X é o apontador da posição em que 
nos encontramos dentro da listagem 
BASIC. Ele apontava para o espaço que 
foi apagado, mas o byte seguinte da li- 
nha acaba de ser transferido para o mes- 
mo local. Para considerar esse byte, te- 
mos que examinar a posição de memó- 
ria novamente, em vez de observarmos 
o byte seguinte. Quando BRA LTWO 
volta ao principio novamente, a primei- 
ra instrução incrementa o registro X, 
mudando para o próximo byte. 



COMO PROCURAR CORDÕES 



Se o programa não encontrar um ca- 
ractere de espaço na instrução CMPA 
#32, a instrução BNE LFFV desviará 
para uma pequena rotina que procura 
aspas. CMPA #34 compara o conteú- 
do do acumulador com o código ASCII 
das aspas. Se um caractere de aspas for 
encontrado, CMPA #34 resultará 0; as- 
sim, a condição necessária à execução 
de BNE LTWE não será satisfeita e LDB 
ICOM, PCR carregará o registro B com 
o conteúdo da posição de memória on- 
de os sinalizadores foram guardados. 

EORB # 1 executa a operação lógica 
"ou exclusivo" entre Bel. Essa opera- 
ção existe também em BASIC. STB 
ICOM, PCR coloca o resultado de vol- 
ta no byte de sinalizadores; o bit zero 
é ativado como sinal de que um carac- 
tere de aspas foi encontrado. Se esse bit 
ICOM já era igual a 1 , EORB # 1 retor- 
nará o valor 0: se o bit era 0, o resulta- 
do será 1 . Assim, se o bit zero estava li- 
gado, essa operação o desligará. Caso 
contrário, ela o ligará. 



Se observarmos agora como as aspas 
envolvem as mensagens dentro de um 
programa, veremos que um cordão co- 
meça depois de um número ímpar de as- 
pas e termina após um número par. Al- 
ternando o bit zero do byte de sinaliza- 
dores toda vez que um caractere de as- 
pas for encontrado, o comando EOR 
deixará o bit valendo 1 após um núme- 
ro ímpar de aspas e 0 após um número 
par. O sinalizador ligado indica, portan- 
to, que o programa se encontra em um 
cordão; desligado, ele revela que não se 
trata de um cordão. Esta é exatamente 
a condição que é testada por TST 
ICOM, PCT seguido de BNE LTWO. 

Uma vez alterada a condição do si- 
nalizador de aspas, BRA LTWO retor- 
na ao princípio novamente, passando ao 
próximo byte da listagem BASIC. 

Se o byte não estivesse entre aspas, 
a condição necessária de BNE LTWE te- 
ria sido satisfeita, e o programa prosse- 
guiria com novas verificações. 



PROCURANDO UNHAS DATA 



As linhas DATA podem conter cor- 
dões; de forma que é melhor não 
comprimi-las também. 

A instrução CMPA # 134 verifica se 
o byte no acumulador é o código do co- 



mando DATA. Caso seja, a condição 
necessária de BNE LSIX não será sa- 
tisfeita. 

Contudo, há outra situação em que 
o código 134 pode aparecer. A função 
LOG tem o código FF 86, em hexadeci- 
mal, ou 255 seguido de 134, em decimal. 
Assim, é preciso verificar se o byte an- 
terior não é 255. 

Como você deve estar lembrado, 
LDA ,X + incrementa o registro X após 
colocar nele o valor do acumulador. 
Desse modo, o registro X aponta agora 
para o byte posterior ao que está sendo 
considerado. Para verificar o byte an- 
terior, o acumulador deve ser carrega- 
do com o conteúdo da memória cujo en- 
dereço é o resultado de X menos 2. A 
instrução LDA — 2,X faz isso. 

O comando CMPA #255 verifica 
então se o byte anterior é 255. Se FF for 
encontrado, BEQ LTWO retornará ao 
principio. 

Se FF não for encontrado, isso sig- 
nifica que $86 é o código de um coman- 
do DATA e que, portanto, um sinali- 
zador em ICOM deve ser ativado. Ob- 
viamente, não se trata do bit zero, que 
conta as aspas. 

Assim, a instrução LDB ICOM, PCR 
coloca o valor de ICOM em B. Por sua 
vez, EORB #2 realiza um "ou exclusi- 
vo" (XOR) entre B e 2. Isso ativa o bit 
dois. 



COMO PROCURAR LINHAS REM 



CMPA #130 verifica se o próximo 
byte é o código de uma instrução REM. 
Se for, BEQ LSEV levará o micropro- 
cessador ao rótulo LSEV. Se não for, 
CMPA # 131 verificará se o byte é um 
apóstrofo que funciona como REM. 

Se, ao contrário, nenhum desses có- 
digos for encontrado, a instrução BNE 
LTWO voltará ao princípio, passando 
ao próximo byte. 

Caso um desses sinais seja encontra- 
do, o programa deve verificar se não se 
trata de outras funções, cujos códigos 
são precedidos de FF. Isto é feito pelas 
três instruções seguintes: LDA -2,X, 
CMPA #255 e BEQ LTWO. 

Depois disso, o registro D é carrega- 
do com o valor de U, que corresponde 
ao endereço da próxima linha BASIC. 

Por seu turno, a instrução LEAX 
-1,X decrementa o registro X, fazen- 
do com que o apontador indique a po- 
sição do comando REM ou do apósto- 
fro (nosso objetivo é apagar o trecho 
que vai desse ponto até o fim da linha). 
A seguir, PSHS guarda X e U na pilha 
e SUBD ,S +.+ subtrai o valor dos dois 
últimos bytes da pilha do registro D; o I 
resultado é colocado em D mesmo. A l 
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instrução também incrementa em duas 
vezes o apontador da pilha. 

Como você já deve saber, o conteú- 
do de U é guardado antes de X na pi- 
lha. SUBD , S + + subtrai do valor de 
D a última coisa que foi guardada na pi- 
lha da máquina. 

O sinal " + + " após S incrementa o 
registro S (apontador da pilha da má- 
quina) em duas vezes, ou seja, soma 2 
a ele. Isso retira o valor de X — dois 
bytes — da pilha. 

TFR X,V transfere (copia) o conieú- 
do de X para Y. O registro Y nãó é usa- 
do para mais nada nesse programa, ser- 
vindo apenas como um registro tempo- 
rário para guardar o valor de X. 

LDX ,U coloca o valor de U em X 
U contém o endereço inicial da próxi 
ma linha. LEAX - 1,X decrementa es 
se valor, de modo a fazê-lo correspon 
der ao endereço final da linha atual 
PSHS D,X guarda o conteúdo desses re 
gistros na pilha para que possam ser usa 
dos pela rotina SHIFT. 
. TFR Y,D transfere para D o valor de 
Y. Assim, a posição do código da ins- 
trução REM está agora em D. SUBD 
4,S subtrai de D o valor corresponden- 
te aos dois bytes que se encontram a par- 
tir do quinto byte da pilha. (S aponta 
para o primeiro byte da pilha. A expres- 
são 4,S soma 4 a S, de forma que este 
passa a apontar para o quinto byte). Ob- 
serve o que foi feito antes: esse valor é 
o antigo conteúdo do registro U, ende- 
reço inicial da próxima linha do progra- 
ma BASIC. 

Isso significa que o endereço inicial 
da linha é subtraído do endereço do có- 
digo da instrução REM. O resultado nos 
dá o número de bytes entre o início da 
linha e a instrução. O que precisamos sa- 
ber é se a instrução REM está no come- 
ço ou no meio da linha. No primeiro ca- 
so, podemos apagar também o número 
da linha. Isso é verificado por CMPB 
#4. 

Se a instrução REM não estiver no 
começo da linha, BNE LN1N irá dire- 
tamente à instrução que chama a sub- 
rotina SHIFT. Contudo, se a REM es- 
tiver no início da linha, o resultado da 
operação será 4 e o último valor colo- 
cado na piiha será recuperado no regis- 
tro D por PULS D. Soma-se 4 a D para 
que os quatro bytes iniciais da linha 
REM — correspondentes ao endereço 
inicial da linha seguinte e ao número da 
linha — também sejam apagados no 
processo de compressão. Finalmente, o 
conteúdo de D é devolvido à pilha. 

A sub-rotina SHIFT é chamada por 
BSRSHIFT e o conteúdo original dos 
registros é recuperado da pilha. LBRA 
LONE volta ao início do programa. 



Um desvio longo — Long BRAnch 
— é usado porque o salto é maior que 
128 bytes. 



A ROTINA DE COMPRESSÃO 



O comando LDD ,U coloca em D o 
conteúdo do endereço apontado por U 
— em outras palavras, D vai conter o 
endereço inicial da próxima linha do 
programa em BASIC. Se esse valor for 
zero, teremos chegado ao fim do pro- 
grama e a instrução BEQ LTWO sairá 
do laço principal do programa. 

Se não se tratar do fim do programa 
em BASIC, o mesmo valor será coloca- 
do em X por LDX ,U. O valor corres- 
pondente aos dois bytes localizados a 
partir do terceiro byte da pilha será en- 
tão subtraído por SUBD 2,S do endere- 
ço em D (endereço inicial da próxima 
linha). 

Por outro lado, devemos ter em men- 
te que estamos no meio de uma sub- 
rotina e os dois bytes correspondentes 
ao endereço de retorno da sub-rotina fo- 
ram colocados na pilha da máquina — 
daí a necessidade do 2,S. 

O resultado dessa operação é o ende- 
reço inicial que a próxima linha BASIC 
ocupará, uma vez feita a compressão. 
Ela é colocada na posição de memória 
apontada por U, que corresponde aos 
dois primeiros bytes da linha BASIC. 
Estes, por sua vez, indicam o endereço 
da próxima linha. Em outras palavras, 
estamos fazendo com que esse valor 
coincida com as mudanças de endereço 
causadas pela compressão. 

O valor de X que corresponde ao en- 
dereço inicial antigo é colocado em U e 
BRA SHIFT volta novamente ao inicio 
da sub-rotina SHIFT. 

A única saída desse laço é o BEQ, 
que só será executado quando todo o 
programa BASIC tiver passado por es- 
se tipo de modificação. Quando a pre- 
paração for finalmente completada, po- 
demos comprimir nosso programa. O 
comando LDD 4,S transporta para D o 
valor de X guardado na piiha, isto é, ele 
coloca o endereço final da linha atual se 
estivermos eliminando um comentário 
REM, ou a posição atual na Unha, caso 
estejamos eliminando um espaço. 

SUBD 2,S subtrai o número de bytes 
que serão eliminados. 

O resultado é a posição que o próxi- 
mo byte da linha deve ocupar; ele é co 
locado em U pela instrução TFR D,U 

LDX 4,S recupera outra vez o anti 
go valor de X guardado na pilha. As- 
sim, o endereço antigo do próximo byte 
está em X e o novo em U. 



LDA ,X+ coloca o byte apontado 
por X em A e incrementa o valor de X. 
STA ,U + põe o mesmo valor na posi- 
ção de memória apontada por U e in- 
crementa o valor de U. Assim, o próxi- 
mo byte do programa não comprimido 
é transferido para sua nova posição, no 
programa comprimido. Alénvdisso, os 
dois apontadores X e U são incremen- 
tados para que apontem para o próxi- 
mo byte e para a próxima posição. 

CMPX # 27 compara o conteúdo de 
X com o conteúdo da variável do siste- 
ma que fica nos endereços 27 e 28. Ela 
corresponde ao endereço inicial da área 
das variáveis, que deve ficar logo acima 
do final do programa em BASIC. Essa 
instrução verifica se chegamos ao final 
da listagem. Se isto ainda não aconte- 
ceu, BLO — desvio se for menor — des- 
viará para o rótulo SHTHR, continuan- 
do a compressão. 

Quando todo o programa tiver sido 
comprimido, o microprocessador execu- 
tará LDD 27. Essa instrução coloca o 
apontador do final do programa no re- 
gistro D. SUB 2,S subtrai o número de 
bytes eliminados e STD 27 coloca o 
apontador atualizado de volta em seu lu- 
gar. RTS retorna ã rotina principal. 



COMO USAR 0 COMPRESSOR 



Esse programa pode ser montado 
com qualquer endereço inicial, desde 
que o local tenha sido protegido. Depois 
de gravar o programa- fonte e montar o 
compressor, podemos usar NEW para 
eliminar o Assembler e então carregar 
o programa que vamos compactar. Pa- 
ra executar a compressão, use: 
DEF USRO - endereço inicial 
onde o endereço inicial é a origem. De-, 
pois, digite: 

PRINT USRO(O) 

Devemos, contudo, ser muito cuida- 
dosos. Não será possível editar o pro- 
grama depois da compressão; portanto, 
ele deve ter sido exaustivamente testa- 
do. Muita atenção com os comandos 
GOTO e GOSUB que se referiam a li- 
nhas REM: eles devem ser mudados. 

Par-a gravar o compressor em códi- 
go, digite: 

CSAVEM "CMPRSS" endereco 
inicial . endereço final , 
endereco inicial 

Para carregar o programa de volta, 



CLOADM "CMPRSS" 




■ 


QUANDO USAR BLOCOS GRAFCOS 


■ 


COMO COMBINAR BLOCOS 


PARA FORMAR FIGURAS 


■ 


CRIAÇÃO DE UM CENÁRIO 


■ 


BANCOS DE BLOCOS 



Com um conjunto de blocos gráficos, 
será fácil criar as mais diversas 
figuras. Você precisará apenas colocar 
os blocos na posição correta e 
acrescentar alguns detalhes ao fundo. 



Já falamos bastante sobre a criação, 
proteção, edição e gravação de conjun- 
tos de blocos definidos pelo usuário. 
Mostramos também ao usuário do Spec- 
trum como exceder o limite de 21 blo- 
cos inicialmente imposto. Neste artigo, 
o segundo de uma série de três, avança- 
mos as explicações sobre o uso de blo- 
cos gráficos na criação de figuras na te- 
la de seu microcomputador. 



POR QUE USAR BLOCOS GRÁFICOS 



Suponhamos que você queira criai 
uma tela representando uma floresta — 
para servir de cenário a um jogo de 
ação, por exemplo. Existem basicamen- 
te dois caminhos a seguir: usar os co- 
mandos gráficos do BASIC para dese- 
nhar cada parte da figura ou, então, 
combinar blocos gráficos. 

Se você escolher a primeira alternati- 
va, terá um trabalho enorme para criar 
a mata que faz parte do cenário, pois pre- 
cisará desenhar cada tronco e cada copa 
de árvore. Além disso, as árvores ficarão 
muito parecidas umas com as outras. 

Se você criar um bloco gráfico, ou 
vários deles que, combinados, formem 
uma árvore, poderá colocá-los na tela, 
repetidas vezes, nas posições que quiser. 
Você evitará, desse modo, o trabalho de 
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especificar cada detalhe ao acrescentar 
mais uma árvore na tela. 

Existem ainda outras vantagens no 
uso de UDG. Uma delas é a economia 
de tempo. Os desenhos compostos por 
blocos gráficos, não importa se mais ou 
menos complicados, são traçados na tela 
numa velocidade maior que os produ- 
zidos com comandos gráficos do BA- 
SIC. Assim, se compusermos uma figu- 
ra com blocos gráficos, teremos que es- 
perar bem menos tempo por sua apari- 
ção na tela. 



LIBERDADE DE ESCOLHA 



Outra vantagem é a facilidade de va- 
riar o tamanho e a forma da figura. No 
desenho da floresta, por exemplo, po- 
deríamos mudar o tamanho de uma ár- 
vore aumentando ou diminuindo o nú- 
mero de "blocos de tronco" e, ainda, 
alterar sua copa usando uma combina- 
ção diferente de "blocos de folhagem". 
Os comandos gráficos do BASIC podem 
fazer a mesma coisa, mas, com os blo- 
cos, a tarefa é bem mais fácil. 

Uma vez criados, os blocos gráficos 
permanecem na memória 
djficados — ou o micro ser desligado. 
No caso do Spectrum, se dispusermos 
de vários bancos, precisaremos "ligar" 
o banco que estiver sendo usado naquele 
momento. Mas isto é só uma questão de 
modificar o apontador de UDG. 

Poderemos, assim, usar os blocos que 
criamos quantas vezes quisermos dentro 
de um programa: o único limite é a me- 
mória. Voltando ao nosso exemplo, se- 
rá tão fácil criar uma floresta quanto 
uma única árvore, utilizando UDG. 

É claro que o emprego de blocos grá- 
ficos também apresenta desvantagens. 
Para começar, temos que definir todos 
os blocos, recorrendo ao gerador ou di- 
gitando várias linhas DATA. Vale lem- 
brar, porém, que, usando comandos 
gráficos, teremos ainda mais trabalho. 

Outra desvantagem é a ocupação de 
pane da preciosa memória do micro pa- 



ra guardar os blocos e, pior, a menos que 
sejamos cuidadosos, acabamos fazendo-o 
duas vezes. No próximo artigo, v 
como contornar o problem 



QUANDO VALE A PENA USAR UDG 



Por todas estas razões, é mais vanta- 
joso usar blocos gráficos em certas fi- 
guras do que em outras. 

Como regra geral, se o cenário inclui 
uma série de objetos semelhantes, dese- 
nhados várias vezes, ou se algum tipo de 
figura aparece repetidamente no decor- 
rer do programa, o uso de UDG vai nos 
poupar tempo e trabalho. 

Se, por outro lado, queremos um de- 
senho muito detalhado, que usaremos 
apenas uma vez durante o programa, 
pode ser melhor ficarmos com os co- 
mandos gráficos do BASIC. 

Uma parede de tijolos, por exemplo, 
poderá ser desenhada com muito mais 
facilidade se utilizarmos um ou vários 
blocos repetidas vezes. Uma alternativa 
seria traçar diversas linhas sobre uma re- 
gião colorida para imitar os espaços en- 
tre os tijolos. 

No nosso cenário de floresta, já vi- 
mos que podemos fazer uma boa eco- 
nomia de tempo criando UDG para as 
árvores que nele aparecem. Os animais 
também podem ser desenhados com blo- 
cos gráficos, principalmente se formos 
utilizá-los novamente no decorrer do 
programa, ou se quisermos animá-los ou 
desenhá-los várias vezes. 



UMA FLORESTA NA TELA 



Apresentaremos a seguir alguns pro- 
gramas que criam os caracteres para de- 
senhar o cenário já mencionado. 

As linhas DATA para o Spectruiji e 
o MSX são as mesmas. Elas começam 
na linha 1300 e estão listadas logo após 
o programa do MSX. 



10 CLEAR 63500 
110 POKE 23676,255 
120 FOR n-USH "a" TO U38 'r'+7 
! READ a: POKE n.a: NEXT n 
260 POKE 23676.249 
270 FOR n-USR "a" TO USR "b"+7 
: READ a: POKE n.a: NEXT n 
290 POKE 23676,243 
300 FOR n-USR "a" TO USR "o" + 7 
: READ a: POKE n,a: NEXT n 
410 BORDER 1: PAPER 8: CLS 
420 POR n-1 TO 8: PHINT PAPER 
5 ; " " : TAB 31 ; * " : NEXT n 
430 FOR n-1 TO 14: PRINT 
PAPER 4;" ":TAB 31:" " : NEXT n 
440 PLOT 0.110: DRAU 142.-100, 
-PI/3: PLOT 160,110: DRAW 





ROGRAMACÃOB 





PI/ 3 

460 POKE 23676,255; INK 2 
470 PRINT AT 19.20;: FOR n-144 
TO 155: PB I NT CHRS nii KEXT n 

PRINT AT 20,20;CHR3 156; 
CHRS 157;CHRS 158;CHRS 159; 
CHRS J59;CHRS 159;CHRS 159; 
CHRS 159;CHRS 160;CHRS 159; 
CHRS 159;CHRS 159 
490 FOR n-0 TO 31: PRINT INK 
1; PAPER 4; CHRS 161;: NEXT n 
760 INK 7 

770 POKE 23676,249 
780 PRINT AT 8,9; CHRS 144;CHRS 
145;CHRS 146;CHRS 147;AT 9,9; 
CHRS 149:CHRS 149;CHRS 150; 
CHRS 151;CHRS 152:AT 10,10; 
CHRS 153;CHRS 154;CHRS 155; 
CHRS 156 

800 POKE 23676,248 
810 LET x-6: LET y-14 : GOSUB 
840: LET X-5: LET y-18: GOSUB 
840 

20 LET x-4: 
845: LET x-4 : 
645 

830 GOTO 850 

840 PRINT INK 4;AT x,y:CHR3 
151;CHRS 152;CHR3 153;CHRS 154 
; INK 2;AT x+l,y+l;CHRS 155; 
CHRS 156;AT X+2,y+l;CHRS 157; 
AT x+3,y+l;CHRS 157iAT x+4,y+l 
; CHRS 157;AT x+5,y+l;CHRS 15B: 
RETURN 

845 PRINT INK 4;AT x,y;CHR3 
144;CHRS 145;AT x+l,y;CHRS 146 
ICHRS 147;AT x+2,y;CHRS 148; 
CHRS 149; INK 2;AT x+3,y+l; 
CHRS 150;AT x*4.y+l;CHRS 150: 
AT x+5.V+liCHRS 150: RETURN 
970 INK 0 
1300 REM CROCODILO 
U^Q DATA 0,0.1.7.15.15,9,5.0.0 



.128.192.248,255,127,95,1,3,6,1 

2 

1320 DATA 62.255.255.255.192.22 
4.176,159,191,255,255,255 
1330 DATA 0,0.0,0,0.248,252,255 
,0,0,0,0.0.0,1.207,0,0.0,1,15,1 
27,255.255 

1340 DATA 0,3,63,255.255.255,25 
5.255,127.255.255.255.255,254,2 
49. 247,248 

1350 DATA 255.255,255,255,15,25 

5,255 

1360 DATA 0,224,254,255,255,255 
,255,255,0,0.0.192,248,255.255, 
255,0.2,4.7.7 

1370 DATA 3,0,0.21.1.164.73.255 

,255.0,0 

1380 DATA 255,127,63.63.255.255 
.127.31,255,255.255,255.255.255 
.255.25S 

1390 DATA 239.239,239,239,239,2 
47.24 7,247,60,255.255,255.255.2 
55,255,255 

1780 REM ELEFANTE 

1790 DATA 0,0,0.8,28.25,51,51,0 
, 0 , 0 . 1 26 , 255 , 193 . 253 . 25 3 , 0 . 0 . 0 , 

0,0,255,255 

1800 DATA 255,0,0.0.0,0.248.252 

,254 

1810 DATA 102,111.111,111.125,5 
7,26,0.253,251.251.251.231.31,1 - 
5.15.255,255 

1820 DATA 255.255,255.255,255,2 
55.254,255.255.255.255.255.255. 

255 

1830 DATA 0.0,128,64.32,16.12.0 
.15,15.15.14.14.14.14,31.255,24 

0.224.224 

1840 DATA 224,224,224.224.255.6 
3,59,59,57.57.121,248 
1850 DATA 0.0.128,192.224.224,1 

28,0 

1860 REM ARVORE 1 
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1870 DATA 0,0.0,0, 1,1. 3, 7.0.0,0 
,0,224, 240, 248.248,15. 63. 63. 63, 
31.15.3.3 

1B80 DATA 252,254,254.254,254,2 
54.252,252 

1890 DATA 3.3,3.3.3,1.0.0,248.2 

48.248,248.248,248,240,96,96.96 

.96,96,96,96 

1900 DATA 96.96 

1910 BEM ARVORE 2 

1920 DATA 0.3,15,31,127,127.63. 

1, 7. 15,255,255, 255, 255,255,255. 

15,63.255.255 

1930 DATA 255,255,255,255,0,128 

, 248 , 248 . 248 , 246 , 240 ,224 

1940 DATA 255.227,96.48.24.25,1 

3.15.252,240,96,96,192,192,128, 

128,7.7, 7,7,7 

1950 DATA 7,7,7,7,7.7,15,15,15, 
31.63 



28. .6:PAINT(230,191] ,2 

130 CIRCLEÍO, 191) ,143,2,0.6.28, 

.4:PAINT(10,191) ,2 

140 CIRCLEÍO. 191) ,143,12,0.6.28 

. -4 

200 FOR 1-1 TO 51 

210 READ A,B,C:FOR J=0 TO 7 

220 VPOKE BASE(12)+A"8*J.PEEK(S- 

HD100+B*8+JJ 

230 VPOKE BASE(11)+A*8+J,C 



ff/i 



5 CLEAR 200.&.HC999 
10 FOR 1-0 TO 367 
20 READ A:POKE S.HD100 + I.A 
30 NEXT I: COLOR 15,4,4 
110 SCREEN 2 

120 CIRCLE £255,191) ,160,2,0.6 




260 FOR 1 = 1 TO 8 : READ A {I ) , B 1 1 ) 

,C(I):NEXT I:FOR K-l TO 6:FOR I 

-1 TO 8 : FOR J-0 TO 7 

270 VPOKE BASE(12)+(A(I)+D(K))* 

8+J . PEEK (K.HD100+B (I) *8+J) 

280 VPOKE BASE(11>+ÍA(I)+D(K))* 

8+ J.CU) 

290 NEXT J.I.K 

300 FOR K-l TO 8 : READ D (K) : NEXT 
X 

310 FOR 1 = 1 TO 9 : READ AU).B(I) 

,C(I):NEXT I:FOR K-l TO 8 : FOR I 

-1 TO 9: FOR J-0 TO 7 

320 VPOKE BASE(12)+(A(I)+D(K) )* 

B+J . PEEK (1HD100+B (I ) *8+J) 

330 VPOKE BASE(11)+(A(I)+D(K) )* 

8+J.CCI) 

340 NEXT J.I.K 

400 GOTO 400 

3000 DATA 692, 0,9B. 693. 1.98, 694 
,2,98.695.3,98 

3010 DATA 696.4,98,697,5,98,698 
,6,98,699,7,98 





OGUAMACÃOR 
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3020 DATA 700 , 8 , 9B . 701 , 9 , 98 , 702 
,10.98,703.11,98 

3030 DATA 724,12,98,725,13,98,7 

26,14,98,727,15.96 

3040 DATA 728,15,98,729,15.98,7 

30. 15, 98, 731, 15, 9B 

3050 DATA 732,16,98.733,15,98.7 

34,15,98,735,15,98 

3060 DATA 754.17,78,755,17,78.7 

56.17.78,757.17,78,758.17.78,75 

9,17, 78 

3070 DATA 760.17,78,761,17,78,7 

62,17,78,763,17,78 

3080 DATA 764,17,78,765,17,78,7 

66,17,78,767,17.78 

3090 DATA 500,18,226,501,19,226 

,502.20.226.503.21.226 

3100 DATA 532,22,226,533.23,226 

.534,24.226.535.25,226 

3110 DATA 536,26,226,565.27,226 

,566.28,226.567.29.226.568.30,2 

26 

3115 DATA -32,-4,36,75,80,147 

3120 DATA 342.31.36.343,32.36,3 

74,33,36,375,34,36 

3130 DATA 406,35,36,407,36,36,4 

39,37.96,471,37,96 

3135 DATA -44, -20. -IS, 60, 84. 96, 

1S7.163 

3140 DATA 327,38,36,328.39,36.3 



29,40,36,330,41.36 

3150 DATA 360,42.96,361,43,96,3 

92,44.96,424,44,96 

3160 DATA 456.45.96 



1300 REM CROCODILO 

1310 DATA 0,0,1,7,15,15,9,5.0,0 

,126,192,248,255.127,95,1,3,6,1 

2 

1320 DATA 62.255.255,255.192,22 

4,176,159.191,255,255,255 

1330 DATA 0.0,0.0,0.248,252,255 

,0,0,0,0,0,0,1,207,0.0,0.1,15,1 

27.255,255 

1340 DATA 0,3,63,255,255,255,25 
5,255,127,255,255,255,255,254.2 
49,247, 248 

1350 DATA 255,255,255,255.15,25 
5,255 

1360 DATA 0,224.254.255,255,255 
,255,255,0,0.0.192,249,255,255, 
255,0.2.4,7. 7 

1370 DATA 3,0.0,21,1,164,73,255 
. 255,0,0 

1380 DATA 255.127,63,63,255,255 
.127.31,255,255,255.255,255,255 
,255,255 

1390 DATA 239,239.239,239.239,2 
47.247.247,60,255,255,255.255,2 
55,255,255 

1780 DATA REM ELEFANTE 
1790 DATA 0,0,0,8,28,25,51,51,0 
.0,0,126,255,193,253,253,0,0.0, 
" 255,255 




1800 DATA 255,0,0,0,0,0,248,252 
,254 

1810 DATA 102,111,111.111.125,5 
7,26.0,253,251.251,251.231.31.1 
5,15,255.255 

1820 DATA 255.255.255.255,255,2 
55,254.255,255,255,255,255,255, 
255 

1B30 DATA 0.0,128.64,32,16,12,0 
.15.15.15,14,14,14,14.31.255,24 

0. 224.224 

1840 DATA 224,224,224,224,255,6 

3.59,59.57.57,121.248 

1850 DATA 0,0,128,192,224,224,1 

28,0 

1660 REM ARVORE 1 

1870 DATA 0,0.0,0,1,1,3,7,0,0.0 

,0,224,240,248,248,15,63,63,63, 

31,15,3,3 

1880 DATA 252.254.254,254,254,2 
54. 252,252 

1690 DATA 3.3,3,3,3,1,0,0,248.2 

46,248.248,248,248,240.96,96,96 

,96,96,96.96 

1900 "DATA 96,96 

1910 REM ARVORE 2 

1920 DATA 0,3,15,31,127,127.63, 

1 . 7 , IS , 255 , 255 , 255 , 255 , 255 , 255 , 
15,63,255,255 

1930 DATA 255,255,255,255,0,126 

, 248 , 246 , 246 , 248 , 240 , 224 

1940 DATA 255,227,96,48,24,25,1 

3,15.252.240,96.96,192,192,128, 

128,7,7,7,7.7 

1950 DATA 7,7,7,7,7.7,15,15,15. 
31,63 



D 



10 CLEAR 1000 :CLS 

20 DIM C{59) ,E(17) ,T1{1) ,T2 (7) . 

Fl (7) ,F2(7) 

30 PMODE 3,1:PCLS 

40 WS-*L6UL6D" rW3-WS+WS+W8+MS 

50 DRAWBMl , 4C4RUR 2UR 2DR2 DR4DR8 

UR4UR2UR2UR2UR4DR2DR2DR4D2R6DR2 

DR4 DR4UR4UR4UR4UR4UR4UR4UR4UR 1 0 

DR6DR4DR2DR2DR2D15"+WS+WS+"L6UL 

6DL4BU14DR11FRFR7FR3FR9FGL7GL21 

HL2D3FR21FR3F" 

60 PAINT(50, 10) .4 

70 DRAW BM98 , 5C1L8GLGLGD5BFD2RF 

R3FBM32 , 2GFREHLBM1 , BC2FRERFBR4U 

BM+4 , 2 ; RBR3RBM+ 3,1; RBM+ 3,1: RBR3 

RBL8BDLBL5NEBL6NEBL4E8L5E" 

80 GET (0.0)-U12,20) ,C,G 

230 PCLS 

240 DRAWBM4 , 0C2DG2DG2D3R2DE2UE 

2UE43FRFR11F3RFRFR3DBL8NU3D4F2D 

GH2UHL3D5LURU3HL6D5L2BU6L3D6NL2 

U6LH2LNGUHL2" 

250 PAINT (20,7) ,2 

260 DRAW"BM12,3C3R2D4G2BM6,4R" 

270 GET(0,0)-(37,17) ,E,G 

280 PCLS 4 

290 DRAW'BM7,19C1H3U5H5UE6R2F3D 
F2D2G3D3G2D2" : PAINT (7, 7) ,1 
300 DRAWBM20 , 5E2R2E2RFR4E2F2R2 
E2R5FRFDG3LGLGLGL5HL5H2L4" :PAIN 
TU4.5) ,1 

310 GET(O.O) -(13, 19) ,F1,G:GET(2 I 
0.0)-(49,9) ,F2,G 
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320 PCLS:DRAW"BM0,0C4D20BE20F3D 

FD15G2NL2R8HL4EU13E4U2" 

330 GET<0,0)- (1.20) ,TI.G:GET(20 

,0)-(31.22) .T2.G 

340 PCLS3:SCHEEN 1,0 

350 CIRCLE(255, 191) ,160, 1, .6:PA 

INT(230,1B0) ,1 

360 CIRCLE<0,191) ,140.2, .35. .75 

, 1:PAINT(10,180) .1,2 

380 PUT(206,100)- (243, 117) ,E.PS 

ET 

390 FOR K-l TO 10: READ X,Y:PUT 
(X.Í)-(X+13, Y+19) . F1,AND:PUT<X+ 
6. X+20) - (X+7 , Y+40) . Tl , OR : NEXT 
400 FOR K-l TO 10 : READ X,Y:PUT{ 
X . Y) - (X+29 , Y+9) . F2 . AND ; PUT (X+8 , 
Y+9)-(X+19.Y+31) ,T2,OR:NEXT 
410 COLOR 2:LINE (1 38 . 187) - ( 255 
.187) ,PSET:PAINT(255.191) ,2:PAI 
NT(255,191) ,3,1 

420 PUT(143,166)-{255,186) ,C,PS 
ET 

450 DATA 16,110.24.113.34,108.4 
8,110.56,108.190,80.198.82.212, 
84,210,79,240,70 

460 DATA 2.120.18.122.28,116.46 
.118,60.124,160,90,174,95,190,9 
0.214,86,226,90 
470 GOTO 470 

Executando estes programas, vere- 
mos o tipo de figura que podemos criar 
usando UDG. Não se preocupe se o al- 
to da tela parece vazio no momento, 
pois o cenário ainda não está completo. 

A água sob o crocodilo é uma boa de- 
monstração da versatilidade dos blocos 
gráficos: ela é composta pela repetição 
de um só bloco. (Isto não vale para o 
TRS-Color, onde a matriz do crocodilo 
inclui a água.) 

O cenário não é formado apenas por 
UDG: empregamos também comandos 
gráficos para desenhar as colinas. Em- 
bora com frequência seja melhor usar 
blocos gráficos em vez de comandos grá- 
ficos, podemos obter ótimos resultados 
combinando as duas técnicas. O próxi- 
mo artigo completará o desenho; por- 
tanto, grave o programa em fita. 



COMO FUNCIONA 



Se você não entendeu como o progra- 
ma define e guarda os blocos, consulte 
o último artigo desta série. 

O programa pode ser dividido em 
duas partes: uma que define os blocos 
e outra que os coloca na tela. 

O Spectrum utiliza o comando PO- 
KE para colocar os valores das linhas 
DATA na tela; o MSX, por sua vez . usa 
VPOKE. No programa do TRS-Color 
não há linhas DATA: desenhamos as fi- 
guras com DRAW e, em seguida, guar- 
damos os padrões em matrizes com GET. 

Criados os blocos, o programa prosse- 
gue colocando-os nos locais adequados. 




O Spectrum usa uma série de coman- 
dos PRINT AT para desenhar cada seg- 
mento de animal ou árvore. Ele também 
emprega comandos locais de cor para 
colorir as figuras. 

Um comando local de cor é aquele 
que se aplica somente à linha onde ocor- 
re. Em geral, fazemos com que o pano 
de fundo — PAPER — seja 8, que é 
transparente. Isso evita que os blocos 
impressos na tela o danifiquem. 



UM PANO DE FUNDO MULTICOLORIDO 



O pano dfe.fundo é definido pelas li- 
nhas 410 a 440. A primeira delas esta- 
belece a cor, e as duas seguintes produ- 
zem o céu azul-claro e o chão verde. Pa- 
ra conseguir as diferentes cores de fun- 
do, imprimem-se espaços com as cores 
escolhidas, por meio de dois laços 
FOR... NEXT. 

Como existem várias árvores no ce- 
nário, elas são desenhadas com sub- 
rotinas (linhas 810 e 820). As variáveis 
x e y correspondem as coordenadas de 
comandos PRINT AT. Podemos facil- 
mente acrescentar novas árvores ao de- 
senho, colocando mais coordenadas (ve- 
ja, no artigo da página 501, como esco- 
lher as coordenadas adequadas) e co- 
mandos GOSUB nessas duas linhas. 




O programa do MSX usa o coman- 
do VPOKE para colocar os blocos na te- 
ia gráfica. Comandos gráficos do BA- 
SIC também são empregados para de- 
senhar o fundo da figura. 

Inicialmente, a linha 5 protege o to- 
po da memória para que as linhas 10 a 
30 coloquem ali os padrões dos blocos. 
A linha 30 também seleciona as cores da 
tela; a 1 10 seleciona a tela. As linhas 120 
a 1 40 desenham as duas colinas que apa- 
recem no fundo. 

Em seguida, usando VPOKE, os pa- 
drões são colocados na tela gráfica. A 
posição que o bloco deve ocupar na te- 
la — A — , a posição do bloco no ban- 
co de blocos — B — e a cor do bloco 
— C — são obtidos com READ nas li- 
nhas DATA que começam em 3000. 

Já que existem dois tipos de árvore, 
elas são desenhadas por dois laços 
FOR.. -NEXT. Precisamos, no entanto, 
de um grande número delas. Para fazê- 
las, usamos uma série de valores que se 
somam às posições em que cada árvore 
é desenhada. Esses valores são lidos nas 
linhas DATA 3115 e 3135, mudando a 



posição de cada árvore sempre que o la- 
ço é executado. 

As cores não foram colocadas no 
banco, e sim nas linhas DATA a partir 
de 3000, juntamente com as posições 
dos blocos. Isso foi possível porque, em 
nosso exemplo, cada bloco tinha apenas 
duas cores. Quando o colorido dos blo- 
cos for mais complicado, convém usar 
o banco. 



Ql 




O programa do TRS-Color começa 
reservando espaço para os cordões que 
usa e DIMensionando as matrizes que 
guardam os blocos gráficos. Com exce- 
ção das árvores, temos um bloco gráfi- 
co para cada figura, já que os blocos po- 
dem ter qualquer tamanho. As árvores 
requerem dois blocos cada, pois têm 
uma metade vermelha e outra verde. 



OS ANIMAIS 



O programa prossegue desenhando 
um animal de cada vez e guardando ca- 
da um deles na matriz apropriada, com 
o comando GET. A linha 80 guarda o 
crocodilo, a linha 270 o elefante, a li- 
nha 310 cuida das copas das árvores e 
a linha 330 dos troncos. 

A segunda parte do programa colo- 
ca cada parte do desenho em seu lugar. 
As primeiras linhas limpam e selecionam 
a tela apropriada, desenhando também 
as colinas que fazem parte do cenário. 
As cores das colinas são determinadas 
pelo comando PAINT. 

Os dois grupos de árvores, cada um 
em uma colina, são desenhados pelo la- 
ço FOR. ..NEXT das linhas 390 e 400, 
usando as linhas DATA 450 e 460 para 
determinar a posição. 

As linhas 380 e 420 colocam o elefan- 
te e o crocodilo na tela, respectivamen- 
te. A última linha ativa do programa (se 
ignorarmos as linhas DATA) é a 470. 
Ela impede que o programa termine, 
permitindo a visualização da tela que, 
de outra forma, seria apagada. Use 
<BREAK> para parar o programa. 



UMA MANADA DE ELEFANTES 



Podemos substituir o elefante por 
uma manada. O método é o mesmo uti- 
lizado para as árvores: um laço 
FOR.., NEXT ou vários comandos 
GOSUB. 



anis] 




Já vimos como usar blocos gráficos 
para escrever na tela de alta resolução. 



IIIIIIIIIIIHH 
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Agora vamos examinar como carre- 
gar bytes na área reservada ao banco de 
blocos — segunda página de vídeo — 
por meio do monitor. 

O monitor permite que coloquemos 
valores diretamente na memória do mi- 
cro. Estes números serão, em nosso ca- 
so, os bytes correspondentes aos blocos 
gráficos necessários para o cenário. 

Depois de colocar todos estes bytes 
na memória, carregue e execute o gera- 
dor de blocos, para poder ver, editar e 
entender como foram criadas as figuras. 
No próximo artigo apresentaremos o 
programa BASIC que desenha a flores- 
ta usando o banco de blocos que esta- 
mos criando hoje. 

Para carregar o banco de blocos, ati- 
ve o monitor com: 

CALL - 151 

ou LM no TK-2000. 

Agora, copie a listagem. Para alterar 
o conteúdo de uma posição de memó- 
ria, digite o endereço pretendido, segui- 
do de dois pontos e dos valores deseja- 
dos. Em nosso exemplo, modificamos 
oito posições de cada vez. Lembre-se de 
que todos os números precisam estar na 
forma hexadecimal. No TK-2000, de- 
vem-se usar outros endereços. Em vez 
de começar no endereço 4000, em hexa, 
use A 000, também em hexa. 

Note que nem todas as posições da 
área do banco precisam ser modificadas, 



havendo várias 


lacuna 


ta 


listagem. 


4008 


00 


00 


50 


54 


54 


54 


44 


44 


4010 


00 


00 


00 


02 


GA 


2A 


2A 


08 


4018 


00 


40 


40 


50 


14 


55 


55 


55 


4020 


02 


0A 


DA 


2A 


28 


2A 


2A 


2A 


4028 


00 


00 


00 


00 


00 


05 


15 


b5 


4030 


00 


00 


00 


00 


00 


00 


28 


2A 


4038 


00 


00 


00 


40 


50 


54 


55 


55 


4040 


00 


20 


2A 


2A 


2A 


2A 


2A 


2A 


4048 


54 


55 


55 


55 


55 


55 


05 


51 


4050 


2A 


2A 


2A 


2A 


2 A 


00 


2A 


2A 


4058 


55 


55 


55 


55 


55 


55 


55 


55 


4060 


00 


00 


0A 


2A 


2A 


2A 


2A 


2A 


4068 


00 


00 


00 


01 


15 


55 


55 


55 


4070 


00 


00 


00 


00 


00 


02 


0A 


2A 


4078 


CO 


DO 


D4 


D4 


C4 


C4 


C4 


ao 


4080 


AA 


8A 


87 


80 


80 


80 


90 


80 


4088 


80 


80 


80 


80 


CO 


CO 


DO 


DO 


4090 


AA 


AA 


AA 


AA 


8A 


8A 


82 


82 


4098 


81 


91 


81 


81 


80 


60 


80 


30 


40A8 


DO 


CO 


80 


SO 


80 


BO 


80 


8 0 


40B0 


8A 


62 


80 


eo 


60 


60 


80 


80 


40C8 


CO 


CO 


90 


90 


84 


84 


81 


81 


40F0 


00 


00 


20 


28 


2 8 


28 


2A 


2A 


40F8 


40 


54 


55 


55 


55 


55 


55 


55 


4100 


2A 


2A 


2A 


2A 


2A 


2h 


2A 


2A 


4108 


55 


55 


55 


55 


55 


55 


55 


55 


4110 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


4118 


55 


55 


55 


55 


55 


55 


55 


55 


4120 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


4128 


01 


15 


55 


55 


55 


55 


55 


55 


4130 


00 


00 


02 


0A 


0A 


OA 


2A 


2A 


4148 


10 


14 


54 


54 


54 


00 


00 


00 



4150: 00 02 22 2A 2A 00 00 00 

4158: 40 44 15 55 55 00 00 00 

4160: 2A 2A 2A 2A 2A 28 20 20 

4168: 55 55 55 55 55 55 55 55 

4170: 2A 2A 2A 2A 2A 2A 2A 2A 

4178: 55 55 55 55 55 55 55 55 

4180: 2A 2A 2A 2A 2A 2A 2A 2A 

4188: 51 51 51 51 51 45 45 55 

4190: 2A 2A 2A 2A 2A 2A 2A 2A 

4198: S5 55 55 55 55 55 55 55 

41 AO: 2A 2A 2A 2A 2A 2A 2A 2A 

41AB: 55 55 55 55 55 55 55 55 

4180 : 2A 2A 2A 2A 2A 2A 2A 2A 

41C8: DO DO DO DO DO D4 D4 D4 

4 1D0: 80 80 80 60 AO A 6 AA AA 

41D8: BO BO 80 85 95 95 D5 DO 

41E0: 80 80 80 80 80 80 80 82 

41PB: CO DO DO DO DO DO DO DO 

4200: 82 AA 82 82 82 80 80 60 

4230: 2A 2A 2A 2A 2A 2A 2A 2A 

423B: 55 55 55 55 55 55 55 55 

4240: 2A 2A 2A 2A 2A 2A 2A 2A 

424B: S5 55 55 55 55 S5 55 55 

4250: 2A 2A 2A 2A 2A 2A 2A 2A 

4258: 55 55 55 55 55 55 55 55 

4260: 2A 2A 2A 2A 2A 2A 2A 2A 

4268: 55 55 55 55 55 55 55 55 

4270: 2A 2A 2A 2A 2A 2A 2A 2A 

4280: AA D5 D5 D5 D5 D5 D5 D5 

4266: AA AA AA AA AA AA AA AA 

4290: AA D5 D5 D5 D5 D5 D5 D5 

4296: A5 AA AA AA AA AA AA AA 

42A0: AA DS D5 D5 D5 DS D5 D5 

42A8: A 5 AA AA AA AA AA AA AA 

42B0; AA D5 D5 D5 D5 D5 D5 D5 

42B8: A5 AA AA AA AA AA AA AA 

42C0: AA DS D5 D5 D5 D5 D5 D5 

42C8: A5 AA AA AA AA AA AA AA 

42D0: AA D5 D5 D5 D5 D5 D5 D5 

42D8: A5 AA AA AA AA AA AA AA 

42E0: AA D5 D5 D5 DS D5 D5 D5 

42E6: A 5 AA AA AA AA AA AA AA 

42F0: AA D5 D5 DS DS D5 D5 DS 

4308: CO CO CO CO CO CO CO CO 

4310: AA AA 8A 8A 8A BA 8A 8A 

4318: DO Dl Dl Dl 95 84 80 60 

4320: 82 82 82 80 80 80 80 60 

4336: DO DO DO D4 D4 D5 D5 D5 

4340: 80 80 80 80 80 80 80 60 

4370: 2A 2A 28 26 28 20 00 00 

4378: 55 55 55 55 55 55 54 40 

4380: 2A 2A 2A 2A 2A 2A 2A 2A 

4388: 90 90 DO DO CO CO 55 55 

4390: 80 80 80 80 A2 A2 A2 AA 

4398: 84 84 85 85 81 81 55 55 

43A0: 2A 2A 2A 2A 2A 2A 2A 2A 

43A8: 55 55 55 55 55 55 15 01 

43B0: 2A 2A 0A 0A 0A 02 00 00 

4448: CO CO CO CO CO CO 80 80 

4450: BA 6A 8A 8A 8A 6A AA AA 

4470: AO AO A8 A8 AA AA AA AA 

4476: 95 65 85 8] 81 80 80 80 

44D0: AA AA AA AA AA AA AA AA 

4500: 00 00 00 00 00 00 40 S0 

4508: 00 00 00 00 00 00 7E 3A 

4510: 00 00 00 00 00 00 01 15 

4518: 00 00 00 00 00 60 68 7A 

4520: 00 00 00 00 55 55 55 55 

4528: 00 00 00 00 2A 2A 2E 2E 

4530: 00 00 00 00 01 05 15 7D 

4590: AA AA A8 A8 A8 A6 AO AO 

4596: 60 BI 81 81 81 85 65 95 



45B0: AA AA AA AA AA A8 A6 AS 

45B6: DO D4 D4 D4 DO Cl Cl Dl 

45C0: A8 AA AA 8A AA AA A8 A8 

45C8: 85 95 95 95 95 91 95 95 

4610: AA AA AA AA AA AA AA AA 

4640: 50 50 54 54 54 FD 7F 5D 

4648: 3A 3A 2A 22 00 00 20 2A 

4650: 55 45 45 45 45 14 14 50 

4658: 2A 2A 6A 7E 6A 2A 2A 2A 

4660: 55 55 05 01 01 01 05 55 

4668: 2E 3F 2A 20 00 00 20 6A 

4670: FD 5D 55 05 S0 55 5D 57 

4678: 00 02 00 2A 2A 2E 2E 2E 

4680: 00 00 00 55 7F 5D 5D 5D 

4666: 00 00 00 02 2A 3A 3A 3A 

4690: 00 00 50 14 15 SS 55 55 

4698: 20 2A 2A 2A 2A 3E 0E 0F 

46A0: 01 05 05 05 04 04 04 00 

46D8: D5 D5 D4 D4 D4 D5 D5 D5 

46E0: 80 AA AA AA AA AA AA AA 

46E8: 80 D5 D5 D5 D5 D5 D5 D5 

46F0: A8 AA AA AA AA AA AA AA 

46F8: D5 D5 D5 D5 D5 D5 DS D5 

4700: AA 82 AA AA 62 80 80 80 

4708: 95 95 D5 D5 D4 D4 94 80 

4710: 80 A8 80 80 68 88 A8 AA 

4718: 80 81 BI BI 81 81 81 81 

4750: AA AA AA AA AA AA AA AA 

4780: 54 50 00 00 00 00 00 00 

4788: 3A 0A 00 00 00 00 00 00 

4790: 50 40 40 00 00 00 00 00 

4798: 68 6A 62 2A 0A 2A 28 00 

47A0: 5F 57 55 D5 55 00 S5 55 

47A8: 2B 2B 2B 2F 2A 00 2A 2A 

47B0: 57 57 57 15 11 04 05 01 

47B8: 3F 2B 02 00 00 00 00 00 

47C0: 55 55 00 00 00 00 00 00 

47CB: 7E 2A 00 00 00 00 00 00 

47D0: 55 55 55 54 50 40 40 00 

47DB: 0B 03 2A 03 02 02 0A 2A 

47E0: 00 10 05 10 00 00 00 00 

4810: 80 BO BO AO AO AO AO AO 

4818: D5 DS D5 D5 D5 D5 D5 D5 

4820: AAAAAAAAAAAAAAAA 

4B28: D5 D5 D5 D5 D5 D5 D5 DS 

4830: AAAAAAAAAAAAAAAA 

4B38: D5 D5 D5 D5 D5 D5 D5 D5 

4840: 82 8A 8A 8A 8A 6A 82 82 

4848: CO CO CO DO DO DO 94 95 

4850: AA 8A 8A 82 82 BO 80 80 

4886: 00 00 00 00 CO CO CO DO 

4890: AAAAAAAAAAAAAAAA 

4896: 00 00 00 00 81 81 81 85 

4948: 60 80 60 80 CO DO DO D4 

4950: AO AO AO A8 AA AA AA AA 

4958: 95 95 95 95 95 85 85 81 

4960: AAAAAAAAAAAAAAAA 

4968: 81 81 81 81 81 61 81 81 

4976: D4 DO DO DO DO DO DO DO 

4960: 82 82 82 A2 A2 AA AA AA 

4988: DS 95 95 B5 85 81 BI 80 

Para gravar o banco na fita use: 

4000.5000 W 

No TK-2000 use: 

A0OO.B000 W -nome" 

Isto deve ser digitado ainda dentro do 
monitor. Quem tiver unidade de disque- 
te pode utilizar o gerador para gravar o 
banco. 



■■■■■■Illllllll 
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PROTEGER PROGRAMAS BASIC 
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COMO DESATIVAR 
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PROGRAMAS AUTOCARREGAVEIS: 




OS COMANDOS SAVE E LIST 




0 QUE SÃO E 0 QUE FAZEM 


■ 


PEQUENAS ARMADILHAS 


■ 


PROGRAMAS 




PARA 0 SEU COMPUTADOR 



Nunca é demais dar a um programa 
um toque profissional, sobretudo depois 
de um grande esforço para deixá-lo "re- 
dondinho". Nesse sentido, você pode 
fazer duas coisas: melhorar a apresen- 
tação do programa e providenciar-lhe 
uma proteção razoável, de modo que 
suas técnicas especiais fiquem, ao me- 
nos, obscurecidas para o público. 

Algum cuidado no acabamento é es- 
sencial se você pensa em comercializar 
seu programa — especialmente se pre- 
tende negociá-lo com uma sofrware- 
house. Os recursos que você deve utili- 
zar para dar-lhe uma melhor apresenta- 
ção foram discutidos anteriormente; as- 
sim, focalizaremos aqui as técnicas dis- 
poníveis para garantir alguma proteção 
ao seu trabalho. 

A proteção de um programa BASIC 
depende de armadilhas colocadas den- 
tro do próprio programa. Os escritos em 
código de maquina podem receber um 
tratamento bem mais sofisticado. 

Não existem restrições de nenhum ti- 
po quanto ao emprego de armadilhas 
para evitar as cópias "piratas" ou a lis- 
tagem de um programa por curiosos. 
Quantas delas serão colocadas no pro- 
grama é questão para você decidir. 

De qualquer maneira, convém sem- 
pre se lembrar de que não se conhecem 
métodos absolutamente seguros de evi- 
tar que um programa seja copiado. Mui- 
tas pessoas encaram os programas pro- 
tegidos como um desafio e não desistem 
até que ele seja vencido. Outras se em- 
penharão em listar o programa para 
examiná-lo, adaptá-lo às suas necessida- 
des ou, simplesmente, aprender. 



Ainda que você lenha muila imaginação 
e domine as técnicas necessárias para 
montar as mais fantásticas armadilhas, 
seu programa nunca estará (otal*ienle 
protegido dos olhares curiosos. 
Mas, combinando determinados recursos — 
alguns mais simples, outros nem tanto — , 
você pode dificultar lanto o trabalho 
do "pirata" que ele se sentirá 
tentado a abandonar sua tarefa. 



PRIMEIROS PASSOS 



Um dos métodos para proteger pro- 
gramas consiste em introduzir neles vá- 
rias armadilhas simples. Elas não impe- 
dem que alguém com conhecimento da 
máquina abra o programa, mas tornam 
a tarefa bem mais trabalhosa. Infeliz- 
mente, esse método dificulta também a 
elaboração do programa. Além disso, 
ele complica a depuração de erros, já 
que as armadilhas podem estar ativas 
durante a execução do programa. 

As travas mais simples são as que in- 
troduzem no programa mudanças que 
tornam impossível o uso dos comandos 
SAVE, LIST e outros. Como elas só se 
ativam após a execução do programa, 
não criam os problemas de depuração 
mencionados acima. 



AUTO CARREGAMENTO 



Pode-se obter uma proteção bem me- 
lhor fazendo com que o programa seja 
executado automaticamente depois de 
carregado. No processo normal de car- 
regar um programa (LOAD), os coman- 
dos são digitados no modo direto. Mas 
eles podem ser chamados por um pro- 
grama à parte, denominado programa 
de auto carregamento (boolstrap). Es- 
te e escrito em BASIC ou código de má- 
quina, dependendo das tarefas específi- 
cas que deve executar. Na sua forma 
mais simples, pode ser algo como: 

10 I.OAD "NOME PBOXIMG PHOGRAMA" 

A execução desse pequeno programa 
carregaria para a memória do micro o 
programa cujo nome fosse especificado. 
Obviamente, o uso de uma linha como 
esta é bem específico. Mas esse tipo de 
programa pode ser empregado para fa- 
zer muito mais, sendo bastante útil pa- 
ra programação suplementar — como 
montar páginas-títulos, gráficos etc. 

Estas incluem poderosas armas de 
proteção de um programa BASIC, que 
alteram determinados comandos do sis- 
tema. No nosso caso, o programa de 
auto-carregamento funciona como um 
inicializador do sistema que permite que 
seu programa seja carregado e executado. 
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Vários tipos de programas comerciais 
empregam bootslraps, muitas vezes 
gravados na forma de programas patro- 
cinados, onde cada parte é carregada em 
sequência. Lembre-se de que, normal- 
mente, um programa BASIC apaga o 
anterior ao ser carregado. Assim, se vo- 
cê utilizar essa técnica, carregue antes os 
módulos em linguagem de máquina e, 
depois, o BASIC. 

Com programas patrocinados, a pro- 
teção pode ser determinada por um cer- 
to grau de interdependência entre um ar- 
quivo (parte do programa) e outro. Nes- 
te caso, um arquivo checa um valor de 
memória determinado por outro. Pode- 
se ainda acrescentar um programa que 
cheque um arquivo de dados especial co- 
locado após o programa principal. Em 
ambas as alternativas, a falta de qual- 
quer um dos módulos provoca um erro 
e impede que o programa funcione. 

Os bootstraps oferecem mais uma 
vantagem: com sua utilização, o tempo 
de carregamento dos programas na me- 
mória diminui, porque o código de má- 
quina e os dados podem ser colocados 
diretamente na memória. Esse progra- 
ma dispensa, assim, o uso de declara- 
ções DATA do BASIC, que só funcio- 
na após o programa começar a ser exe- 
cutado. 



AUTO EXECUÇÃO 



A utilização de um programa de 
auto carregamento não é muito simples 
no TRS-Color (usando-se o cassete). 
Esse computador não dispensaria cha- 
madas especiais do sistema, o que não 
é possível com o BASIC. No Spectrum, 
porém, para executar um programa a 
partir de outro basta usar o comando 
apropriado em algum lugar do progra- 
ma de auto carregamento. 




990 LOAD "NOME DO PRÓXIMO PROGR 
AMA" 

Grave (SAVE) este segundo progra- 
ma usando SAVE "NOME DO PRÓ- 
XIMO PROGRAMA" LINE 1 — ou o 

número de linha que represente o início 
do programa. Escolhendo um número 
de linha maior, você poderá incluir avi- 
sos ou dados para serem lidos (PEEK) 
e checados em linhas REM anteriores à 
linha inicial de execução. 



FNo MSX também é muito simples 



tro: basta usar o comando LOAD com 
a opção R. Mas, para que tudo dê cer- 
to, o programa a ser executado deve es- 
tar gravado no formato ASCII, isto é, 
com a instrução SAVE. Na sua forma 
mais simples, o programa seria: 

100 LOAD "NOME DO PROGRAMA". R 

4 

As técnicas que seguem valem apenas 
para micros com disquete. 

Veremos, primeiro, como montar um 
programa de execução automática. O 
método mais simples consiste em intro- 
duzir no programa, que é automatica- 
mente carregado e executado ao se ligar 
o computador, uma linha do tipo 
PRINT CHR$(4); "RUN PROGRA- 
MA". Mas a utilização de um arquivo- 
texto é mais elegante, e exige apenas que 

0 programa com que o disquete foi ini- 
cializado contenha esta linha: 

10 PRINT CHRS (4) ; "EXEC AUTORUN" 

AUTORUN é um arquivo-texto que 
será executado como se as instruções es- 
tivessem sendo digitadas a partir do te- 
clado. Para criá-lo, digite e execute este 
programa: 

10 DS - CHRS (4) 

20 PRINT DS;"0PEN AUTORUN" 

30 PRINT DS;"WRITE AUTORUN" 

40 PRINT "NO MON C,1,0" 

50 PRINT "RUN BP35" 

60 PRINT D3; "CLOSE" 

Com esse arquivo, qualquer tentati- 
va de interromper o programa será in- 
terpretada como um erro. E isso será 
aproveitado por uma rotina de trata- 
mento de erros no programa principal. 

Digite este programa e salve-o, por 
exemplo, com o nome de BP35: 

1 o HOME 

20 PRINT "ALO " : 
30 GOTO 20 

Em seguida, digite "EXEC AUTO- 
RUN". O programa será executado pe- 
los comandos do arquivo AUTORUN. 
Se inicializou o disquete como sugeri- 
mos, seu programa BP35 terá execução 
automática toda vez que o computador 
for ligado com esse disquete no drive 1 . 



0 USO DE VARIÁVEIS DO SISTEMA 



A auto-execução não basta para afas- 
tar os curiosos. E necessário utilizar ou- 
tros recursos para evitar que os progra- 
mas sejam interrompidos, listados ou al- 
terados. Um desses recursos consiste em 



alterar o modo como o sistema reage 
quando se faz uma chamada específica 
— por exemplo, a sub-rotina de listagem 
(LIST). 

Cada computador tem um sistema 
operacional e um interpretador BASIC. 
A maior parte da informação é guarda- 
da na memória apenas para leitura — 
ROM — , mas parte dela é transferida 
para a memória de acesso aleatório — 
RAM — , quando se liga o computador. 
Esta informação pode ser modificada 
para alterar o funcionamento do siste- 
ma, permitindo que se incorporem aos 
programas métodos sofisticados de 
proteção. 

Como estaremos interferindo na pró- 
pria forma de trabalho do computador, 
precisaremos ter em mãos uma listagem 
completa das variáveis e rotinas do sis- 
tema, e um bom mapa de memória. Ve- 
ja o seu manual de referência. 

A transferência de parte da informa- 
ção do sistema da ROM para a RAM, 
possibilita a alteração do valor de algu- 
mas variáveis. Estando na RAM, esta 
informação torna-se vulnerável a qual- 
quer modificação que se queira fazer. 

Um tipo especial de variável do sis- 
tema é o apontador da RAM. Este con- 
siste, em geral, de dois endereços con- 
secutivos que guardam o endereço de 
uma sub-rotina específica. Se alterarmos 
tal endereço, o sistema será redireciona- 
do sempre que esta sub-rotina for cha- 
mada. Os melhores apontadores para a 
proteção de programas são os que se re- 
ferem aos comandos LIST, SAVE, IN- 
TERRUPT e RESET. Os últimos co- 
mandos fogem ao escopo deste artigo. 



ESTUDO DE CASOS 



É muito difícil dar total proteção aos 
programas, especialmente se se quer evi- 
tar um maior envolvimento com códi- 
go de máquina. Os métodos para cada 
máquina diferem muito, já que os sis- 
temas operacionais também são bastan- 
te diferentes. Mas vale a pena analisar 
algumas possibilidades. 




Uma das maneiras mais simples de 
marcar um programa consiste em colo- 
car uma mensagem que não possa ser re- 
tirada. Para reforçar a proteção, con- 
vém acrescentar uma rotina que verifi- 
que a presença da marca. 

Inicialmente, encontre o endereço da 
área reservada para programas em BA- 
SIC. Esse endereço (variável de sistema 
PROG) é armazenado nas posições 
23635 e 23636 e pode ser determinado 
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pela instrução: PRINT PEEK 23635 + 
256 * PEEK 23636. Conhecendo o va- 
lor de PROG, você pode colocar qual- 
quer número em PROG + t, alterando 
o número da primeira linha do 
programa. 

O segredo é deixar a linha com o nú- 
mero 0, já que não é possível apagar a 
linha 0. Suponhamos que a primeira li- 
nha do programa seja: 

10 BEM (C) NOVA CULTURAL 1986 

Digite este comando: 



Pronto! A linha 10 virou linha 0. 

O mesmo pode ser feito pelo progra- 
ma de autocarregamenio. Mas, 
tratando-se de um programa auto- 
executável, a maneira óbvia de 
interrompê-lo é teclando <BREAK>, 
que coloca uma mensagem na parte 
de baixo da tela. Suponhamos, po- 
rém, que esta não aceite a mensagem. 
Na lista das variáveis de sistema, vê-se 
que DFSZ (no endereço 23659) armaze- 
na o número de linhas da parte inferior 
da tela (geralmente 2). Alterando este 
valor para 0, o computador detectará 
um erro assim que a mensagem tentar 
aparecer na tela. 

Como não se pode entrar tais instru- 
ções no modo direto, digite: 
10 POKE 23659,0 
20 PRINT AT 5,5; RN D 
30 GOTO 20 

Execute o programa. Se pressionar 
<BREAK>, provocará um erro. 

Quando usar este método, lembre-se 
de que, se seu programa contiver situa- 
ções que produzem mensagens como 
INPUT? ou scro»?, o erro será inevitá- 
vel. Assim, para entrada de dados, use 
INKEYS. 

O "pirata" pode evitar que um pro- 
grama se auto-execute, carregando-o 
com MERGE. Mas será impossível fazê- 
lo se o programa for gravado em códi- 
go. As variáveis do sistema, o progra- 
ma e a memória livre devem ser grava- 
dos acima do buffer da impressora. 

A gravação começa com CODE 
23552, que é o início da área das variá- 
veis do sistema. O número de bytes é 
N-23S52, onde N é qualquer número 
maior que STKEND (o endereço do iní- 
cio do espaço livre). Obtém-se este en- 
dereço com PEEK 23653 + 256*PEEK 
23654. 

Coloque estas linhas no início do seu 
programa: 

1 SAVE "NOMEPROG" CODE 23552, 



Agora, iguale N ao endereço descri- 
to acima e digite GOTO 1. O programa 
será gravado. O comando LOAD "NO- 
MEPROG" CODE fará com que o pro- 
grama seja executado. 



Vimos como proceder para que um 
programa inicial carregue e execute o 
programa principal. Mas isso não é sufi- 
ciente. Um simples <CTRL> <STOP> 
permite que se interrompa o programa 
para que ele seja listado. 

No MSX, pode-se evitar uma inter- 
rupção desse tipo com facilidade. A 
idéia é direcionar o programa para uma 
sub-rotina especial toda vez que se ten- 
tar uma interrupção com 
<CTRL> <STOP> . Para isso, 
utilizam-se as instruções STOP ON, que 
fazem com que o BASIC verifique a to- 
do instante se uma interrupção foi ten- 
tada, e ON STOP GOSUB XXXXX, 
que desvia o programa para uma deter- 
minada linha em caso positivo. Digite 
o seguinte: 

10 ON STOP GOSUB 1000 
20 STOP ON 
30 CLS 

40 LOCATE 10,12:PRINTRND(1) :GOT 
O 40 

1000 P-P+l 

1010 CLS: LOCATE 10,10: PP.INT"Não 
aeja curioso ! " : BEEP : FOR 3-1 TO 
1000:NEXT 
1020 IF P=3 THEN NEW : END 
1030 CLS : RETURN 

Não se esqueça de gravar o progra- 
ma antes de executá-lo. Depois, pare-o 
se puder! 



Você já sabe como proceder para que 
seu programa seja automaticamente exe- 
cutado; veja agora como impedir que o 
interrompam, ou seja, como impossibi- 
litar sua listagem. Para isso, fazemos 
com que toda tentativa de interrupção 
— por meio do < CTRL >< C > ou do 
< CTRL > < RESET > — seja interpre- 
tada como um erro, desviando a execu- 
ção para uma rotina especial. Para que 
o micro interprete o <CTRL><RE- 
SET> como um erro (o <CTRL> <C> 
é normalmente interpretado como taJX adi- 
cione as linhas seguintes ao programa do 
arquivo AUTOR UN. 
45 PRINT "POKE 40286,35' 



46 PRINT 'POKE 40267,216* 

Elimine o AUTO RU N já existente e 
execute o programa. O novo arquivo 
contém os dois POKE que mudam o 
comportamento do computador em re- 
lação ao <RESET>. Mas, para que 
possamos tirar proveito dessa mudança, 
uma rotina de erros deve ser inserida no 
programa principal: 

5 ONERR GOTO 1000 
1000 P = P + 1 
1010 IF P - 3 THEN PR* 6 
1020 PRINT CHRS (7) 1 : RESUME 
NEXT 

Grave o programa alterado. Desligue 
o computador e ligue-o novamente. 
Tente parar o programa... 

Pode ocorrer, porém, que o curioso 
se lembre de olhar para o diretório do 
disco e carregar o seu programa direta- 
mente, sem executá-lo; assim, poderá 
listá-lo. Para confundi-lo, inclua no no- 
me do programa, no momento de gra- 
var (SAVE), alguns caracteres de con- 
trole, que Ficarão invisíveis. Para fazer 
isto, basta digitar junto do nome do pro- 
grama um ou maís < CTRL > < letra > , 
onde a letra pode ser A, B etc. Evite o 
C e o X. 
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■ 


COMO EDITAR LINHAS 


DE UM PROGRAMA BASIC 


■ 


OS MOVIMENTOS DO CURSOR 


■ 


0 COMANDO EDIT 


■ 


CONSOLIDE AS MODIFICAÇÕES 



Os micros da linha ZX-81 possuem bons 
recursos de edição. Com o comando 
EDIT e as teclas de movimentação do 
cursor, você pode alterar ou duplicar 
rapidamente uma linha de programa. 



Devido à sua natureza "conversacio- 
nal", todos os interpretadores da lingua- 
gem BASIC incluem alguns recursos de 
edição de programas, ou seja, técnicas 
de entrada e alteração das linhas que o 
compõem. 

Como vimos em artigos anteriores 
sobre edição de programas em outras li- 
nhas de microcomputadores, o primei- 
ro interpretador BASIC, desenvolvido 
na década de 60 na Universidade de 
Dartmouth, nos EUA, fixou os recur- 
sos mais elementares de edição: nume- 
ração, inserção, apagamento e listagem 
de linhas. Estes recursos, adotados pos- 
teriormente em todos os dialetos BASIC 
que surgiram, não davam ao programa- 
dor a possibilidade de alterar caracteres. 
Assim, para corrigir um único caracte- 
re errado, ele teria que digitar toda a li- 
nha novamente. 

Para poupá-lo desse trabalho, 
desenvolveram -se comandos como o 
EDIT, presentes nos micros da linha 
Sinclair, TRS-80 e TRS-Color. O co- 
mando EDU dos micros da linha ZX-81 
opera em uma linha de cada vez. 



DIGITAÇÃO DE PROGRAMAS 



No ZX-81, cada linha é digitada de 
uma vez, precedida de um número. 

A parte inferior da tela do ZX-81 
destina-se à digitação de linhas. Ao ser 
ligado, o computador exibe um cursor 
de texto — um retângulo em video in- 
verso — contendo a letra K. Esta é a 
chamada linha de edição da tela. À me- 
dida que você vai digitando a tinha, por 
meio do teclado, este cursor vai se des- 
locando à frente dos caracteres. Durante 
o deslocamento, ele pode mudar de ti- 
po (passar para tipo L, tipo G, tipo F 
etc). 

Quando se pressiona a tecla <EN- 
TER> ou < RETURN > , a linha é 



completada e inserida no ponto certo do 
programa. Enquanto isso não ocorre, 
pode-se modificar a linha à vontade. 

Três teclas de controle são utilizadas 
para se proceder às modificações: as te- 
clas com as flechas para a esquerda e pa- 
ra a direita (<- e — ), que devem ser acio- 
nadas simultaneamente com a tecla 
<SHIFT>, e a tecla de apagamento 
(chamada de DELETE ou RUBOUT, 
conforme a marca do computador, 
e que, no ZX-81, corresponde à 
pressão simultânea das teclas 9 e 
<SHITT>). 

Ao ser acionada, a tecla de apaga- 
mento pode eliminar um caractere ou 
uma palavra-chave do BASIC de uma 
vez. O restante da linha se desloca para 
a esquerda, de modo a preencher os cla- 
ros deixados. 

O ZX-8! dispõe do modo de inserção 
automático, ou seja, se digitarmos ca- 
racteres quando o cursor estiver no meio 
de uma linha, estes serão inseridos, por 
intermédio do deslocamento do restan- 
te da linha para a direita. Para sobre- 
por caracteres (escrever sobre caracteres 
já existentes), é necessário primeiro 
apagá-los. 



Uma vez pressionada a tecla <EN- 
TER>, a linha digitada passa a fazer 
parte do programa. Se, depois disso, vo- 
cê digitar apenas o seu número, e pres- 
sionar <ENTER> de novo, ela será 
apagada. Por outro lado, se você digi- 
tar seu número, seguido de novos co- 
mandos ou instruções, estes substituirão 
a linha existente no programa. 

Um recurso de edição que faz falta 
no ZX-81 é o comando DELETE (ou, 
ainda, DEL, em alguns computadores), 
que apaga grupos de linhas de uma vez 
só. Os usuários desse micro precisam 
sempre digitar os números de cada uma 
das linhas a serem apagadas, um a um, 
seguidos de <ENTER>. 

Para modificar uma Unha já existen- 
te, sem precisar redigitá-la inteiramen- 
te, pode-se recorrer ao comando EDIT. 
Para isso é necessário entender o con- 
ceito de cursor de linhas. 



Se você olhar para uma listagem de 
programa na tela, perceberá que existe 
sempre um retângulo em video inverso, 
contendo o sinal de maior (>) em seu 
interior, e que aponta para uma das li- 
nhas na tela. Esse retângulo é o cursor 
de linhas. Para deslocá-lo. basta pres- 
sionar uma ou mais vezes uma das te- 
clas com a flecha para cima ou para bai- 
xo (t ou 1). 

Agora, se você pressionar simulta- 
neamente as teclas < SHIFT > e 1 , a li- 
nha apontada pelo cursor de linhas apa- 
recerá na linha de edição. 

Você poderá usar, então, todos os 
procedimentos de edição: movimenta- 
ção do cursor de texto, apagamento, in- 
serção etc. Tudo funciona da mesma 
maneira, até que você pressione a tecla 
<ENTER> . Ao fazê-lo, alinha modi- 
ficada irá substituir a que foi chamada 
anteriormente pelo EDIT. 



DUPLICAÇÃO DE LINHAS 



A duplicação de linhas é um dos re- 
cursos mais interessantes do ZX-81. O 
número da linha pode ser editado nor- 
malmente. Assim, se apenas ele for mo- 
dificado, a linha com o número origi- 
nal mantém-se no programa, e a mes- 
ma linha, com nova numeração, é inse- 
rida no ponto correto. 

Por outro lado, se, além do número 
da linha, também o seu conteúdo for 
modificado, uma linha diferente será 
automaticamente gerada. 

Portanto, para que uma linha possa 
ser editada pelo comando EDIT, ela pre- 
cisa estar listada na tela (use o coman- 
do LIST número, para isto). Desloque 
o cursor de linha até ela, e pressione o 
comando EDIT. 

Para agilizar o processo de edição de 
várias linhas de um programa extenso, 
você pode utilizar um pequeno truque. 
Em vez de pressionar repetidas vezes as 
teclas de controle do cursor de linhas, 
até chegar à linha que você deseja, digi- 
te o comando LIST, seguido do núme- 
ro dessa linha. Isto a colocará no alto 
da tela, com o cursor de linhas automa- 
ticamente apontado para ela. Basta, en- 
tão, pressionar o comando EDIT. 
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SÍMBOLOS 
GRÁFICOS NO MSX 



■ 


SÍMBOLOS GRÁFICOS 


■ 


ENTRADA PELO TECLADO 


■ 


AS FUNÇÕES 


CHRS E STRINGS 


■ 


TABELA DE REFERENCIA 



Os micros da linha MSX dispõem de 
caracteres gráficos que podem ser 
entrados diretamente pelo teclado ou 
usados dentro de um programa. Veja 
como explorar este recurso especial. 



Os microcomputadores da linha 
MSX são extremamente versáteis do 
ponto de vista da programação gráfica. 
Em artigos anteriores, vimos como as te- 
clas gráficas (SCREEN) podem ser pro- 
gramadas, em média e alta resolução, 
por meío de instruções poderosas como 
LINE, CIKO.lv PAINT, PSET etc. 

O MSX apresenta, ainda, um recur- 
so gráfico adicional que é pouco explo- 
rado. São os caracteres gráficos, dispo- 
níveis para o programador por meio de 
dois procedimentos: entrada direta pe- 
lo teclado e inserção através das funções 
do BASIC CHRS e STRINGS. 

O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros, entre O e 255; cada caractere cor- 
responde, portanto, a um byte da me- 
mória do vídeo. Parte dessa codificação 
está convencionada internacionalmente 
pelo chamado código ASCII, que vai de 
32 a 126. Os códigos de O a 31 são nor- 
malmente utilizados para funções de 
controle do vídeo, e dependem do tipo 
de computador. O mesmo acontece com 
os códigos de 127 a 255. Nesta faixa, ca- 
da fabricante usou os códigos de uma 
maneira, em geral para acomodar carac- 
teres em outros idiomas que não o in- 
glês (é o caso do MSX, existente no Bra 
sil) ou para especificar caracteres gráfi 
cos. Estes tanto podem ser tipos espe 
ciais, para a imagem de um rosto sor 
rindo ou uma nota musical, como blo- 
cos gráficos formando linhas, ângulos 
e cantos. 



Tais caracteres são também chama- 
dos de gráficos da ROM, pois já vêm 
pré- programados. No MSX, os caracte- 
res especiais ocupam duas faixas da ta- 
bela de caracteres: 



- a faixa de 1 a 3 1 

- a faixa de 144 a 254 

Nestas faixas, os caracteres gráficos 
propriamente ditos encontram -se disper- 
sos em vários pontos da tabela, entre- 
meados com caracteres de outros idio- 
mas, com o alfabeto grego, símbolos 
matemáticos etc. 

Os caracteres gráficos que mais nos 
interessarão neste artigo são os blocos 
empregados na formatação de tabelas, 
de formulários de entrada ou na com- 
posição de quaisquer outros desenhos 
formados por linhas retas. A utilização 
de caracteres gráficos, nesses casos, tem 
a vantagem de não complicar a progra- 
mação, misturando tela gráfica com tex- 
to, o que nos permite recorrer a coman- 
dos mais simples, como o LOCATE, o 
PRINT, o INPUT etc. 



ENTRADA PELO TECLADO 



Assim como os caracteres convencio- 
nais do ASCII (demarcados sobre as te- 
clas do microcomputador), os caracte- 
res especiais e gráficos podem ser entra- 
dos pelo teclado. Para isso, pressiona- 
se simultaneamente uma ou mais de 
três teclas de função — <GRAPH>, 
<CODE> ou <SHIFT>— , com ou- 
tra tecla normal do teclado. Com isso, 
o caractere desejado aparece diretamen- 
te na tela (por exemplo, dentro de uma 
cadeia alfanumérica). 

Com o programa abaixo, você verá 
como entrar caracteres pelo teclado. Ele 
desenha uma tabela simples na tela, 
usando blocos gráficos, e depois coloca 
os nomes digitados pelo usuário nas li- 
nhas da tabela. 

200 CLS 

Z10 PRINT" 

220 PRINT" 

230 PRINT" 

240 FOR 1-1 TO 5 

250 PRINT" I 

260 PHINT" r 

270 NEXT I 

280 PRINT" I 
T" L 



No. 



290 PRINT" 



320 LOCATE 0,21:LINE INPUT "N0M 



E: ":NS 

330 LOCATE 1 , 11*2) + 1 : PRINT USIN 
G "•♦";!; 

340 LOCATE 7 , (1*2) +1 : PRINT LEFT 
S(NS.IO) ; 
350 NEXT I 

360 LOCATE 0.21tPRINT "FIH 
" : END 

Os traços são teclados na seguinte se- 
quência: 

Linha 210: <GRAPH> R 

<GRAPH> - (4 vezes) 
<GRAPH> T 
<GRAPH> - (11 vezes) 

< GRAPH > Y 

Linha 220: < SHIFTxGRAPH > 
Linha 230: < GRAPH > F 

< GRAPH > - (4 vezes) 
< GRAPH > G 

< GRAPH > - (11 vezes) 
< GRAPH > H 

Linha 250: como a linha 220 
Linha 260: como a linha 230 
Linha 280: como a linha 220 

Linha 290. < GRAPH > V 

< GRAPH > - (4 vezes) 

< GRAPH > B 

< GRAPH > - (11 vezes) 
< GRAPH > N 

Há duas desvantagens nesta manei- 
ra de entrar caracteres gráficos. Primei- 
ro, as teclas não têm qualquer marca- 
ção que auxilie o usuário a achar o grá- 
fico correto; assim, é preciso consultar 
o manual, o que torna o processo bas- 
tante trabalhoso. Em segundo lugar, o 
programa não pode ser listado em uma 
impressora não gráfica, ou que não se- 
ja própria para o MSX. 



CARACTERES GRÁFICOS NO PROGRAMA 



Para especificar caracteres gráficos 
dentro de um programa, sem precisar 
digitá-los diretamente, podemos usaras 
funções CHRS e STRINGS: com o nú- 
mero de código do caractere desejado, 
elas permitem que os caracteres nor- 
mais, especiais e gráficos com códigos 
na faixa de 32 a 254 sejam impressos na 
tela a partir de um programa. Por exem- i 



um 



CARACTERES GRÁFICOS DO MSX 



Código 


Teclas Caractere 


Código 


Tecla» 


Caractere 




GRAPH ' 


ô 


192 


GRAPH U 


u 


2 


SHIFT GRAPH 




193 


SHIFT GRAPH D 


Tm 


3 


SHIFT GRAPH ' 




194 


GRAPH 1 


□ 
m 


4 


SHIFT GRAPH C 




1 95 


SHIFT GRAPH 0 


LI 


5 GRAPH " * 


1 96 


GRAPH A 


in 

L7LJ 


6 GRAPH C ♦ 


197 


SHIFT GRAPH 1 


m 

□ 


8 SHIFT GRAPH 9 D 


198 


GRAPH J 


n 
u 


9 


GRAPH 0 


0 


199 


GRAPH D 


■ 

tu 


10 


SHIFT GRAPH 0 


■ 


200 


GRAPH L 


■ 


1 1 


GRAPH M 


d" 


201 


SHIFT GRAPH L 




12 


SHIFT GRAPH M 


9 


202 


SHIFT GRAPH J 


■ 
■ 


13 GRAPH' ; 


203 


SHIFT GRAPH Q 


K4 


14 


SHIFT GRAPH ' 




204 


GRAPH Q 


RS 


15 


GRAPH Z 




205 


GRAPH E 


H 


16 


SHIFT GRAPH G 13 


t 


_206 


SHIFT GRAPH E 


Q 


17 


GRAPH B 




207 


GRAPH W 


ti 


18 


GRAPH T 




208 


SHIFT GRAPH W 


ra 
L3 


19 


GRAPH H 




209 


SHIFT GRAPH S 


X 


20 


GRAPH F 




210 


GRAPH S 


H 


21 


GRAPH G 


+ 


211 


SHIFT GRAPH N 


E 


. 22 


SHIFT GRAPH \ 


I 


212 


SHIFT GRAPH F 


é 


23 


GRAPH - 




213 


SHIFT GRAPH V 


O 


24 


GRAPH R 


r 


214 


SHIFT GRAPH H 


D 


25 


GRAPH Y 




215 SHIFT GRAPH P fifi 


26 


GRAPH V 




219 


GRAPH P 


■ 


27 


GRAPH N 




220 


GRAPH 0 


li 


28 


GRAPH X 


X 


221 


GRAPH K 


1 


29 GRAPH / / 


222 


SHIFT GRAPH K 


1 


30 


GRAPH \ 


\ 


223 


SHIFT GRAPH U 


n 


31 


SHIFT GRAPH - 




248 


SHIFT GRAPH Z 


o 


169 


SHIFT GRAPH R 


r 


249 


SHIFT GRAPH C 


• 


170 


SHIFT GRAPH Y 


n 


250 


SHIFT GRAPH X 




188 


SHIFT GRAPH C 


0 


254 


SHIFT GRAPH A 






O repertório de caracteres gráficos 
do MSX é muito variado: inclui desde tipos 
especiais, como uma nota musical 
ou um rosto sorrindo, até blocos gráficos 
compondo linhas, ângulos e cantos. 
Para entrá-los pelo teclado, oriente-se 
pelo quadro de referência ao lado. Como 
você pode observar, será sempre n 
pressionar, simultaneamente, uma 
teclas de função e uma tecla norn 




pio, para imprimir na tela a letra grega 
beta, digite: 

PRINT CHRS (225) 

Ou, então, para traçar uma linha re- 
ta de dupla espessura na tela, use: 

PRINT STRINGS(32,197) 

A função STRINGS (n,c) retorna 
uma cadeia de n caracteres com código 
c. Já os caracteres gráficos que se en- 
contram na faixa de 1 a 31 não podem 
ser impressos da mesma maneira, pois 
estes códigos têm funções de controle 
do vídeo. Para usá-los com a função 
CHRS, é necessário "avisar" o com- 
putador que o código será usado co- 
mo gráfico. Para isso, são emprega- 
dos dois bytes: CHRS(l), seguido de 
CHR$(n + 64), onde a é o código do ca- 
ractere gráfico na tabela. Por exemplo, 
PRINT CHR$(1);CHR$<75) mostrará 



na tela o símbolo masculino. 

Esse método funciona também para 
a faixa de códigos gráficos que vai alé 
191. O programa abaixo mostra na tela 
uma tabela de correspondência: 
-10 KEY OFF:CLS:I-0 
20 FOR N-l TO 6 

30 I-I+1:IF I>191 THEN GOSUB 10 
OrEND 

40 PRINT USING "#»» 

50 PRINT CHR3(l)+CHR$<I+64) s" " 

60 NEXT N 

70 PRINT : PRINT 

80 L-L+1:IF L<10 THEN 20 

90 GOSUB 100:L-0'GOTO 20 

100 tOC ATE 0.22 

110 PRINT -PresBione qualquer t 

ecla p/continuar* 

120 IF INKEYS-"" THEN 120 

130 CLS : RETURN 

Se você substituir três linhas — 10, 
30 e 50 — , o programa servirá também 



para mostrar os códigos gráficos de 128 
a 254. 

10 KEY 0FF:CLS:I-127 

30 I-I+1:IF I>254 THEN GOSUB 

100:END 
50 PRINT CHR$(I) ;" "| 

Caso pretenda utilizar um caractere 
gráfico da faixa de 1 a 3 1 com frequên- 
cia num programa, armazene-o em uma 
variável alfanumérica, como mostra o 
exemplo abaixo. Os quatro símbolos dos 
naipes do baralho são armazenados em 
N$ (e seus nomes em E$): 

10 CLS 

20 FOR 1-1 TO 4 
30 READ ESU) 

40 NSU)-CHR$(l)+CHRSU+66) 
50 PRINT N$(I) ,E3(I) 
60 NEXT I 

70 DATA Copas.Ouroa.PauB.Eapada 



Illllllll 
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Os recursos sonoros do Spectrum são 
limitados, se considerarmos apenas 
o comando SOUND. Porém, com código 
de máquina, poderemos produzir vários 
sons, de sirene a tiros de laser. 



Em geral, o endereçamento da me- 
mória é uma função do microprocessa- 
dor. Na maioria dos computadores 
domésticos, quando queremos usar um 
aparelho externo — como uma impres- 
sora, um televisor ou mesmo o teclado 
do computador — temos que fazê-lo por 
meio de uma posição de memória que 
está ligada a uma porta de saída. Porém, 
com micros que usam o Z-80, como o 
Spectrum, por exemplo, pode-se ter 
acesso direto às portas, tanto em BA- 
SIC, com os comandos IN e OUT, co- 
mo em código de máquina,' com in eoul. 



AFINAL, 0 QUE É UMA PORTA? 



Uma poria é um canal de comunica- 
ção entre o microprocessador e o mun- 
do externo. Este inclui o teclado e tudo 
o que é periférico ao microprocessador, 
à RAM e à ROM. 

Já tivemos oportunidade de ver co- 
mo in é usado para dar acesso ao tecla- 
do. Os comandos OUT e out funcionam 
de modo semelhante, só que, em vez de 
receber dados, enviam-nos aos periféri- 
cos. Ambos têm acesso bem mais ver- 
sátil ao alto-falante do que o comando 
BASIC SOUND e podem ser usados, 
também, para controlar a moldura da 
tela. Entretanto, como o OUT é exces- 
sivamente lento, consideraremos apenas 
o comando out. 

Para gerar sons com out precisamos 
da velocidade da linguagem de máqui- 
na. Eles são obtidos por meio do movi- 
mento do cone do alto-falante para fora 
e para dentro. Movimentando-o uma 
vez, produzimos um clique, do tipo que 
se ouve ao ligar um aparelho de som. O 
truque está em repetir o movimento 
muitas vezes, e rapidamente. 

Teremos, assim, uma sucessão de di- 
ques, que provocam um efeito similar 
a um zumbido. Quanto mais veloz for 
o movimento de vaivém do cone, mais 
agudo será o som resultante. 

A rotina Assembler apresentada a se- 
guir produz um som cuja tonalidade vai 
aumentando. Digite CLEAR 64599 e de- 
pois as Unhas: 

10 REM ora 64600 
[20 REM ld a. (23624) 
30 REM rrca 
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A PORTA 254 ■ MODIFICAÇÃO DA MOLDURA 

INSTRUÇÕES SHIFT E ROTATE ■ A ESCOLHA DA COR 

O USO DO ALTO-FALANTE ■ ACERTO DO TEMPO 

LAÇOS DE PAUSA ■ SINTON IA FINA 

ACERTE O TOM ■ COMO DOBRAR A FREQUÊNCIA 



40 BEM rrca 

50 BEM rrca 

60 BEM ld b,0 

70 REM loop push bc 

80 REM xor 16 

90 BEM out 254. a 

100 BEM pause nop 

110 BEM nop 

120 BEM djnz pause 

130 BEM pop bc 

140 BEM djm loop 

150 BEM ret 

A porta 254, que controla o alto- 
falante, controla também a moldura da 
tela. Para que um comando oul não mo- 
difique a moldura ao produzir um som, 
utiliza- se uma rotina em código destina- 
da a evitar o problema. 

Inicialmente, coloca-se no acumula- 
dor o valor da variável do sistema situa- 



do na posição 23624 da memória. As 
cores do Spectrum têm códigos que vão 
de 0 a 7. Normalmente, os bits que con- 
trolam a cor são os bits três, quatro e 
cinco. Contudo, quando estamos con- 
trolando a moldura via porta 254, os 
bits zero, um e dois encarregam-se da 
modificação das cores, 

Assim, para se ter a certeza de que 
a cor da moldura não será modificada 
pelo efeito sonoro, os bits três, quatro 
e cinco devem ser deslocados três posi- 
ções para a direita (para o lugar dos bits 
zero, um e dois). 



O deslocamento dos bits pode ser 
executado por vários comandos. Utili- 
zamos aqui rrca (rolate right with carry, 
on lhe acumulator, expressão em inglês 
que significa rotação para a direita com 
"vai um" no acumulador). Essa instru- 
ção movimenta todos os bits que estão 
no acumulador uma posição para a di- 
reita. É chamada de rotação porque co- 
loca o conteúdo do bit zero no bit sete, 
fazendo-o "dar a volta", por assim di- 
zer. Um comando SHIFT — desloca- 




mento — moveria todo o conteúdo do 
acumulador um bit para a direita, mas 
preencheria o bit de reserva com zero. 
Seu emprego é mais adequado a opera- 
ções aritméticas: um SHIFT para a es- 
querda multiplica um número por dois, 
enquanto um SHIFT para a direita o di- 
vide por dois. 

Aqui, porém, utilizamos uma rotação 
porque queremos deslocar apenas três 
dos bits. O conteúdo dos demais não nos 
interessa. O comando rrca ainda copia 
o conteúdo do bit zero no bit carry — 
"vai um". Mais uma vez, não importa 
o valor do carry. 

Para deslocar os bits de cor da mol- 
dura três posições para a direita, 
emprega-se rrca três vezes, o que equi- 
vale a dividir a cor da moldura por oi- 
to. Mas quando a cor — normalmente 
um número entre 0 e 7 — se encontrava 
nos bits três, quatro e cinco, estava mul- 
tiplicada por oito. 

Agora, quando usarmos o comando 
out, ele especificará a mesma cor de 
moldura que havia antes, e nenhuma 
mudança ocorrerá. 



ACERTE OS CONTADORES 



O registro B funciona como um con- 
tador duplo. Para começar, colocare- 
mos 0 nele, e este valor será guardado 
na pilha por push bc. O registro B não 
pode ser guardado sozinho na pilha, já 
que os comandos de push e pop agem 
apenas em pares de registros. Precisa- 
mos, assim, guardar B juntamente com 
C. Como não usaremos o registro C, is- 
so não afetará o programa. 



COMO PRODUZIR SONS 



O bit quatro da porta 254 controla o 
alto-falante. Alternando o valor desse 
bit, movimenta-se o cone do alto-falan- 
te, produzindo som. 

Alterna-se o bit quatro por meio da 
operação lógica "ou exclusivo". Faze- 
mos um "ou exclusivo" entre o valor do 
acumulador e dezesseís. Assim, se o bit 
quatro estiver ligado, valendo 1, ele se- 
rá desligado, passando a valer 0 — oul 
vice-versa. 



Illllll 
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O o til 254, a envia o conteúdo do acu- 
mulador via porta 254. Em muitos As- 
semblers comerciais os comandos oul e 
in precisam de colchetes envolvendo o 
número da porta. 



ACERTE 0 TOM 



A instrução nop. com o código hex 
0 0, significa "sem operação" — no 
operadon. Ela não faz absolutamente 
nada, mas, como leva um certo tempo 
para ser executada — aproximadamen- 
te um microssegundo, ou seja, um mi- 
lionésimo de segundo — , atrasa o mi- 
croprocessador na realização do laço. 
Por essa razão, é usada duas vezes nes- 
te programa. A velocidade com que o 
microprocessador executa o laço contro- 
la a frequência de vibração do cone do 
alto-falante e, consequentemente, a to- 
nalidade do som produzido. 

Como você pode observar, os nop 
não são executados apenas duas vezes. 
A instrução djnz fdecrementa e salta se 
não for zero) promove várias repetições 
da pausa. 

A instrução djnz opera com base no 
valor do registro B. Assim, na primeira 
execução do laço, ela decrementa o va- 
lor de B, que passa de 0 para 255. Em 
seguida, o laço é executado mais 255 ve- 




Quantas portas existem? 

Teoricamente, existem 64K portas 
— este é o maior número que pode ser 
endereçado por um par de registros de 
oito bits. Na prática, porém, utrlizam-se 
apenas umas poucas portas. Quando 
seu Spectrum está na configuração ori- 
ginal, somente a porta 254 é usada. 

O comando In permite empregar di- 
ferentes parâmetros para dirigir a por- 
ta para as várias regiões do teclado. 
Neste artigo, recorremos a bits distin- 
tos, da mesma porta, para controlar pe- 
riféricos diversos. 

Se seu Spectrum for conectado a 
periféricos não usuais, talvez você te- 
nha a possibilidade de aproveitar outras 
portas. Conhecendo razoavelmente 
eletrônica, poderá, por exemplo, ligar 
seu micro a um sistema de aquecimen- 
to ou a um sintetizador, utilizando por- 
tas diferentes. 



zes, até que B valha 0 novamente. 

Uma vez concluído o laço, o valor no 
topo da pilha é recuperado com pop e 
colocado no par BC. Com a recupera- 
ção do valor original de B, djnz o de- 
crementa e o microprocessador entra 
mais uma vez no laço. Esse processo le- 
va o valor de BC de volta à pilha. As- 
sim, o contador que fica na pilha é 
decrementado cada vez que o micropro- 
cessador executa o laço, e o valor ini- 
cial de B, que determina o número de 
execuções, torna-se menor. Ã medida 
que o número de execuções da pausa di- 
minui, a frequência do som aumenta. 



MOLDURA COM SETE CORES 



Para especificar a cor da moldura uti- 
lizando o comando BASIC BORDER, 
atribuímos a ela um valor qualquer en- 
tre 0 e 7. Toda a moldura fica, então, 
com a cor correspondente. 

A rotina seguinte usa código de má- 
quina para criar uma moldura com sete 
cores. Poderíamos trabalhar com oito 
cores, mas não faria sentido ter na mol- 
dura uma tonalidade idêntica à da tela 
principal. 



10 


REM 


org 64600 


20 


NEM 


redo halt 


30 


fí EM 




40 


BEM 


loop OUt 254 


50 


SEM 


ld b.205 


60 


BEM 


pause ld e,2 


70 


SEM 




80 


BEM 


ir nz.inner 


90 


REM 


djnz pause 


100 


BEM 


ld d. a 


1 10 


REM 


ld a.$7F 


120 


BEM 


in a, 254 


130 


REM 




110 


BEM 




ISO 


BEM 


ld a, d 


160 


REM 




170 


BEM 


cp 7* 


180 


REM 


jr ní.loop 


190 


REM 





COMO SINCRONIZAR A TELA 



A instrução hall aguarda a ocorrên- 
cia de uma interrupção para, depois, 
continuar o programa. No Spectrum, a 
interrupção ocorre a cada varredura da 
tela. Assim, halt inicia a rotina quando 
a varredura começa no alto da tela, sin- 
cronizando a posição da moldura com 
a borda superior da tela de TV. 

A instrução xor a executa um "ou ex- 
clusivo" entre o acumulador e ele mes- 
mo, o que constitui uma forma rápida 
de zerar o acumulador. O 0 é enviado 
pela porta 254. Como zero, em lingua- 
gem de máquina e em BASIC, corres- 
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ponde a preto, a porção superior da tela 
adquire esta cor. 



AJUSTE A PAUSA 



Nesta rotina o tempo é essencial. O 
comprimento da pausa determina a lar- 
gura das bandas coloridas da moldura. 
Controla-se a pausa por meio de dois la- 
ços: o interno, que acerta o tempo gros- 
seiramente; e o externo, que o sintoniza 
de modo mais refinado. 

O laço interno é executado com base 



no registro E, que recebe o valor 2 atra- 
vés de ld e,2, sendo decrementado por 
dec e. A instrução jrnz, inner realiza um 
salto relativo em direção ao rótulo in- 
ner, se o resultado não for zero. Assim, 
a cada execução do laço externo, o laço 
interno é executado duas vezes. 

O laço externo repete-se 205 vezes 
com o registro B. ld b,205 coloca este 
valor no registro B, assim como o djnz 
que o decrementa, saltando enquanto o 
resultado não for zero. Nenhuma instru- 
ção deste tipo opera com o registro E; 
por causa disso, a subtração e o salto 
precisam ser feitos em duas instruções 
.separadas. 

Se alterarmos tais valores, veremos 
que o valor colocado em E modifica 
bastante a largura das bandas, enquan- 
to o valor colocado no registro B tem 
um efeito bem menor. 



A OCORRÊNCIA DE UM BREAK 



Certamente, em algum momento, de- 
sejaremos sair desse laço. Para fazê-lo 
sem desligar seu micro, programe uma 
rotina de saída. 

A que apresentamos aqui verifica se 
a tecla < BREAK > foi pressionada, 
por meio da instrução in. 

Inicialmente, porém, ld d, a coloca o 
valor do acumulador no registro D. Por 
um instante o acumulador será usado 
para outras coisas, e o registro D ficará 
desocupado, podendo servir de registro 
temporário. 

Em seguida, o acumulador é carrega- 
do com o valor hexadecimal 7F. Esse 
número especifica o canto inferior es- 
querdo do teclado. A instrução in a, 254 
recebe o padrão de bits correspondente 
ao estado atual dessa parte do teclado, 
colocando-o no acumulador. 

O bit zero representa o estado da te- 
cla < BREAK > . Se esta não estiver sen- 
do pressionada, ele valerá 1; se estiver, 
seu valor será igual a 0. 

Para verificar isso, execute uma ro- 
tação, jogando o bit zero — que fica no 
extremo direito do byte — para o carry 
bit e checando, depois, o sinalizador 
carry. A instrução rra promove a rota- 
ção e ris nc retorna ao BASIC quando 
não há um "vai um" — carry igual a 
zero ou "not carry". Assim, quando 
pressionar < BREAK > e o bit zero pas- 
sar a valer zero, rts provocará o fim da 
rotina; caso contrário, esta continuará 
funcionando. 

Lembre-se de que um retorno condi- 
cional tem o mnemónico rts apenas em 
nosso Assembler. Outros Assemblers 
utilizam a forma ret. 
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COMPLETE 0 CIRCULO 



Agora que lemos uma saída da roti- 
na, o valor do acumulador é recupera- 
do por Id a,d, já que eslava tempora- 
riamente em D. 

A é incrementado para especificar a 
cor seguinte. A instrução cmp 7 compa- 
ra o resultado com 7. Este é o número 
correspondente ao branco, cor da tela 
principal. Se o número no acumulador 
não é sete, jrnz.loop volta para enviar 
a cor da próxima banda. Quando este 
laço tiver contado de 0 a 7, o micropro- 
cessador vai à instrução jr redo, que re- 
torna ao início do programa, à espera 
de uma nova varredura da tela. 

Você pode estar estranhando o fato 
de não produzir sons por acidente ao 
mudar a cor da moldura. A rotina não 
afeta o bit que controla o alto-falante. 
O maior número que enviamos pela por- 
ta 254 foi 7, quando precisaríamos de, 
no mínimo, 16 para movimentar o alto- 
falante. 



Veremos agora como criar um efeito 
sonoro mais complexo, com o coman- 
do oui. A rotina apresentada a seguir 
produz um som de disparo laser, usan- 
do a combinação de um som cuja fre- 
quência é crescente com um som de 
frequência decrescente. 

10 REM org 64600 

20 REM ld a. (23634) 

30 ílEM rrca 

40 REM rrca 

50 REM rrca 

60 REM ld b,0 

70 REM loop puah bc 

80 REM xor 510 

90 REM out 254, a 
100 REM puah af 
110 REM xor a 
120 REM sub b 
130 REM ld b.a 
140 REM pop af 
150 REM pausea nop 
160 REM djnz pauaea 
170 REM xor S10 
180 REM out 254. a 
190 REM pop bc 
200 REM push bc 
210 REM pauaeb nop 
220 REM djnz pauaeb 
230 REM pop bc 
240 REM djnz loop 
250 REM ret 

As quatro primeiras instruções são 
exatamente iguais às do outro progra- 
ma de som. Têm a função de preservar 
a moldura. 
■ As duas seguintes — que estabelecem 
I os valores iniciais de dois contadores, 



um no registro B e outro colocado na 
pilha a partir do registro B — também 
são iguais. O mesmo ocorre com as ou- 
tras duas, que usam "ou exclusivo" en- 
tre os bits quatro e dezesseis e mandam 
o resultado pela porta 254. Desta vez, 
porém, xor é seguido de $10 — 16, em 
hex. Isto produz o som. 

O push guarda o conteúdo do acu- 
mulador na pilha, junto com o registro 
F. Os registros só podem ser guardados 
em pares . A instrução xor a limpa o acu- 
mulador e sub b subtrai B de 0 — con- 
teúdo do acumulador. Na prática, 
porém, inverte-se o conteúdo de B. 
Quando B é 255, obtemos 1 como resul- 
tado da subtração; quando B é 1 , obte- 
mos como resultado 255. 

O ld b,a coloca o resultado da sub- 
tração de volta em B. O acumulador que 
estava na pilha é novamente recupera- 
do, retornando ao acumulador. 

Temos, então, um laço de pausa 
cuja duração depende do conteúdo de B 
— lembre-se de que djiiz decrementa o 
registro B e verifica se o resultado è ze- 
ro. O valor do bit quatro é invertido e 
enviado ao alto-falante. 

O pop recupera da piiha o valor ini- 
cial de B. Como este valor será utiliza- 
do mais adiante, é guardado novamente 
na pilha, depois de ter sido copiado em 
B. Agora ele se encontra, portanto, na 
pilha e em B. 

A próxima pausa depende desse va- 
lor inicial de B, que mais uma vez é re- 
cuperado da pilha. O mesmo ocorre 
sempre que se executa uma instrução 
djnz, para restaurar o valor de B. Quan- 
do o processador sai de um laço djnz, 
o valor de B tem que ser zero. 

O valor inicial de B é, então, dimi- 
nuído. Não sendo zero, o processador 
retorna ao início do laço e executa-o no- 
vamente, com um valor menor que o de 
B. Na passagem 256, quando B se tor- 
na 0, o processador pa,ssa à instrução ret 
e retorna ao BASIC. 

Você verá que o laço pausea é execu- 
tado 256 vezes na primeira passagem, 
uma vez na segunda e uma vez mais a 
cada nova passagem. O laço pauseb, por 
outro lado, é feito 256 vezes na primei- 
ra passagem e uma vez a menos a cada 
nova volta. 



ADIÇÃO DE SONS NATURAIS 



Os sons que os computadores produ- 
zem parecem artificiais porque são mui- 
to puros. Instrumentos musicais e outros 
aparelhos que produzem sons tendem a 
ser bastante irregulares na maneira de 
produzi-los. Mas é justamente esta carac- 
terística de acaso que lhes assegura efei- 




FAÇA MÚSICA NO SPECTRUM 

O código out permite a produção de 
música em seu micro. Mas esteja pre- 
parado: não é fácil executar os ajustes 
necessários para obter a frequência 
correta. 

O uso de uma rotina com dois parâ- 
metros — relacionados à frequência e 
à duração — simplifica bastante a ta- 
refa. E esta rotina existe na ROM. Cha- 
mada de rotina BEEP, começa no en- 
dereço 03f8. Existe ainda uma rotina 
adicional chamada BEEPER. que utiliza 
o valor em HL, para controlar a frequên- 
cia, e o valor em DE, para controlar a 
duração. 

O valor que se deve usar em HL é 
dado por 437500/f-301 125, onde f é 
a frequência da nota. Multiplicando a 
frequência pela duração desejada, 
obtém-se o valor a ser colocado em DE. 
Com este método, nào é preciso obser- 
var o limite usual de 1 0 segundos para 
a duração da nota. 

Se você chamar a rotina BEEP dtre- 
tamente, deverá colocar na pilha os 
mesmos valores de duração e frequên- 
cia que são empregados num coman- 
do SOUND 



tos tão agradáveis. Um instrumento nào 
toca apenas o som fundamental, mas 
também os harmónicos. 

Existe uma maneira de introduzir um 
elemento de acaso nos sons produzidos 
pelo Spectrum. A RAM, entre 16384 e 
32767, fica em circuitos integrados que 
são geralmente interrompidos por um 
dispositivo que cuida da tela de TV e 
executa ainda outras tarefas. 

Normalmente, essas interrupções são 
quase imperceptíveis, de tão curtas — 
em geral duram uns poucos microsse- 
gundos. Mas a relação entre os sons e 
o tempo é tão estreita que o ouvido po- 
de captar variações mínimas. Assim, co- 
locando o programa gerador de sons 
nessa área da memória, eles soarão bem 
mais naturais — e terão uma duração 
um pouco maior. 

No nosso caso, a experiência não po- 
derá ser feita, pois nosso Assembler ocu- 
pa essa área da memória. Contudo, se 
não estiver usando uma impressora, ten- 
te montar o programa em seu buffer, ca- 
so ele caiba ali. O buffer vai de 23296 
a 23532 — assim, use 23296 como ori- 
gem. Não e preciso proteger esse espa- 
ço, pois o buffer está a salvo de ser 
apagado pelo BASIC. 
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SUA LIGAÇÃO 
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CONEXÃO COM 0 MUNDO 



COMPRAS EM CASA 



TELETEXTO E VIDEOTEXTO 



LIGAÇÃO EM REDE 



TIPOS DE MODEM 



Se você deseja explorar plenamente o 
potencial de seu micro, faça-o 
comunicar-se com outros computadores, 
utilizando o modem como elo 
de ligação entre ele e o mundo. 



Dos computadores pode-se dizer que, 
como homens, nenhum deles é uma 
ilha... Pois até mesmo os mais modes- 
tos dentre eles podem ser conectados ao 
sistema telefónico e, em consequência, 
a alguns dos mais poderosos "cérebros 
eletrônicos" e bancos de dados da Ter- 
ra. Ligado desse modo, um micro nos 
proporciona acesso a quantidades ines- 
gotáveis de informação. 

Um computador, um dispositivo de 
ligação chamado modem, um telefone 
e um software muito simples: eis tudo 
o que é preciso para realizar esse mila- 
gre da informática. 

A comunicação entre computadores 
se dá de três modos básicos: por meio 
de linhas telefónicas ou de ondas de rá- 
dio (ou ambos, em alguns casos); atra- 
vés da co-participaçao no mesmo siste- 
ma de armazenamento de informação 
(que, na prática, significa co-participa- 
ção na mesma unidade de disco); ou 
com a ajuda de um simples cabo que co- 
necte dois aparelhos — neste caso, ca- 
da um deles pode compartilhar o pro- 
cessador e a memória do outro. 



Dessas opções, a primeira é sem dú- 
vida a mais excitante, pois representa 
um passo à frente para quem é entusias- 
ta dos computadores pessoais, 

Atualmente, já é possível obter, a 
preços razoáveis, equipamento e softwa- 
re que farão com que o seu aparelho se- 
ja capaz de conversar com outro em 
qualquer lugar do globo, usando as mes- 
mas linhas empregadas peios sistemas de 
telecomunicações. 

O sistema telefónico proporciona 
acesso a uma imensa faixa de facilida- 
des, como o intercâmbio de software e 
a ampliação dos serviços de notícias e 
informações, que hoje custam muito ca- 



ro, quando realizados pelos meios con- 
vencionais (tele-trabalho). 

Com um computador e um modem, 
você pode consultar listas de compras, 
examinar ilustrações de produtos para 
venda, comparar preços, pagar contas 
instantaneamente, verificar de modo au- 
tomático como andam as suas finanças, 
e fazer quase tudo o que quiser, sem sair 
de casa. 

Para trabalhar juntos, uma secretá- 
ria e seu chefe, por exemplo, não preci- 
sam estar na mesma sala, no mesmo edi- 
fício ou na mesma cidade. Basta para is- 
so que usem formas de comunicação por 
computador. 

Assim, tendo esboçado uma carta no 
micro, o chefe pode enviar todo o ras- 
cunho, com erros ortográficos e de gra- 
mática, à sua secretária, que o corrigirá, 
o formatará de modo a torná-lo apre- 
sentável e o enviará. 



Diversos sistemas telemctricos, como 
> videotexto e o Cirandão, permitem 



que o usuário estabeleça a sua própria 
"caixa postal". Assim, se eie quiser en- 
trar em contato com outro usuário, po- 
de "escrever" uma carta no processa- 
dor de textos do micro, e guardá-la na 
"caixa postal" do destinatário. Este úl- 
timo, por sua vez, poderá copiá-la em 
seu microcomputador, a fim de lê-la 
mais tarde. Certamente, tanto quem en- 
via como quem recebe a carta deve ter 
um computador ligado à rede. Um Cor- 
reio Eletrônico desse tipo constitui uma 
poderosa ferramenta, e representa um 
grande progresso em relação aos bo- 
letins. 



Muitas das aplicações mais interes- 
santes para a comunicação entre com- 
putadores envolvem pequenos aparelhos 
com acesso a um grande "cérebro ele- 
trônico". Entretanto, outras combina- 
ções são possíveis. 

Uma vida solitária? Talvez, mas não 
necessariamente. Também é possível 
contatar outras pessoas com os mesmos 
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interessses em computadores. Em alguns 
casos, independentemente do lugar do 
mundo em que estejam essas pessoas, o 
custo do contato com elas pode ser tão 
pequeno quanto uma simples ligação te- 
lefónica local. Você pode chamar aqui- 
lo que é conhecido por boletim (bulle- 
tin boards, em inglês, comumente tra- 
duzido para "quadro de avisos") para 
ler mensagens enviadas por outras pes- 
soas e também deixar suas próprias 
mensagens. Existem boletins programa- 
dos para vários propósitos. 

Se você decidisse abandonar o con- 
forto de seu lar e aventurar-se a sair pelo 
mundo afora, poderia deixar registrado 
quase tudo no computador — despesas 
com táxis e hotéis, dias de férias, entra- 
das para teatro, passagens de avião, e 
muito mais. 

Mesmo que surjam problemas nas li- 
gações de computadores (causados so- 
bretudo por falhas no estabelecimento 
de padrões comuns), quase sempre se dá 
um jeito; muitos desses trabalhos pio- 
neiros são realizados por amadores e es- 
tudantes entusiasmados e seus professo- 
res em universidades e outros estabele- 
cimentos de ensino superior. 

O crescimento do interesse em 
meações entre computadores e as indi- 
cações de que esta será a área de explo- 
ração que mais se desenvolverá no fu- 



turo refletem-se claramente no fato de 
que mais e mais boletins computadori- 
zados estão sendo criados em todo o 
mundo (inclusive no Brasil). 

Embora possam ser feitos pelo pró- 
prio usuário, os boletins são, em sua 
maioria, montados por empresas, geral- 
mente especializadas no ramo da eletrõ- 
nica. Alguns desses "boletins empresa- 
riais" reservam um espaço para os usuá- 
rios comuns, enquanto outros ocupam 
a área do quadro apenas para publicar 
seus serviços e benefícios. Ultimamen- 
te, porém, o setor de maior crescimen- 
to tem sido o dos boletins criados por 
amadores e universitários. 



Ainda há quem imagine que essa apli- 
cação da comunicação entre computa- 
dores pertence ao domínio da ficção 
científica, e que será necessário esperar 
muitos anos, até que seja possível reali- 
zar, por exemplo, compras por intermé- 



dio de um terminal de vídeo em casa. 
Entretanto, tudo isso já é possível atual- 
mente. Nos países mais desenvolvidos, 
muitas pessoas utilizam esse sistema, e 
estão tão familiarizadas com ele, que as 
telecompras já fazem parte de sua roti- 
na diária. No Brasil, o sistema videotex- 
to oferece essa possibilidade em várias 
capitais. 

Nos lugares em que isso já acontece, 
você pode usar o seu computador para 
ter acesso instantâneo a informações so- 
bre produtos, ofertas especiais e preços 
em um grande número de lojas. Ou po- 
de pedir serviços e pagá-los com a sim- 
ples digitação de algumas teclas. O "tra- 
balho" é feito por um computador cen- 
tral. Ele contém toda a informação e 
também faz a transferência eletrônica de 
dinheiro da conta do cliente no banco 
para a conta da loja. 



TELETEXTO E VIDEOTEXTO 



Igualmente crescente é o número de 
serviços de teletexto e videotexto, aos 
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6 PERIFÉRICOS 6 



quais é possível conectar até mesmo pe- 
quenos micros domésticos. O serviço de 
teletexto — que ainda não existe no Bra- 
sil — é o que sai mais barato para o 
usuário, pois não é interativo. Desenvol- 
vido na Inglaterra, esse serviço segue 
dois padrões adotados em vários países: 
o ORACLE (executado pelas compa- 
nhias de televisão independentes) e o 
CEEFAX (executado pela BBC). Com 
o teletexto, o usuário utiliza um televi- 
sor adaptado para receber em casa mi- 
lhares de páginas de informação (textos 
e figuras, por exemplo), que são mos- 
tradas no vídeo. Não é necessário o te- 
lefone, pois as páginas são enviadas por 
radiodifusão, no intervalo entre uma te- 
la e outra da programação normal de 
TV. 

Enviar e carregar programas são duas 
funções de grande interesse em comu- 
nicação de computadores; elas podem 



ser desempenhadas tanto no videotexto 
quanto no teletexto. Programas podem 
ser transmitidos também por TV ou por 
rádio. Porém, os programas do teletex- 
to têm uma vantagem: eles podem ser 
carregados diretamente no micro, en- 
quanto os programas obtidos por meio 
do rádio precisam ser primeiramente 
gravados em fita para, só então, serem 
carregados pelo modo normal. 

A única desvantagem do teletexto é 
que, como ele usa sinais de radiodifu- 
são, a comunicação se dá apenas em um 
sentido. Já o videotexto (que emprega 
uma linha telefónica para estabelecer co- 
municação) é bidirecional. Isto signifi- 
ca que a sua máquina pode "conversar" 
com o computador central do videotex- 
to. Na realidade, a rede de videotexto 
pode incluir vários computadores regio- 
nais interligados, todos oferecendo ba- 
sicamente o mesmo serviço. Essa mul- 
tiplicidade de computadores ajuda a 
manter baixo o preço do sistema para 
o usuário, que já paga taxas altas só pa- 
ra usar o telefone. Quanto mais perto 
o computador estiver do assinante, 
barata será a ligação. 

Outro serviço público de telecomuni- 
cação entre computadores, bem mais di- 
ferenciado e sofisticado que o videotexto 
e o teletexto, é constituído pelas redes 
de microcomputadores, como por exem- 
plo o sistema Cirandão, da empresa es- 
tatal Embraiel. Esse sistema proporcio- 
na aos proprietários de micros a possi- 



bilidade de conversarem entre si, empre- 
gando uma rede de correio eletrònico 
("caixas postais"). Além disso, ele ofe- 
rece também muitos outros serviços de 
"boletim computadorizado", teleconfe- 
rência, consulta a bancos de dados, e re- 
cepção e transmissão de programas de 
computador. 

Uma desvantagem de sistemas com 
muitos usuários e que utilizam a rede te- 
lefónica normal, como o Cirandão, é a 
sua baixa velocidade de transmissão. Is- 
so acontece porque as redes telefónicas 
brasileiras não suportam um ritmo mui- 
to intenso de transmissão, sem degrada- 
ção do sinal. Por isso, usuários profis- 
sionais (bancos, por exemplo) são obri- 
gados a recorrer a redes especiais de 
transmissão em alta velocidade, como é 
o caso de outro serviço da Embratel, o 
Transdata. 

O Transdata permite enviar e receber 
informações em uma faixa maior de ve- 
locidade, o que significa também que 
computadores de diferentes tamanhos e 
velocidades podem compartilhar os ser- 
viços. Estes, porém, são muito mais ca- 
ros do que os cobrados pelo Cirandão 
e pelo videotexto. 

O acesso a bancos de dados e redes 
de computadores situados em outros 
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países é possível por intermédio do ser- 
viço Interdata da Embratel. 



CORREIO ELETRÔN1C0 



Uma rede pode interligar um compu- 
tador principal, microcomputadores e 
qualquer espécie de periféricos. O jor- 
nal norte-americano New York Times, 
por exemplo, usa os três tipos de com- 
putador em um dos mais sofisticados 
sistemas de produção de informações. 
Em sistemas dessa envergadura, muitas 
pessoas que trabalham em escritório po- 
dem usar o seu próprio terminal ligado 
a um minicomputador, enquanto outro 
terminal no escritório se comunica com 
um computador principal. 

Desse modo, o trabalho do dia-a-dia, 
no caso de uma redação de jornal, po- 
de ser preenchido por um simples mini- 
computador, enquanto o computador 
central é reservado para o uso da admi- 
nistração da empresa e para os bancos 
de dados principais. 

Por outro lado, os jornalistas que es- 
tiverem trabalhando fora da redação po- 
dem valer-se de um microcomputador 
com um modem para ter acesso aos ban- 
cos de dados, visando obter informações 
para suas reportagens. Estas podem ser 
igualmente enviadas à redação por meio 
de um computador e um modem. 

Em muitos países, é comum o fato de 
jornalistas ("cobrindo", por exemplo, 
uma partida de futebol ou uma corrida 
de Fórmula-1) utilizarem diretamente 
um teclado e um vídeo, em lugar de uma 
máquina de escrever. Ao serem aperta- 
das algumas teclas, o resumo e o resul- 
tado do jogo são instantaneamente en- 
viados ao computador da redação. 

Como os fabricantes de computado- 
res ainda não se ajustaram à necessida- 
de de estabelecer padrões comuns inter- 
nacionais, a comunicação entre compu- 
tadores não é, por enquanto, tão fluida 
como se poderia desejar. Entretanto, os 
problemas que concorrem para isso es- 
tão sendo solucionados e, aos poucos, 
os computadores vão se tornando com- 
patíveis entre si. Isso tem acontecido 
principalmente no caso da comunicação 
entre computadores por intermédio de 
tinhas telefónicas. 



SEGURANÇA 



O fato de computadores diferentes 
poderem se comunicar uns com os ou- 
tros através de linhas telefónicas agra- 
da muitos possuidores de micros, mas 
assusta universidades e grandes empre- 
sas, bancos e agências do governo. O 



problema é que tais instituições também 
utilizam esse tipo de comunicação. Isto 
as torna vulneráveis pois, apesar das me- 
didas de segurança adotadas pelas au- 
toridades para garantir a confidenciali- 
dade das informações armazenadas e 
transmitidas, seus computadores são, 
vez por outra, "invadidos" por usuários 
não autorizados. 

Esse é o tema do filme Jogos de 
Guerra, que foi objeto de muita contro- 
vérsia, especialmente nos Estados Uni- 
dos, onde a fraude em sistemas telemé- 
tricos tem causado prejuízos de milhões 
de dólares. 

Os crimes elcirônicos são favorecidos 
pela relativa facilidade com que se pro- 
cessa a comunicação entre computado- 
res. Em vez da violência física, os cri- 
minosos utilizam, nesse caso, métodos 
bem mais sutis e sofisticados. Um dos 
maiores problemas com que se defron- 
tam as instituições fraudadas tem sido, 
alias, saber se estão realmente sendo 
roubadas. Como muitos serviços são fei- 
tos por meio de linhas telefónicas, a in- 
vestigação do crime eletrônico vai se tor- 
nando cada vez mais difícil, particular- 
mente quando o próprio criminoso po- 
de efetuar a mudança dos registros re- 
lativos ao crime. 



OUTROS MEIOS DE COMUNICAÇÃO 



Os telefones não são o único meio de 
comunicação entre computadores. On- 
das de rádio também podem ser usadas, 
desde que haja dois computadores co- 
nectados a equipamentos capazes de 
transmiti-las e recebê-las. 

As fibras ópticas são atualmente o 
meio pelo qual a comunicação entre 
computadores se processa de modo mais 
rápido. Nesse caso, a informação é co- 
dificada em impulsos de luz e transmi-. 
tida por meio de finos fios de vidro. Es- 
sa nova tecnologia parece ser mais efi- 
ciente do que qualquer outro método co- 
nhecido: eia faz com que a informação 
viaje à velocidade da luz. As comunica- 
ções por fibra óptica já passaram da fase 
experimental, e estão sendo usadas em 
diversos países, inclusive no Brasil. 

Os raios infravermelhos também vêm 
sendo testados como meio de comuni- 
cação entre micros numa mesma sala. 
A vantagem principal é que se elimina 
o "cipoal" de fios que acompanha toda 
grande instalação de computadores. 



TORRE DE BABEL 



Não importa o meio de comunicação 
sempre existirá problema de escolhido: 



compatibilidade. Isso acontece porque 
um micro só pode se comunicar com ou- 
tro micro (ou com outro dispositivo pe- 
riférico) por intermédio da interface cor- 
reia. Sem a interligação correta de ca- 
bos e soquetes e um código que as duas 
máquinas entendam, a comunicação 
torna-se impossível. 

A linha telefónica é usada para car- 
regar informações de um computador 
para o outro através de longas distân- 
cias. Entretanto, ela aceita apenas sinais 
seriais. 

Isso não significa que os computado- 
res com interfaces paralelas não sejam 
capazes de enviar sinais pela linha tele- 
fónica. Existem circuitos eletrônicos e 
programas disponíveis que tornaram 
possível essa emissão. Tais dispositivos, 
porém, podem sair mais caros do que o 
próprio computador. 

Um dos problemas com o uso de te- 
lefone para comunicação entre compu- 
tadores é que estes carregam informa- 
ções em impulsos ou pulsos elétricos dis- 
cretos e separados. Mas os telefones 
atuais são projetados para transmitir a 
voz humana — que é um sinal analógi- 
co, continuo e variável. Assim, o dado 
de um computador precisa ser conver- 
tido em um sinal similar. 



MODEMS 



O equipamento usado para conver- 
ter os dados do computador em sinais 
que possam ser transmitidos através das 
linhas telefónicas, e vice-versa, é o mo- 
dem. A palavra é uma abreviação de 
MOdulador/DEModulador, que é a des- 
crição da função do modem. 

Existem dois tipos de modem, o aco- 
plador acústico e o modem de conexão 
direta. Ambos variam de formas e ta- 
manhos, mas estão geralmente contidos 
em uma caixa. O acoplador acústico tem 
duas alças de borracha para acomodar 
o bocal do aparelho telefónico. 

O acoplador acústico é conectado ao 
micro e transforma seus sinais em tons 
que podem ser enviados pela linha tele- 
fónica. Ele também converte tons de en- 
trada vindos de outro computador em 
informações digitais que o computador 
receptor pode entender. 

Já o modem de conexão direta codi- 
fica (ou modula) o dado do computa- 
dor diretamente em sinais elétricos e de- 
codifica (ou demodula) a informação de 
entrada em bits seriais entendidos pelo 
computador. Esses modems podem 
transmitir informações a velocidades 
maiores que os acopladores acústicos e 
são menos propensos a erros. 



Illlllllll 
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■ 


AS POSIÇÕES DE IMPRESSÃO 


■ 


MOVIMENTO BLOCO POR BLOCO 


■ 


COMO ABRIR CANAIS 


■ 


USE TABELAS DE REFERÊNCIA 


■ 


COMO MODIFICAR APONTADORES 



incluído nos programas de animação 
gráfica para os micros 
das linhas Spectrum e TRS-Color que 
apresentamos aqui, o gerador 
gráfico descomplicará a sua vida. 



Em artigo anterior da seção Código 
de Máquina, instruímos os usuários do 
TK-90X e do TRS-Color a inserirem da- 
dos para a montagem de um quadricu- 
lado que poderia ser usado na criação 
de caracteres gráficos (UDG). Nesse ar- 
tigo, apresentamos um pequeno progra- 
ma em linguagem de máquina no qual 
foram inseridos alguns números cujo 
significado — afirmávamos — não pre- 
cisava ser compreendido naquele 
momento. 

Mas agora, com os conhecimentos 
que você já adquiriu a respeito da lin- 
guagem de máquina, é possível abordar 
o que significam esses números. Para fa- 
cilitar sua compreensão, decodificamos 
os números que estavam em Assembler, 
transformando-os em mnemónicos. 

Os usuários do MSX, do Apple e do 
TK-2000 não precisam se preocupar com 
isso, pois os programas para esses mi- 
cros empregam sprites e figuras móveis 
para criar os caracteres gráficos, não 
exigindo assim rotinas em código de 
máquina. 




org 65200 
jr start 
raode defb 1 
data defb 22 
defb 0 
defb D 
defb 32 
defb 32 
defb 32 
defb 22 
defb 0 
defb 0 
defb 32 
defb 32 
defb 32 
defb 22 
defb 0 
defb 0 
defb 32 
defb 32 
defb 32 



defb 22 
defb 0 
defb 0 
defb 144 
defb 145 
defb 146 
defb 22 
defb 0 
defb 0 
defb 147 
defb 148 
defb 149 
defb 22 
defb 0 
defb 0 
defb 150 
defb 151 
defb 152 
defb 22 
defb 0 
defb 0 
defb 153 
defb 154 



defb 155 
defb 22 
defb 0 
defb 0 
defb 156 
defb 157 
defb 158 
defb 22 
defb D 
defb 0 
defb 159 
defb 160 
defb 161 
start ld a , (mode) 
cp 1 
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ld (ix+13).a 
ld a. (23688) 
ld b.a 
ld a, 33 
sub b 

ld (ix+2),a 
ld (ix+8).a 
ld (ix+14) .a 

push IX 

ld a. 2 
-ali 31601 
pop de 
ld bc.18 
call S203C 
ret 



A primeira instrução faz com que o 
processador passe para o início do pro- 
grama propriamente dito, saltando so- 
bre a longa lista de dados que a segue. 
Evidentemente, poderíamos chamar o 
programa na primeira instrução que 
aparece após a lista de dados; mas, co- 
mo veremos a seguir, é mais fácil 
chamá-lo pelo endereço de origem. 

O primeiro byte de dados, situado lo- 
go depois do rótulo mode, diz ao pro- 
grama que quadro deve ser usado. O 
BASIC dá um POKE 0, 1 ou 2 nessa po- 
sição. O UDG 0 é um quadro vazio que 
serve para limpar a tela: e os quadros 
1 e 2 são caracteres UDG (por exem- 
plo, tanques de guerra, cada um apon- 
tando para uma direção). Se nenhum 
número for especificado, a rotina assu- 
mirá o valor 1 para o quadro. 



OS DADOS DO UDG 



Depois do rótulo DATA, aparecem 
os detalhes de três quadriculados. O 
Spectrum desenha seus UDG na forma 
de cadeias, mas primeiro tem que ser in- 
formado sobre em que lugar colocá-los. 
As instruções para isso também estão 
contidas na cadeia de dados: 22 è o có- 
digo para o AT em BASIC e os dois ze- 
ros são bytes vazios que a rotina utili- 
zará mais tarde para definir a posição 
de impressão. 

As trés séries de trés números 32 for- 
mam o quadro vazio de 9 x 9. O núme- 
ro 32 é o código ASCII para o caracte- 
re de espaço. Cada série de três forma 
uma linha do quadro e deve ser prece- 
dida pelo seu próprio AT e pela posição 
de impressão. Esse é o quadro 0. 
■ O quadro 1 é feito dos UDG de 144 
I a 152. Nos dados, eles vêm em grupos 



de três com um AT e dois bytes livres 
para a posição de print. O quadro 2 é 
feito dos UDG de 153 a 161. 



O ld a, (mode) carrega o número in- 
serido, via POKE, no byte mode do acu- 
mulador, e cp 1 o compara com 1. 

O par de registradores BC é então 
carregado com 18. Na realidade, o nú- 
mero 18 vai para o registrador C, en- 
quanto o B fica vazio. O que interessa 
durante a rotina principal é o valor do 
registrador C; mas o registrador vazio 
B será usado mais tarde, quando cha- 
marmos rotinas da ROM. 

Se o número do mode carregado no 
acumulador for 1, cp 1 ajustará para es- 
se número o indicador de zero. Então, 
jr i, print saltará para a rotina de nome 
print. Lá, o registrador IX é carregado 
com-O endereço do primeiro byte de da- 
dos do UDG e somado com o conteúdo 
do par BC, 18. 

Cada quadro contém dezoito bytes de 
dados: nove para caracteres UDG, três 
para os AT e seis para posições de im- 
pressão. Isso faz o registrador IX pas- 
sar sobre o quadro 0 e ir para o começo 
do quadro 1 . Se o número do mode for 

0, cp 1 ligará o indicador de carry. Em 
seguida, jr c.resel saltará para o rótulo 
reset e carregará C com 0. A instrução 
add ix.bc somará então IX ao endere- 
ço do rótulo data, deixando IX apon- 
tando para o começo do quadro vazio. 

Se o número do mode não for 0 nem 

1, deverá ser 2. Nesse caso, o processa- 
dor vai para a instrução sla c. Esta sig- 
nifica "rotação aritmética para a esquer- 
da" e age sobre o registrador C. Ela mo- 
ve todos os bits uma casa à esquerda, 
multiplicando por 2 o conteúdo do re- 
gistrador. 

Assim, ela duplica o 18 (que vai pa- 
ra 36) e salta para o rótulo print. Quan- 
do BC for somado ao apontador LX, es- 
te último será transferido 36 bytes aci- 
ma na lista de dados, parando na posi- 
ção do começo do quadro 2. 



AS POSIÇÕES DE IMPRESSÃO 



A variável de sistema em 23 689 con- 
tém a posição de impressão vertical. 
Ora, a posição de impressão especifica- 
da pelo BASIC é a do topo do quadro. 
Essa variável conta de I a 24 de baixo 
para cima da tela, e não ao contrário, 
como em BASIC. Portanto, ela deve ser 
transferida para o registrador B; depois, 
24 é carregado em A e o valor de B é 
subtraído dele. 



O apontador IX contém o endereço 
do primeiro byte do quadro que a roti- 
na irá desenhar. Então ld (ix + l>,a car- 
rega a posição vertical de impressão do 
topo do quadro no próximo byte da lis- 
ta de dados (o primeiro 0 que estiver 
vazio). 

A è então incrementado para forne- 
cer a posição vertical de impressão da 
próxima linha de caracteres UDG do 
quadro. Isso é carregado no oitavo byte 
da lista por ld (ix + 7),a. Depois, A é in- 
crementado novamente para a terceira 
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linha e isso é carregado no décimo quar- 
to byte. 

Essa operação carregou as posições 
verticais de impressão nos bytes vazios 
logo após o código do AT, 22. 

As posições horizontais de impressão 
provenientes da variável de sistema 
23 688 são então carregadas no acumu- 
lador. Mais uma vez, essa operação é 
feita de trás para a frente, se comparada 
ao que acontece no BASIC. Portanto, 
a posição horizontal é carregada em B; 
A é carregado com 33 e B é subtraído 



de A para fornecer corretamente a po- 
sição de impressão. 

Como cada linha começa na mesma 
posição horizontal, isso significa que o 
mesmo valor de A pode ser carregado 
em outros espaços vazios na lista de da- 
dos. As instruções adequadas para fa- 
zer isso são Id (ix + 2),a, Id (ix + 8),a e 
Id (ix+ 14), a. 

O apontador IX é então "empurra- 
do" para a pilha, protegido contra uma 
eventual alteração causada pela rotina 
da memória ROM que está prestes a ser 




chamada. A é carregado com 2, e a ro- 
tina de abertura do canal em 1 601 é 
chamada. O 2 no acumulador define o 
canal a ser usado quando o processador 
vai para uma sub-rotina. O canal 1 é a 
linha de edição na parte inferior da te- 
la; o canal 2 é a tela principal; é o 3 a 
impressora. 

O apontador IX que foi guardado na 
pilha é então recuperado no par DE. De- 
pois, BC é carregado com 18, e a rotina 
de impressão de cadeia em 2 032 é cha- 
mada. Essa rotina imprime BC caracte- 
res, começando em DE. Portanto, ela 
imprime os dezoitos caracteres que com- 
põem o quadro, a começar do endereço 
base que está no apontador IX. 

'Feito isto, ret retorna o processador 
para o BASIC. 



0P.G 32000 
LDX 32700 
LDA |3 
STA FCNT 
STA SCNT 
LDA |8 
STA TCNT 
LDA 32250 
BEQ JUMP 
LDU #32300 
DECA 
LDB *72 
HUL 

LEAU D.U 
LDA ,U+ 
STA ,X 
LEAX 32.X 
DEC TCNT 
BNE LOOP 
LDA |8 
STA TCNT 
LEAX -255.X 
DEC FCNT 
BNE LOOP 
LDA 13 
STA FCNT 
LEAX 253.X 
DEC SCNT 
BNE LOOP 
P.TS 
CLUB 
STB .X 
LEAX 32.X 
DEC TCNT 
BNE STLP 
LDA *8 
STA TCNT 
LEAX -255.X 
DEC FCNT 
BNE STLP 
LDA |3 
STA FCNT 
LEAX 253.X 
DEC SCNT 
BNE STLP 
RTS 
RMB 1 
RMB 1 
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O endereço de tela correspondente ao 
canto superior esquerdo do quadricula- 
do é armazenado nas posições de memó- 
ria 32 700 e 32701 pelo programa BA- 
SIC; LDX carrega esse apontador de 
dois bytes no registradorde X dezesseis 
bits. O número 3 é carregado no acu- 
mulador e armazenado nos dois conta- 
dores de nomes FCNT e SCNT. O qua- 
driculado contém 3x3 caracteres. 

Esses contadores aparecem na lista de 
dados no fim do programa. Aqui, o es- 
paço que o contador vai ocupar é reser- 
vado por RMB (reserva byte de memó- 
ria). O número 1 que vem a seguir sig- 
nifica que somente um byte de memó- 
ria deve ser reservado. Assim, RMB 50 
reservaria 50 bytes de memória. 

O terceiro contador, TCNT, é ajus- 
tado para 8. Depois, o conteúdo de 
32 250é carregado em A. O número do 
UDG é armazenado em 32 250; se esse 
número for zero, BEQ JUMP desviará 
o programa para uma rotina que limpa 
a tela naquela área. Caso contrário, o 
processador continuará trabalhando 
com o UDG propriamente dito. 



a posição do canto superior esquerdo do 
bloco na tela gráfica. 

LEAX 32.X soma 32 ao registrador 
X; isso move o apontador para a próxi- 
ma linha (há 32 posições em cada linha). 
O contador TCNT é então decrementa- 
do; se ele não for igual a zero, a instru- 
ção BNE retornará ao endereço loop pa- 
ra trabalhar com o próximo byte do ca- 
ractere. 

O valor inicial de TCNT é 8; por is- 
so, loop deve ser executado oito vezes. 



Precisamos de oito bytes, dispostos uns 
sobre os outros, para formar um carac- 
tere. Podemos chamar TCNT de conta- 
dor de bytes de um caractere. 



ADICIONE OUTRO CARACTERE 



LDA # 8 e STA TCNT retornam o 
valor 8 para o contador TCNT, que já 
está pronto para trabalhar com o pró- 
ximo caractere. 



IMPRIMA 8L0C0S GRÁFICOS 



O lugar da memória onde os UDG fi- 
cam guardados começa na posição 
32 300; esse número é armazenado em 
U para facilitar os cálculos que definem 
onde se inicia o UDG. O primeiro ca- 
ractere começa no princípio dessa área; 
portanto, seu equivalente é 0. Note que, 
no acumulador, o número de caractere 
pedido é decrementado. 

LDB #72 carrega o registrador B 
com 72, e MULtiplica os conteúdos de 
A e B. guardando o resultado em D. Os 
acumuladores A e B são registradores de 
oito bits; D é um registrador de dezes- 
seis bits; por isso, ele não é sobrecarre- 
gado com o resultado. Existem 72 bytes 
em cada gráfico. Cada caractere contém 
oito bytes e há nove caracteres para ca- 
da quadriculado (9 x 8 = 72) . Essa ope- 
ração calcula o fator necessário para se 
achar o endereço inicial do UDG apro- 
priado. 

A instrução LEAU D,U carrega U 
com o valor de D mais U. Em outras pa- 
lavras, ela vai contando ao longo da lista 
até que seja apontado o começo do ca- 
ractere pedido. 

LDA ,U + carrega o acumulador 
com o conteúdo daquela posição de me- 
mória; depois, incrementa o registrador 
U e prepara-se para trabalhar com o 
próximo. STA ,X armazena o byte do 
caractere obtido da lista de gráficos na 

■ posição de memória apontada por X. 

I Lembremos que o registrador X contém 
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Em seguida, a instrução LEAX -255.X 
move o apontador X para o início do ca- 
ractere à direita. 

Devemos lembrar ainda que o regis- 
trador X contém o apontador de tela, 
e foi oito vezes incrementado de 32 pa- 
ra imprimir totalmente o caractere (32 
x 8= 256). 

O contador FTNT é decrementado de 
modo a percorrer toda a matriz forma- 
da por nove caracteres (ou seja, três de 
cada lado). Quando o resultado do de- 



crementado for diferente de 0 (zero), o 
processador voltará para loop e traba- 
lhará com o primeiro byte do caractere 
seguinte, 

Se o resultado for 0 (zero), o proces- 
sador continuará pelo programa. 



COMO PERCORRER 0 QUADRICULADO 



O contador FTNT é então reajusta- 
do para 3 e o apontador X, adiantado 




253 posições. Lembre que, anterior- 
mente, ele havia sido adiantado 32 po- 
sições, o que fez com que o apontador 
fosse para a posição de tela diretamen- 
te abaixo do caractere que acabara de 
ser impresso. Em seguida, ele foi atra- 
sado em 255, o que o deixou na posição 
de tela imediatamente à direita do topo 
do último caractere. 

Se desenharmos um pequeno quadri- 
culado mostrando os caracteres e obser- 
varmos as posições relativas das loca- 
ções de tela, veremos que o registrador 
X foi adiantado em 32 posições. Ele 
aponta agora a posição de tela direta- 
mente abaixo do último caractere im- 
presso e está duas locações à direita do 
lugar em que deveria estar o primeiro 
byte do primeiro caractere na segunda 
fileira. 

Portanto, devemos subtrair 2 do 
apontador X, a fim de movê-lo para a 
posição correia. 

Mas, como o programa já havia sub- 
traído 255, basta somar 253 que iremos 
para o lugar certo. 

O contador SCNT é decrementado; 
ele conta as três linhas de caracteres que 
formam o gráfico inteiro. Quando o re- 
sultado do decremento for diferente de 
0 (zero), o BNE levará o processador de 
volta para trabalhar com a linha se- 
guinte. 

Todavia, se o resultado for 0 (zero), 
isso significa que o gráfico foi impresso 
totalmente; nesse caso, RTS levará o 
processador de volta para o programa 
BASIC. 

Siga atentamente as instruções, que 
o processo acabará se tornando claro e 
compreensível. 



Quando o número do bloco a ser im- 
presso na tela for igual a zero, a rotina 
simplesmente limpará a área da tela que 
está sendo acessada. O modo pelo qual 
se limpa a tela é praticamente o mesmo 
peto qual se imprime nela. A diferença 
entre eles é que a rotina não precisa con- 
sultar a lista de caracteres, mas somen- 
te imprimir o código 0, ou seja, nada. 

Cl, RB ajusta o registrador B para 0. 
O 0 é então armazenado nas posições de 
tela apontadas pelo registrador X. Se 
você quiser se movimentar pelo quadri- 
culado, deve atualizar repetidamente o 
registrador X, da mesma maneira que 
na rotina de impressão; só que, desta 
vez, o 0 em B é armazenado em cada po- 
sição. Uma vez mais, o RTS retornará 
o processador ao BASIC para rodar o ■ 
resto do programa. 
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BLOCOS GRÁFICOS (3) 



Não se trata de mais uma fábula de 
Esopo ou de La Fontaine: aqui, o 
macaco e a cobra se reúnem na floresta 
para nos ensinar os segredos 
do trabalho com blocos gráficos. 



Nos artigos anteriores, aprendemos 
a criar um grande número de blocos grá- 
ficos e começamos a trabalhar com gru- 
pos de caracteres para fazer um cenário 
de floresta. 

O programa que faz o desenho no úl- 
timo artigo está dividido em partes (com 
exceção do Apple e do TK-2000, para 
os quais publicamos apenas o banco de 
blocos a ser digitado por intermédio do 
monitor). Cada seção cuida de um seg- 
mento (ou figtira) do desenho — croco- 
dilo, elefante, árvores, e assim por dian- 
te. A seção deste artigo acrescenta uma 
cobra e um macaco, além de concluir o 
fundo do quadro. Tanto no caso do Ap- 
ple como no do TK-2000, apresentamos 
o programa completo. 

Carregue agora a primeira parte do 
programa para poder digitar a continua- 
ção. Os usuários do Apple e do TK-2000 
devem antes carregar o banco de blocos 
gravado no artigo anterior por intermé- 
dio do monitor. 



140 POKE 23676,254 

150 FOR n-USR "a" TO USB "r"+7 

! READ a: POKE n.a: NEXT n 

160 POKE 23676,253 

170 FOR n-USR "a" TO USR "j" + 7 

: READ a: POKE n.a: HEXT n 

190 POKE 23676,252 

200 FOR n-USR "a" TO USR "u"+7 

: READ a: POKE n,a: N EXT n 

210 POKE 23676,251 

220 FOR n-USR "a" TO USR "u"+7 

: READ a: POKE n.a: NEXT n 

230 POKE 23676,250 

240 FOR n-USR "a" TO USR "g" + 7 

: READ a: POKE n.a: NEXT n 

510 INK 1 

520 POKE 23676,254 
530 LET z-144: FOR n-2 TO 7: 
FOR m-16 TO 18: PRINT AT m,n; 
CHRS z: LET z=z+l : NEXT m: 
NEXT n 

540 POKE 23676,253 

550 LET z-144: FOR n-8 TO 12: 

FOR m-17 TO IS: PRINT AT m.n; 

CHRS z: LET z-2+1 : NEXT m: 

NEXT n 

610 INK 0 

620 POKE 23676,252 
630 PRINT AT 0,30;CHRS 144;AT 
1.24:CHRS 145;CHR3 146;AT 1.28 
;CHRS 147;CHRS 14B 



640 PRINT AT 2,23;CHRS 149: 
CHRS 150;CHRS 151;CHRS 32;CHRS 
152;CHR$ 153 

650 PRINT AT 3,23:CHRS 154; 
CHRS 155;CHR$ 32;CHRS 32;CHRS 
156;CHRS 157;CHRS 158 
660 PRINT AT 4, 24; CHRS 159; 
CHRS 160;CHRS 32;CHRS 161;CHRS 
162:CHRS 163;CHRS 164 
670 POKE 23676.251 
680 PRINT AT 5,24;: FOR n-144 
TO 151: PRINT CHRS n;: NEXT n 
690 PRINT AT 6.24;CHRS 152; 
CHRS 153;CHRS 153;CHRS 153; 
CHRS 153;CHRS 154;CHRS 155; 
CHRS 156 

700 PRINT AT 7,23;CHRS 157; 
CHRS 158;CHRS 159;CHRS 32;CHRS 
32;CHRS 160;CHRS 161;CHRS 162; 
AT 8.22;CHRS 163;CHRS 164; 
710 POKE 23676.250 
720 PRINT CHRS 144;CHRS 145; 
CHRS 32;CHRS 32;CHRS 146;CHRS 
147;AT 9.24;CHRS 146;CHRS 149; 
AT 10,24;CHRS 150 
855 INK 6 

860 FOR n=0 TO 2*PI STEP .05: 
PLOT 70.150: DRAW SIN n*12 , 
COS n*12: NEXT n 
870 FOR n=0 TO 2*PI STEP PI/4: 
PLOT 70,150: DRAW COS n*20,SIN 
n*20: NEXT n 
970 INK 0 



fffi 



0 . 48, 148, 53 .49, 148 
3170 DATA 54,50,148.80,51,148, 
1,52.148.82,53,148 
3180 DATA 84,54,148,85,55.148. 
12,56,148,113,57,148 
3190 DATA 116,58.148.117,59.14 
,118.60 , 148 , 145 ,61 . 148 
3200 DATA 146.62.148,148.63 
.149,64,148.150,65,148 
3210 DATA 151.66,148,177.67 
,176,68,148,179,69,148 
3220 DATA 180.70,148,181.71.148 
,182,72, 148,183, 73, 14B 
3230 DATA 184,74.148,209.75.148 
,210, 76, 148, 211, 76, 14B 
3240 DATA 212,76.148.213,76,148 
,214,77.148,215,78,148,216.79.1 
48 

3250 DATA 240.80.148,241,81.148 
.242,82,148,245,83.148 
3260 DATA 246,84,148.247.85.148 
, 27] ,86.146,272,87, 14B 
3270 DATA 273.88,146,274.89,148 
,277,90,148,278.91,148,305,92 
48,306.93.146.337,94.148 
3280 DATA 500,95.226,501,96,226' 
,502,97,226,503,98,226 
J290 DATA 532.99,226,533,100.22 
6,5 34.101,226.535.102,226 
3300 DATA 536,103,226,565,104,2 
26.566.105.226,567,106,226,568, 
107.226 




10 FOR 1=0 TO 963 

150 CIRCLE (50,30) ,25. 11:PAINT 

(50,30) ,11 

160 DRAW "BM50, 30C1 1NU30NE60NRB 

4NF60ND84NG60NLB4NH30" 

200 FOR 1-1 TO 131 

3090 DATA 641,18,210.673.19,210 

.705.20,210,642,21,210 

3100 DATA 674,22.210.706,23,210 

,643,24,210,675,25,210 

3110 DATA 707,26,210,644,27,210 

,676,28,210.708,29,210 

3115 REM APAGAR 

3120 DATA 645,30,210,677,31,210 

.709,32,210,646,33,210 

3130 DATA 678,34,210.710.35.210 

.679. 36,210 

3135 REM APAGAR 

3140 DATA 711.37,210,680.38,210 

.712.39.210.681,40.210 

3150 DATA 713,41,210,682.42,210 

,714,43,210,683,44,210,715,45,2 

10 

3160 DATA 23,46,148.49,47,148,5 
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LINHAS DATA QUE COMPLETAM 
" 0 CENÁRIO DA FLORESTA 


■ 
■ 


COMO COMPLETAR 0 FUNDO 
SUGESTÕES PARA ANIMAÇÃO 


■ 


UM MACACO E UMA COBRA 


■ 


COMO GUARDAR 0 BANCO 


■ 


0 PROGRAMA COMPLETO NO 




DE BLOCOS 




APPLE E NO TK-2000 


■ 


0 SOL EM ALTA RESOLUÇÃO 




. 374 

3330 

.439 

3340 

157 

3350 

,329 

3360 

,392 

3370 



DATA -32,-4,36,75,80,147 
DATA 342.108,36,343,109.36 
110,36,375,111,36 
DATA 406,112,36,407,113.36 
114.96,471,114,96 
DATA -44.-20,-15.60,84,96, 
163 

DATA 327,115,36,328,116,36 
,117.36,330,116.36 
DATA 360,119,96.361,120.96 
121,96,424,121,96 
DATA 456,122,96 



1400 REM COBRA 

1410 DATA 0,0,0,0.0.0,3,14.31.3 
1,63,67.65,254,254.225,71,63,0, 
0,0,0,0,0,0 

1420 DATA O, 0.0, O, 255, 12, 2B. 28, 
28.254.143.1.0,4,248.208,224 
1430 DATA 0.0,0,0,0.0,0,0,0,0,0 
,128,240.56 

1440 DATA 52,99.225.225.225,96, 
47,31.14.6,2.1,0.0,0.0,0,0,0,0, 
3,5,63,127 

1450 DATA 255,225,240.248,252,2 
55,255.126,60,28,124,247,247.11 
5, 31,1.0,0,0.0 

1460 DATA 255,191,159.143.199,1 

94.127.64,128.128.64.63 

1470 DATA 48,112.248.249,253.25 

5,189.255.0.0,0,0,192,252,190.6 

3,63,24,240 

1480 DATA 9,5,7,5,249,67,243,25 

1,255,252,238,239,255 

1490 DATA 192,224,208,223,224.1 

29,193, 227.243.247. 255,248, 240, 

224,192 

1500 DATA 0,0,0,0,255,129.195,1 
99,199 

1510 DATA 239,239,255.0,0,0,0,0 
.0,0.0,128,248.31,140,158,191,1 
91 ,255,0.0,0,0 

1520 DATA 0.0,0.1.15,62.206,30, 
61.121,243,247,247.63,15,3,0 
1530 DATA 30.127,191,95.93,61,2 
50,240.194,252,194,192,192,224, 
224 ,240 

1540 REM MACACO 

1550 DATA 1,2,4,8.16,32,64.128, 
0,0,0,3,31,63,127.252,0,0.0,224 
.248,252,252 

1560 DATA 62.3,15,15.15,15,14,1 
4,12 

1570 DATA 3,142,240,192,128.0,0 
,0,1,1,3,3,3,3,3,3,248,240,224. 
224.192 

1580 DATA 192,192,192,30,14.110 
,76,56,0.0,0,0,0,0,0,0,0,0 
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1590 DATA 1,28,28,56,56,112,112 
. 224. 224 

1600 DATA 3.3,1,1,1.0.0.0,192,2 
24,224,240.246.248,252,126.3,7, 
15.31,63,62 

1610 DATA 126,252.192,192,128,0 
,0.0, 3. 7, 0.0. 0,0, 0,0. 128, 223 
1620 DATA 127,63,31,31,15,7,7,3 
,0,128.128,192,192,192,224,240, 
252,126,126,127 

1630 DATA 63,63,31.31,15,15,7,3 
,3,131,131,131 

1640 DATA 255.255,231.231,255,2 
52, 172, 193, 128,] 92. 224, 224, 224, 
224.224,224 

1650 DATA 1,1.0,0.0.1.3,7,248,2 
55.255,255,255,255,255.255.0 
1660 DATA 255,255.255,255,255,2 
55,255 

1670 DATA 15,255,255.255.255,25 
5,255,255,199,255,255,255,255,2 
55,255.255 

1680 DATA 223,239,255,255,252,1 
28,0,126,224.240,248,248,240,96 
,0,0,0,0,200 

1690 DATA 232,246,248,120,112 
1700 DATA 7,15,15,31.31.31,63,6 
3.255,255.255,255,255,255.255.2 
55,192,224,224 

1710 DATA 224,224.224,192.192.0 
.0,1,1,3.7.14,60.240.224,192,12 
6.128,0,0.0 

1720 DATA 0.0,0,0,0,3,15,31,63, 
63,63,63,126,254,252,240,191.19 
1.63,63.63 

1730 DATA 63,63,63.15.7,7,7,7,7 
.7.7,192.131,135.159,191.255,25 
4,252 

1740 DATA 252,248.240.224,192,1 
28, 0,0, 0,1. 3, 7,6,6,4,0, 127, 2 54, 
240,224 

1750 DATA 64,64,0.0,192,0,0,0,0 
,1,1,3.63.31.63.127,254,252,248 
,240 

1760 DATA 7,3,0.0.0,0,0.0,240,1 
92. 0.0, 0,0, 0.0, 7. 7, 15, 31, 31,31, 
23.23,224 

1770 DATA 192,126.0,0,0,0,0.7,6 
,4,0,0,0,0.0 



20 DIM C(S9) ,M(156) ,S(48) ,E(17) 
.Tl (1) ,T2(7) ,F1<7) ,F2(7) 
90 PCLS 3 

100 DRAW "BM62 . 1C2DG6LG2LGLUHLG 
LD6GDGDGDG7DG2DRD3RD2FDFDL12H2L 
ULU3HUH4UH2ULU5EUE4R3F3D2GLHURB 
D2R2E2U3HUHLHL4GL2G4DGD7FD2FDFD 
F2D" 

110 DHAW -F2DFD2G3DGDGD2GD5G2L2 
GLG2LGLG2D3EUER2ND2R2R2ER2ERERE 
UEUEUERD9FG4DG2DG2D2ND2R2D5E2U5 
E8U9E3R17F3D6FR3ERERE2RE5UE3UE3 
UE" 

120 DHAW "U2NU2LH2LD3FDGDGDG4LG 
LGLG2LG2HU2EUEU4H3E2R4ERFRFEURU 
H2U6H3L4GH2L2G2DF2D4G2L2H2U2HUH 
UHUEUEUE2UEUEUEUEU2EUEREUL4D5L3 
D6L2D3L2D3" 
■130 DRAW -BM24,16U3NL6DL8D2L2D2 
| L2D9BM70 , 43D4G8BM3 , 64E3BM+10 , 10 




140 PAINT (50, 50) . 2 

150 DRAW "BM56 , 34C1RDBF3DBL7DF2 

BE2BU2" 

160 GET(0,0)-(76,80) ,M,G 
170 PCLS 

180 DRAW - BM13,HC4G3L8H2U2EUE2 
ERERER8FR2F3RE3RERER11FR3F2RF4R 
12FR3FR4ERER2ERERER3FD4GBU3GDG2 
LGFNR3GD2FDFL4" 

190 DRAW -H2LBLHLHL18G4LGL16HL3 
HLH9LHL2HL2G3DFR3BM23 , 6D3FDF5RF 
2R9ER2ER7BM52 , 8LGL3G2L1 1H2UE2R7 
F4" 

200 PAINT (60.10) ,3,4:PAINT (13 
.5) ,3,4 

210 DRAW -BM83,8C1DBL4BG5H3G4H5 

G5H4G5H3G4H4G3H6E4F2E2F2E2F2E2F 

4BM7 . 13LH3E6F4E4FDFD2F9R2FR15E- 

220 GET{0,0)-(86,21) ,S,G 

370 CIRCLEÍ50.30) ,25,2:PAINT (5 

0.30),2:DRAW "BM50 , 30C2NU30NE60 



440 PUT (140,0>-{216,80) ,M.PSET 
Essas adições encaixam direitinho 
nos programas do artigo anterior — ex- 
ceto no MSX, em que várias linhas de- 
vem ser substituídas e duas delas apa- 
gadas. O que fizemos foi criar mais blo- 
cos gráficos. Novamente as linhas DA- 
TA de 1 400 a 1 770 são comuns ao 
Spectrum e ao MSX. O programa do 
Spectrum começa com novas linhas que 
colocarão na memória os dados adicio- 
nais, usando o comando POKE. 

A listagem do MSX teve o compri- 
mento do laço da linha 10 mudado; a 
fim de que os novos dados fossem co- 
locados na parte alia da memória. As li- 
nhas 150 e 160 desenham o sol. O laço 
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da linha 200 também teve seu compri- 
mento modificado para que as posições 
e cores dos novos biocos pudessem ser 
lidas. Essas novas posições e cores se en- 
contram nas linhas DATA a partir de 
3 090. Observe que parte das linhas do 
antigo programa teve que ser apagada, 
pois as posições dos blocos no banco fo- 
ram modificadas. 

O TRS-Color usa DRAW para dese- 
nhar os novos personagens e GET para 
armazenar os padrões em matrizes. 

Cada programa coloca os blocos nas 
posições adequadas no cenário. 



5C 



posicione a fita e digite: 
4000.5000 L 

Ou recorra ao gerador de blocos, se 
o seu Apple usa disquete. Eis o progra- 
ma completo: 

10 HGR :E - 16384:T - 8192 
20 HCOLOH- li FOR I - 0 TO 176 
: HPLOT 1,159 - 4 * SQfí (176 - 
I) : NEXT 
30 FOR I - 120 TO 279: HPLOT I 
,130 - 6 * SQR (I - 120) + (I 

- 200) * (I > 200) / 10: NEXT 
40 HCOLOR- 5: FOR I - 0 TO 7 3 
TEP . 05:F - ( INT ( RND (1) * 1 
0) - 5) 

50 HPLOT 50 + (30 + 20 * F) * 

COS (I) .50 + (26 * 20 * F) * 
SIN (I) TO 50 + (30 + 20 * F) * 

COS (I + 3. 14), 50 + (26 + 20 
* F) * SIN (1 + 3.14): NEXT I 
60 READ NF: FOR M - 1 TO NF: R 
EAD L.NL 

70 FOR J - 1 TO NL: READ BI.C, 

NB: FOR K - 1 TO NB 

S0Y-L+J-1:X-C+K-1: 

H - BI + K - 1 

90 FOR I - 0 TO 7 

100 POKE T + (X - 8 ■ (Y > 7) 

- 8 * (Y > 15) ) * 128 + 40 * (Y 

> 7) + 40 * (Y > 15) + X + 102 
4*1, PEEK (E + N * 8 + I ) 

110 NEXT I.K.J.M 
120 END 

150 POXE T + (Y - 8 * (Y > 7) 

- 8 * ( Y > 15) ) * 128 + 40 * (Y 

> 7) + 40 • (Y > 15) + X + 102 
4*1, PEEK (E + N * 8 + I) 
1000 DATA 7.17,3,1,25,14.4 
1.25.14,81,25,14 

1010 DATA 17,3,160,4.7,200,4. 
13,240,4.13 

1040 DATA 3,7,30 .30,9,70, 

30.9.110,30.9,154,34,1,194.34,1 

.234,34.1,273,33,3 

1050 DATA 5,7,30,32,7,70,3 

2,7,110,32,7,154,36.1.194,36,1, 

234.36,1.273,35.3 

1060 DATA 5,7,30,28,9,70,2 

8,9,110,28,9,154,32,1,194,32,1, 

234,32,1,273,31,3 

1070 DATA 7.7,30,30,9.70, 

30, 9, 110, 30, 9, 154, 34, 1,1 94. 34.1 

,234,34,1,273,33,3 

1080 DATA 0,10,25.25,1,5 

8.18,7,97,17,7,137,17,7,178,18, 



O primeiro passo consiste em carre- 
gar o banco de blocos fornecido, por 



No TK-2000 entramos no monitor 
por meio de LM (e o banco de blocos 
deve ser carregado em outra posição): 

AOOO.BOOOO L "nome" 




A floresta no TRS-Color. 



Na linha 10, o valor de T deve ser 
mudado para 40 960. Os usuários desse 
micro também podem mudar as cores 
nas linhas 20 a 40. Para modificar as co- 
res dos animais é preciso alterar de uma 
unidade a coluna na qual é impressa a 
figura. (Azul e verde sairão invertidos 
no TK-2000.) 



A linha 10 liga a tela gráfica e arma- 
zena em E e T os endereços iniciais das 
duas páginas de vídeo. 

As linhas 20 e 30 desenham as coli- 
nas, e as linhas 40 e 50, o sol. Como não 
há comandos específicos para traçar 
elipses no Apple, tivemos que lançar 
mão de fórmulas matemáticas. 

As linhas 60 a 120 usam quatro la- 
ços FOR ... NEXT para colocar os blo- 
cos em posição correta na tela. Os da- 
dos necessários para tanto estão nas li- 
nhas DATA de 1 000 em diante. 

O método posto em prática é o se- 
guinte: inicialmente, a linha 60 usa 
READ para descobrir o número de fi- 
guras (NF) que serão desenhadas. O la- 
ço FOR ... NEXT que se inicia nessa li- 
nha cuida para que o processo de dese- 
nhar uma figura seja repetido NF vezes. 
A cada figura desenhada, são obtidos a 
seguir, também com READ, a linha (L, 
entre 0 e 39) em que vai ser colocado o 
canto superior esquerdo da figura e o 
número de linhas da figura (NL). 

O primeiro FOR ... NEXT da linha 
70 cuida de desenhar NL linhas. O pro- 
grama tem que saber qual o número do 
bloco inicial de cada linha da figura no 
banco de memória (BI), em que coluna 
da tela ela começa (C) e quantos blocos 
ela tem (NB). O segundo FOR ... NEXT 
da linha 70 cuida de desenhar NB 
blocos. 



ROGRAMACÃO BASIC 
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A linha 80 se dedica a calcular a po- 
sição exata da tela (X,Y) e o número do 
bloco no banco (N), para que o laço en- 
tre as linhas 90 e 110 possa desenhar um 
novo bloco. 

Esse tipo de organização das linhas 
DATA só é possível devido ã disposição 
dos blocos no banco — carregue o ge- 
rador e observe o banco. As linhas 1 000 
a 1 080 contêm os dados do crocodilo, 
da cobra, das quatro árvores e do 
macaco. 

A linha 1 010, por exemplo, encerra 
os dados da cobra. Ela nos informa que 
esta deve ser desenhada com seu canto 
superior esquerdo na linha 17 e tem três 
linhas de blocos. O primeiro bioco da 
primeira linha ocupa a posição 160 no 
banco e será colocado na coluna 4. Es- 
sa primeira linha tem sete blocos. Com 
um programa assim você poderá fazer 
seus próprios cenários. 



0 CENÁRIO COMPLETO 



Ao ser executado o programa, a tela 
se enche de blocos gráficos e o cenário 
parece completo. Uma cobra, um ma- 
caco e um sol radiante foram acrescen- 
tados pelas novas linhas. (Menos no Ap- 
ple, em que todas as linhas são novas.) 
Poderíamos ter incorporado mais ele- 
fantes, árvores ou crocodilos à cena, 
mas, seja como for, dispomos agora de 
todo um conjunto de novos blocos pa- 
ra usar em nossos desenhos. 



0 SOL EM ALTA RESOLUÇÃO 



I Note que, além dos blocos, foram 
| usados comandos gráficos (não há ne- 



nhum motivo para não se fazer a com- 
binação das duas técnicas, já que isso dá 
excelentes resultados). 

O Spectrum e o Apple constroem seu 
sol desenhando vários raios bem próxi- 
mos, enquanto o MSX e o TRS-Color 
usam o comando PA1NT. 

Podemos ainda alterar o desenho em- 
pregando outros comandos gráficos, de- 
senhando mais colinas ou traçando re- 
tas que façam o chão parecer irregular 
ou rachado. 

Já comentamos a necessidade de usar 
matemática tanto no Apple como no 
TK-2000 devido à falta de recursos grá- 
ficos do BASIC. 

Quando se trabalha com blocos grá- 
ficos, as variações possíveis são quase 
infinitas. Com eles, pode-se não só mo- 
dificar o número de árvores, cobras e 
macacos, como também formar novas 
figuras. Um exemplo óbvio em nosso 
caso seria mudar a cor da copa das ár- 
vores (para branco ou cinza) e desenhar 
nuvens ou arbustos. 

Devemos, contudo, prestar atenção 
nas cores. Se quisermos, por exemplo, 
usar as copas como arbustos, teremos 
que colocá-las no topo das colinas já que 
ambas são verdes. No caso do MSX, po- 
demos mudar o tom de verde; no Ap- 
ple não haverá problemas, já que a co- 
lina não foi pintada. 



As vantagens de construir as figuras 
com blocos gráficos não terminam aí: 
podemos também convertê-las em figu- 
ras móveis, fazendo certas modificações. 
Para animar os bichos, poderíamos de- 
finir um ou dois blocos extras — cons- 
truindo um novo corpo para o elefante, 
por exemplo, ou uma cauda em posição 
diferente para a cobra, ou mesmo dan- 



do ao macaco uma banana para comer. 

No MSX, podemos usar sprites para 
animar as figuras. Já no Apple e no 
TK-2000 encontraremos algumas difi- 
culdades, pois os blocos gráficos são um 
tanto lentos. A alternativa é lançar mão 
do comando DRAW, com a ressalva de 
que, com sua utilização, é muito difícil 
preservar ao mesmo tempo a forma e a 
cor de uma figura. As linhas DATA ne- 
cessárias para um DRAW são comple- 
tamente diferentes das linhas que os blo- 
cos gráficos empregam. 



JUNTE BLOCOS PARA FORMAR FIGURAS 



Se quiser empregar blocos gráficos 
para animar os desenhos, as figuras des- 
tas páginas lhe mostrarão como os vá- 
rios caracteres compõem a cobra e o ma- 
caco (o artigo anterior mostra um dese- 
nho semelhante para o crocodilo). Es- 
ses desenhos não correspondem às figu- 
ras do Apple, mas podem ser usados pa- 
ra criar elementos móveis (DRAW); pa- 
ra isso, é preciso apelar para o editor de 
figuras desse micro. 

Enquanto o crocodilo, a cobra e o 
macaco parecem ter seu uso restrito aos 
desenhos de selvas e zoológicos, as ár- 
vores, nuvens e arbustos podem apare- 
cer em outros desenhos. 



GRAVAÇÃO DE BLOCOS 



Os programas considerados até aqui 
empregam um grande número de blocos 
gráficos a título de ilustração, e para 
fornecer blocos potencialmente úteis em 
outros desenhos. 

Todavia, é possível fazer desenhos 
muito interessantes usando uma quan- 
tidade bem menor de blocos. O truque 
para isso consiste em utilizar diversas ve- 



IIIIIIIIIHHH 



■■■■■lllllllll 



zes os mesmos blocos. Desse modo, po- ■ 
demos, por exemplo, desenhar uma ma- 
nada inteira de elefantes, ou colocar um 
muro em nosso cenário, preenchendo 
uma grande extensão da tela com ape- 
nas dois tipos de blocos gráficos. 

Entretanto, como a produção de blo- 
cos não apresenta problemas, a grande 
vantagem em utilizar poucos blocos es- 
tá em economizar tempo (no trabalho 
de criação e digitação) e espaço de me- 
mória (que as longas linhas DATA dei- 
xam de ocupar. O Spectrum, em parti- 
cular, gasta muita memória para guar- 
dar essas linhas DATA). 

Ao empregarmos linhas DATA para 
armazenar os padrões dos blocos, esta- 
remos ocupando o dobro do espaço ne- 
cessário, já que esses padrões serão 
transferidos para uma outra área da me- 
mória assim que rodarmos o programa. 
Em compensação, podemos economizar 
memória, se gravarmos os bancos de 
blocos diretamente em fita cassete, apa- 
gando a seguir as linhas DATA. 



i padrões do banco de 



onde x é o endereço inicial do segmento 
de memória que queremos gravar, e y 
é o seu comprimento. 

Devemos, portanto, saber o endere- 
ço inicial do banco de blocos, tanto pa- 
ra colocar nele os valores das linhas DA- 
TA, como para mudar o apontador de 
caracteres UDG. 

O comprimento do bloco é de fácil 
dedução: normalmente, ele é o número 
de blocos multiplicado por 8. O progra- 
ma visto linhas atrás usa oito bancos pa- 
ra guardar todos os blocos necessários 
ao desenho da selva. Cada um desses 
bancos começa 256 bytes acima do ban- 
co anterior (ao contrario do número mí- 
nimo de 168 bytes), a fim de permitir 
que o apontador seja modificado com 
apenas um POKE, em vez de dois. Isso 
também significa que, se quisermos gra- 
var essa porção de memória, devemos 
informar que ela tem 256 x 8 bytes c 1 ' 
comprimento. 

Grave os blocos da floresta com: 

SAVE -floresta" CODE 63446, 204B 



fffi 



Para carregar 
digite: 



O MSX grava o banco de blocos em- 
pregando o seguinte comando: 

BSAVE "CAS:nome" X,Y 
onde x é o endereço inicial e y, o com- 
primento da parte da memória que que- 
remos gravar. 

No caso do programa acima, use: 

BSAVE "CAS:SELVA" Í.HD100 , LH1000 

Isso grava apenas o padrão dos blo- 
cos. Lembramos que ficam faltando os 
bytes de cor. (Os blocos não serão visí- 
veis pelo gerador.) 

Para carregar os bytes da fita, use: 

BLOAD "CAS:" 



1 



Posicione a fita e digite: 

4000.5000 U 

Para carregar o banco, ainda no mo- 
do monitor: 

4000.5000 B 

m 

No TK-2000 o processo se assemelha 
ao usado no Apple, só que devemos en- 
trar no monitor com LM, e digitar: 

A000.B000 w "floresta" 

A000.B000 R 

(para gravar e ler a fita, respecti- 
vamente), 



Para gravar os blocos guardados na 
página 2 de vídeo, devemos entrar no 
monitor com: 



Esse computador usa comandos 
DRAW em vez de linhas DATA, de for- 
ma que não há vantagem em gravar os 
blocos. 



blocos de volta, 



Para colocá-los em outro lugar da 
memória, escreva o novo endereço 
inicial após CODE. 
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UM EDITOR 
DE TEXTOS 0) 



Datilografe textos sem gastar dinheiro 
com programas sofisticados e 
sem quebrar a cabeça com processadores 
complicados de palavras, 
executando o programa deste artigo. 



O processador de rextos é uma das 
mais úteis aplicações para qualquer 
computador pessoal. Em certos casos, 
quando se quer melhorar os resultados, 
pode-se comprar um programa sofisti- 
cado em linguagem de máquina. Pro- 
gramas como esse, porém, são caros e 
o uso do editor nem sempre é simples. 

A parle do programa coberta por es- 
te artigo conslilui um padrão para um 
editor de textos simples, que está estru- 
turado de forma a ser útil até mesmo 
àqueles que nunca viram um programa 
desse tipo. Com ele é possível criar me- 
morandos, cartas ou quaisquer outros 
textos a serem enviados para a impres- 
sora. O texto pode ser gravado em dis- 
co ou em fita e carregado para uma pos- 
terior utilização. 

Devido ao tamanho do programa 
completo — pelo menos 7,5k — a lista- 
gem foi dividida em três unidades, que 
não funcionarão adequadamente até 
que a última parte seja digitada. Ape- 
sar disso, será possível criar arquivos de 
texto no fim da segunda parte. A tercei- 
ra parte é formada pela rotina para a im- 
pressora, que possibilita o envio de da- 
dos para impressão. Ordenação e roti- 
na de busca estarão disponíveis. 

Vejamos como o programa funciona, 
antes que sua primeira parte seja digi- 
tada. Ele está destinado a várias aplica- 
ções domésticas; mas, como em qual- 
quer outro programa desse tipo, seus 
menus e telas de apresentação podem ser 
modificados ao bel-prazer do usuário. 
Todavia, se você resolver modificá-lo, 
tome cuidado para não alterar a nume- 
ração das linhas, de maneira que o com- 
putador possa acessá-las conveniente- 
mente, sobretudo se houver novos mó- 
dulos a serem adicionados. 



Ao ser executada, a versão completa 
do programa apresentará imediatamente 
algumas opções para entrada e saída de 
dados. Isso prepara o sistema para o uso 
de cassete ou acionador de discos. No 
caso do Spectrum, quem possuir um Mi- 
crodrive pode adaptar o programa pa- 
ra utilizá-lo de acordo com as indicações 
' oferecidas. 



Se for de seu interesse, você pode dar ' 
entrada por um meio e saída por outro 
e mudar mais tarde. 

O menu principal é mostrado e as se- 
guintes opções são apresentadas: 

[C] ARREGAR 
[G] RAVAR 
IM] UDAR E/S 
[E] DITAR 

[L] IMPAR MEMÓRIA 
[Ij MPRIMIR 
[S] AIR 



Se você quer continuar a trabalhar 
em um texto já existente, pressione C 
para iniciar a rotina que carrega o texto 
na memória. Qualquer outro aí presen- 
te será apagado. Portanto, uma mensa- 
gem "Confirme (S/N)" será inserida 
antes de se dar prosseguimento à roti- 
na. Tecle S para continuar ( ou N para 
interromper). Um nome de arquivo se- 
rá então solicitado: ele é necessário pa- 
ra que se possa continuar. Em seguida, 
o referido arquivo é carregado na me- 
mória e pode ser trabalhado. 



A rotina de gravação é usada para 
criar arquivos sequenciais para armaze- 
namento dos textos. Quando essa opção 
for selecionada, teclando-se G — e des- 
de que haja alguma coisa na memória 
— , será solicitado um nome para o ar- 
quivo. O Sinclair Spectrum gravará, 
mesmo que não haja nada na memória. 
Uma entrada nula não será aceita. O sis- 
tema já "sabe" qual opção de E/S está 
sendo usada e continua a pedir infor- 
mações de acordo com as necessidades 
do cassete ou do acionador de discos. 
No final, pressione <RETURN> ou 
<ENTER> para efetuar a gravação. 

Os usuários de disquete devem tomar 
bastante cuidado ao escolherem o nome 
do arquivo. Se o título de um arquivo 
já existente for usado, este será apaga- 
do, ficando no disco apenas o arquivo 
mais novo. Rotinas adicionais de grava- 




ção podem ser incorporadas a fim de 
proteger arquivos, trocar nomes etc. 



Se você quiser mudar os parâmetros 
iniciais de entrada e saída (em inglês, 
abreviados por I/O de input/output), 
pode fazê-Io a qualquer momento, te- 
clando M. Digite sua opção. Isso confi- 
gura automaticamente o programa com 
as novas necessidades. 

O programa do Sinclair Spectrum 
funciona com fita ou Microdrive. As 
mudanças necessárias para o Microdri- 
ve aparecem após a listagem principal. 
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■ ANALISE 0 MENU 


■ 


PARÂMETROS DE ENTRADA 


■ COMO CARREGAR E GRAVAR 




E SAÍDA 


■ NOMES DE ARQUIVOS 


■ 


TRABALHE COM 0 TEXTO 


■ 0 TRABALHO DE EDIÇÃO 


■ 


COMO LIMPAR A MEMORIA 


■ COMO AJUSTAR CORES 


■ 


PROGRAMA EDITOR DE TEXTOS 




Pressionar a tecla E leva você a um 
menu secundário que mostra: 

[T] OPO 
IF] IM 

[P] RÓXIMA LINHA 

|C] OR (não para o Apple e o TRS-Color) 

[M] ENU 

As duas primeiras opções o levam ao 
início (TOPO) ou ao fim (FIM) do tex- 
to que está na memória. A terceira op- 
ção conduz para a última linha com que 
se estava trabalhando. A última o faz re- 



tornar ao menu principal. 

A opção COR permite ajustar as co- 
res de frente, fundo e bordas, de acor- 
do com a sua preferência. 

Cada uma das três opções iniciais co- 
loca o programa no modo de entrada. 
A tela mostra linhas demarcando o iní- 
cio e o fim do texto (pode aparecer ape- 
nas uma, se já houver algum texto ar- 
mazenado na memória). Na parle mais 
baixa da tela há uma "área de trabalho" 
e um indicador de "memória livre" (não 
disponível no micro Spectrum) que per- 
mite saber quantos caracteres disponí- 
veis ainda se tem. 

O texto é digitado na parte inferior 
da tela (área de trabalho). Os comandos 



ENTER ou RETURN o transferem pa- 
ra a memória e para a área de texto. O 
mesmo acontece quando duas linhas da 
tela são completadas. 

Várias rotinas de edição estão embu- 
tidas no programa. Elas (e as teclas que 
as controlam) variam um pouco de má- 
quina para máquina e serão discutidas 
em maior detalhe no momento oportu- 
no. Toda a edição é feita na área de tra- 
balho. Os controles de edição permitem 
que se movimente pela linha de texto na 
área de trabalho para inserção ou dele- 
ção (supressão) de caracteres, antes que 
o texto seja transferido para a memó- 
ria. O texto que já estiver na memória 
— aquele que é mostrado no painel su- 
perior (área de texto) — deverá ser co- 
piado, uma linha de cada vez, para a 
área de trabalho, antes de ser editado. 

Novas linhas podem ser inseridas em 
qualquer ponto do texto. Isso se conse- 
gue pressionando a tecla apropriada pa- 
ra o modo "editor" (veja instruções de- 
talhadas) e posicionando- se o marcador 
abaixo do ponto onde se quer inserir a 
nova linha. 

Da mesma forma, o texto pode ser re- 
movido, uma linha de cada vez, selecio- 
nando-se o modo editor e posicionam 
do-se o marcador abaixo da linha a ser 
apagada antes de se pressionar a tecla 
para deleção (supressão). 

Teclas de controle permitem passear 
pelo texto, para a frente ou para trás, 
dez linhas de cada vez (o Spectrum é 
uma exceção). Assim, o texto pode ser 
visualizado antes da impressão ou de 
realizar alguma alteração. 

Pode-se voltar ao menu do modo de 
edição pressionando-se a tecla de "es- 
cape" designada. É possível também 
voltar do modo de edição para o menu 
principal sempre que seja necessário al- 
terar algum parâmetro do sistema. 



LIMPEZA DA MEMÓRIA 



A memória é limpa por intermédio de 
outra opção disponível a partir do me- 
nu principal. Mas esta só será oferecida 
depois que você responder sim à pergun- 
ta — "Confirma? (S/N)" — que se se- 
gue à teclagem de L. Note que essa op- 
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çào não redefine as opções de entrada 
e saída nem os parâmetros da impres- 
sora. Se você quiser reiniciar tudo, pres- 
sione S para retornar ao BASIC e, a se- 
guir, RUN. 



6020 LET b-VAL tS(l): LET t$U> 
-"ARQUIVO DO TOPO DO TEXTO": RE 
TU RN 

6200 REM gravar 
6Z10 LET tSUí-STRS b 
6220 INPUT "Introduza o nome do 

S arquivo". LINE n$: IF n$-"" OR 
LEN nS>10 THEN GOTO 6220 
10 POKE 33659.3 "30 SAVE n 3 DATA t$() ! GOTO 60 

20 BORDER 7: PAPER 7: INK 9: 65Q0 I[ípuT ftT 0 , 0 . - Intro duxa a 
CLS largura do formula-rio (1-80)" 

30 DIM 1(8): FOR N-l TO 9: . IF 1<: m pl>60 TH£N G0T 

READ 1 (n) ! NEXT n 0 6500 

40 LET ZS-"" 6510 input AT 0 . 0 ;" Introduza o 

100 LET ext-200: DIM t$(ext.32 nuBero de cara cterespor linha 
): LET 11 = 32: LET pl-32 ; {pl ) ; " ) " i 1 1 : IF 1 Kl OR 11 

105 LET sS-" >P 1 thEN GOTO 65X0 

6520 LET 11-11+1: RETURN 
110 LET tSU)="ARQUtVO DO TOPO DATA 6000,6200,3000.500.90 

DO^TEXTO": LET *»< 2 >' 0,4000,6500.9999 

tS(3)-sS f— ^ 

120 LET t$(4)-sS: LET t9(5í*"- MM 

-■: LET tS (6) -"ARQUIVO DO FIM p M ? D E°of PCLEAR 1:CLEAR 15500 

DO TEXTO" -5* nTM TV^ f 5001 

130 LET t-1: LET b-6t LET p-fl bÍ3-CHR3 11 28) • TL-1 • CP-1 -MU-S 

HO CLS : PMKT IN»E«SE 1,AT J° T S-!l. PL-ií. T^M : GP-1 oTl^-I 

texto";AT 6,8;"2- Gravar texto 
";AT 8,8:"3- Trocar papel";AT 
10.8;"4- Editar";AT 12,8; "S- i 
impar texto";AT 14,8;"6- Impr: 
mir texto";AT 16.8;"7- Alterar 
impressora" :AT 18.8;"8- Saída" 
160 PRINT »1;TAB 7 ; "Sei eci one 
opcao (1-8) " 
170 LET aS*INKEYS: IF 
THEN GOTO 170 

180 IF aS<"l" OR aS>"8" THEN 
GOTO 170 

190 LET a-VAL a$ : CLS 
200 GOSUB 1 (a) 
210 GOTO 140 

500 CLS : PRINT INVERSE 1 ; AT 
4 , B ; " MENU - EDITOR " 
510 PRINT AT 8,6; "1- Topo do 
exto":AT 10.6;"2- Fim do texti 
" ; AT 12,6:"3- Próxima linha"; 
AT 14,6;"4- Sair do menu de e< 

520 PRINT AT lB,7;"Selec 

let \ m\ ^^■B 2V 

THEN GOTO 530 I B BM « 

540 IF aS<*l" OR a$>"4" THEN 
GOTO 530 

550 LET a-VAL a$: CLS 

560 IF a-4 THEN RETURN 

570 IF a-1 THEN LET p-4 

580 IF a-2 THEN LET p-b-2 

590 GOSUB 1000: GOSUB 2000 

600 GOTO 500 

900 PRINT AT 10,6; "Você tem 

rteza?": PAUSE 0 

910 IF INKEY$-"s" THEN RUN 

920 RETURN 
4000 RETURN 
6000 REM carregar 
6010 INPUT "Introduza o nom< 

arquivo". LINE n$: LOAD 
A tSO 



50 TXS(Q)-STRING$(32.195) 

60 TXS(TL)-STRING3(32.18B) 

70 CLS:PRINT «9 , BLS ; "menu" ; BL$ ; 

"principal";BL$:PRINT «104, "(C) 

ARREGAR" : PRINT «136 , " (G) RAVAR" : 

PRINT «168,"(M)UDAfi ENTRADA/SAI 

DA" 

80 PRINT «200, " (E) DITAR TEXTO": 
PRINT «232."{L)IMPAB MEMORIA" : P 
RINT «264. " (I)MPRIMIR" :PRINT «2 
96 , " (A) LTERAR IMPRESSORA* : PRINT 

«328, " (S)AIR" ; 
90 B$-INKEYS:IF BS-"" THEN 90 
100 B-INSTR ("CGMELIAS" , BS) : IF B 
-0 THEN 90 

110 ON B GOSUB 4500,4000,5000,1 
000. 160, 3000,5500, 130 
120 GOTO 50 

130 CLS:PRINT"VOCE TEM CERTEZA 
(S/N)?" 

140 RS-INKEYS: IF RS<>*S" AND RS 
<>"N" THEN 140 

150 IF RS-"S" THEN CLS : END ELSE 
RETURN 

160 CLS: PRINT«8, BLS ; "limpar" :BL 
S ; "a" ;BLS ; "memoria" ; BLS: PRINT : P 
RINT"VOCE TEM CERTEZA? (S/N)" 
170 BS-INKEYS:IF BSO"N" AND BS 
<>"S" THEN 170 

IF BS-"N" THEN RETURN 
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190 FOR K-l TO TL:TX3(K)-":NEX 
T:TL-1:CP-1:RETURN 
1000 CLS:PRINT «42 , BLS"menu"BLS 
"de*BL3'edicao"BL9 : PRINT #104," 
tOPO DO TEXTO': PRINT «168, "fIM 
DO TEXTO" : PRINT «232 , "pROXIMA L 
INHA": PRINT #296,'»ENU PRINCIPA 
L" 

1010 BS- INKEYS : IF BS-" THEN 10 

10 

1020 B-INSTR(*TFPM" ,BS> : IF B-0 
THEN 1010 

1030 ON B GOTO 1050.1060.1070,1 
080 

1050 CP-l:GOTO 1070 
1060 CP-TL 

1070 GOSUB 2090:GOSUB 1500.GOTO 

1000 
1080 RETURN 
1500 AS-' " 

1510 P-0:PRINT «384. AS 
1520 CH-PEEK(1408+P) :TS-INKEYS: 
IF TS-" THEN CHMCH+64) AND 12 
7:POKE 1408+P,CH:CH-(CH+64) AND 

127:POKE 1408+P , CH :GOTO 1520 
1530 IF LEN(AS>-65 OR TS-CHRS (1 
3) GOSUB 2000 

1540 IF T3-""" THEN SF-0:GOSUB 
2500:GOTO 1510 

350 IF P<LEN(AS)-1 AND TS-CHRS 




(10) THEN AS-LEFTS (AS . P) +MIDS (A 
S.P+2):GOTO 1600 ELSE IF TS-CHR 
S (10) THEN 1520 

1560 IF TS-CHRS (12) THEN RETURN 

1570 IF TS-CHRS (21) THEN P— (LE 

N(AS) -D MP-0) :GOTO 1600 

1580 IF TSOCHRS (8) AND TSOCHR 

3(9) AND ASC(TS)<32 THEN 1510 

1590 IF TS<> " AND TSOCHRS (8) 

AND TSOCHRS (9) THEN AS-LEFTS (A 

S,P)+TS+MIDS(AS,P+1) :P-P+1 

1600 PRINT 6384 , AS 

1610 IF TS-CHRS (9) AND P<LEN(AS 

) -1 THEN P-P+l 

1620 IF TS-CHRS (8) AND P>0 THEN 

P-P-l 
1630 GOTO 1520 

2000 X-1:IF LEN(AS)>33 THEN X-2 
2010 FOR K-TL+X TO CP+X STEP -1 
:TXS(K)-TXS(K-X) :NEXT 
2020 IF LEN(AS)>33 THEN TXS (CP) 
-LEFTS (AS, 32) :TX$ (CP+1) -MID$ (AS 
,33,LEN(A3)-33) ELSE TXS (CP) -AS 
2030 FOR K-0 TO X-l 
2040 IF RIGHT3 (TXS (CP+K) ,1)-' " 
THEN TXS (CP+K) -LEFTS (TXS (CP+K) 
,LEN(TX3(CP+K))-1) :GOTO 2040 
2050 NEXT 

2060 AS-* ":P-0:PRINT e3e4.AS 

2070 PRINT «416,"" 

2060 TL-TL+X:CP-CP+X 

2090 IF CP<5 THEN ST-0 ELSE ST- 

CP-5 

2100 PRINT «0,;:FOR K-ST TO ST+ 
9:PRINT TXS(K) ; :IF LENITXS(K))< 
32 THEN PRINT 

2110 IF K-CP-1 THEN PRINT ■>■ 
2120 NEXT : PRINT STRINGS ( 32 . 140) 
2130 PRINT «480,BLS;"inein";BLS:" 
livre-" ; 32* (501-TL) ; BLS ; BLS : "cl 
ear-menu";BLS; : POKE 1534.32:POK 
E 1529,61 : RETURN 



10 CLS : KEY FF 

20 COLOR 15,4,4:CLEAP 18000 

30 DIM TXS(500) : VS-STRINGS ( 39 , 1 

95) 

40 TL=l:CP=l:My=80:TW=60:PL=66: 
TH"60:GP-10:L1S=CHRS(13) :LFS=ST 
RING3(3,L1S) 

50 TXS(0)=STRINGS(39,95) :TX3(TL 
)=TXS(0) 

60 CLS:LOCATE 7:PRINT"M E N U 

PRINCIPA L" : LOCATE 9,4: 
PRINT"[C]arregar":LOCATE 9,6:PH 
INT"[G]ravar" 

70 LOCATE 9,8:PRINT"[E]ditar te 
xto":LOCATE 9,10: PRINT" [ L ] impar 
memória" : LOCATE 9,12: PRINT" [ I ] 
mprimir":LOCATE 9,14: PRINT" IA ] 1 
terar impressora" : LOCATE 9,16:P 
RINT"[S]air" 

BO LOCATE 13,20:PRINT"0pção ?"| 
90 B5-JNKEYS:IF BS-""THEN 90 
100 B=INSTR("CGELIAS".BS) :IF B- 
0 THEN 90 

110 ON B GOSUB 4500,4000.1000,1 

70,3000,5500.130 

120 GOTO 50 

130 CLS:BLS-"Fia de programa" :G 
OSUB 220 



140 LOCATE 12,10:PRlNT"Confirme 
(S/N) '; 

150 RS=INKEYS:IF RS-"" THEN 150 
160 IF R3-"S" THEN CLS : END ELSE 
RETURN 

170 CLS:BLS-"Linipa a raemóna":G 

OSUB 220 

180 LOCATE 12,10:PRINT"Confirme 
(S/N) "; 

190 R3-TNKEYS : IF RS""" THEN 190 

200 IF RSO"S" THEN RETURN 

210 FOR K-l TO TL:TXS(K)-"":NEX 

T:TL-1:CP-1:RETURN 

220 PRINTBLS : PRINT V3 ! RETURN 

1000 CLS:BLS""Menu de edição" :C 

OSUB 220:LOCATE 9 , 8 : PRINT* 1 T ]op 

o do texto" ! LOCATE 9,10:PRINT"[ 

F)im do texto" : LOCATE 9,12:PRIN 

T"[P]rdxima 1 ínha" : LOCATE 9,14: 

PRINT"[M]enu principal" 

1010 LOCATE 13,17:PRINT"Opçào ? 



1020 BS=INKEYS:IF I 



THEN 10 



1030 B-INSTR("TFPM".BS1 :IF B-0 
THEN 1020 

1040 ON B GOTO 1050,1060,1070,1 
0B0 

1050 CP-1 :G0TO 1070 
1060 CP-TL 

1070 CLS:GOSUB 2080:GOSUB 1090: 
GOTO 1000 
1080 RETURN 
1090 AS-" " 

1100 P-0:LOCATE 0,16:PRINT AS : S 
PC (80) 

1110 LOCATE P+39*(P>38) . 16-{P>3 

B) :PRINTCHRS(219) ; 

1120 TS-INKEYS:IF T3-"" THEN 11 

20 

1130 IF LEN(AS)-79 OR TS-CHRSU 

3) THEN GOSUB 2000 

1140 IF TS-CHRS (5) THEN SF-0:GO 

SUB 2500:GOTO 1100 

1150 IF P<LEN(AS)-1 AND TS-CHRS 

(4) THEN A3-LEFT3(AS.P)+MIDS(AS 

,P+2) :GOTO 1200 

1160 IF TS-CHRS (27) THEN RETURN 
1170 IF TS-CHRS(l) THEN P-0:GOT 
0 1200 ELSE IF TS-CHR3(19) THEN 

P-LEN{A3)-l:GOTO 1200 
1180 IF TSOCHR3(28) AND TSOCH 
RS(29) AND TS<CHRS(32) THEN 111 
0 

1190 IF TSO" AND TSOCHRS(28) 
AND TSOCHRS (29) THEN AS-LEFTS 
(AS,P)+TS+MIDS(AS,P+1) : P-P+l 
1200 LOCATE 0 , 16 : PRINTAS ; SPC (80 

) 

1210 IF TS=CHRS(28) AND P<LEN(A 
S)-l THEN P-P+l 

1220 IF TS=CHRS(29) AND P>0 THE 

N P-P-l 

1230 GOTO 1110 

2000 X-1:IF LEN(AS>>40 THEN X-2 

2010 FOR K-TL+X, TO CP+X STEP-1 : 

TXS (K) -TXS (K-X) : NEXT 

2020 IF LEN(AS)>40 THEN TXS(CP) 

=LEFTS (AS i 39) :TXS (CP+1 ) -MID3 (A3 

,40,LEN(AS)-40) ELSE TXS (CP) -AS 

2030 FOR K-0 TO X-l 

2040 IF RIGHTS (TXS (CP+K) . 1) " I 
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THEN TX$(CP+K)=LEFTS(TXS(CP+K) 
,LEN(TXSÍCP+K))-1) :GOT0 2040 
2050 NEXT 

2060 AS-" ":P«0:LOCATE 0,16:PRI 

NTAS:SPC(80) 

2070 TL-TL+X:CP-CP+X 

2080 IF CP<9 THEN ST-0 ELSE ST- 

CP-9 

2090 LO CATE 0,0: FOR K= ST TO ST 
+9 ; PRINTTXS (K) iSPC (39-LEN (TX$ (K 
) ) ) 

2100 IF K = CP-1 THEN PRI.NTCHBS ( 1 

75) ;SPC(38) 

2110 NEXT:PRINTV5 

2120 LOCATE 0.23: PRTNT"Mem livr 

e - " ; 39* (501-TL) ;" ";TAB(26); 

-<ESO«Menu" : : RETURN 



XI 



10 HOME 

20 DIM TXS (500) 

30 TL - 1:CP - 1:MW = 80:TW - 6 
0:PL = 66:TH = 60:GP - 10:LFS - 
CHRS (13) + CHRS (13) + CHR 
S <13) 

40 LI - 6:S1 - LI: 1.2 - 1:S2 - L 
2:DS = CHRS (4) 

50 FOR Z - 1 TO 40:TXS(0) - TX 
S(0) + "-":ASS - A33 + "**! NEX 
T 

60 GO SUB 5000 

70 TXS (TL) = TXS(0) 

80 HOME : HTAB 8: PRINT "M E N 

U PRINCIPAL" 
90 VTAB 5: HTAB 10: PRINT " [ C ] 
arreoar": PRINT : HTAB 10: PRIN 
T "[GJravar": PRINT : HTAB 10: 
PRINT "[M]udar E/S" 
100 PRINT : HTAB 10: PRINT " [ E 

Iditar texto": PRINT : HTAB 10: 
PRINT "[Llimpar memoria": PRIN 
T : HTAB 10: PRINT " I I ]mpr ímir " 

- PRINT : HTAB 10: PRINT "[A]lt 
erar impressora": PRINT : HTAB 

10: PRINT "[S]air" 

110 PRINT : PRINT ! PRINT TA8 

( 13) "Opcao ->" ; 

120 GET BS: IF BS = CHRS (13) 

THEN 120 
130 BBS ■ "CGMELIAS" : B = 0: FOR 

Z - 1 TO 8: IF BS ■= MIDS (BBS 
,Z,1) THEN B - Z 
140 NEXT : IF B ■ 0 THEN 120 
150 ON B G05UB 4500,4000,5000, 
1000. 210, 30 00, 55 00, 170 
160 GOTO 70 

170 HOME :BLS = "FIM DE PROGRA 
MA": G05UB 250 

180 HTAB 12: VTAB 10: PRINT "C 

ONFIRME (S/N) " ; : GET RS 

190 IF RS < > "S" THEN RETUR 

N 

200 HOME : END 

210 HOME :BLS = "LIMPAR A MEMO 
RIA": GOSUB 250 

220 HTAB 12: VTAB 10: PRINT "C 

ONFIRME (S/N)": : GET RS 

230 IF RS < > "S" THEN RETUR 

N 



250 INVERSE : PRINT BLS ; : PRIN 
T SPCI 40 - LEJJ (BLS)l: NORMA 
L : RETURN 

1000 HOME : PRINT TAB ( 12)"ME 
NU DE EDICAO" 

1010 VTAB 9: HTAB 10: PRINT "t 
TIOPO DO TEXTO" 

1020 PRINT : PRINT TAB ( 10) "[ 
F ]IM DO TEXTO" 

1030 PRINT : PRINT TAB ( 10) "[ 
PJROXIMA LINHA" 

1040 PRINT : PRINT TAB ( 10) "[ 
M1ENU PRINCIPAL" 

1050 PRINT : PRINT : PRINT TA 
B( 13>"Opcao •>"; 
1060 GET B3: IF BS - CHRS (13 
) THEN 1060 

1070 BBS - "TFPM" : B - 0: FOR Z 
- 1 TO 4: IF BS - MIDS (BBS.Z, 
1) THEN B - Z 

1080 NEXT : IF B = 0 THEN 1060 

1090 ON B GOTO 1110,1120.1130. 
1140 

1110 CP - 1: GOTO 1130 
1120 CP - TL 

1130 HOME : GOSUB 2090: GOSUB 
1500: GOTO 1000 
1140 RETURN 
1500 AS = " " 

1510 P - 1: HTAB 1: VTAB 20: CA 
LL - 958: PRINT MIDS (AS. 2); 
1520 HTAB P: VTAB 20 + (P > 40 
) : GET T$ 

1530 IF LEN (AS) - 62 OR TS c 

CHRS (13) THEN GOSUB 2000 
1540 IF TS - CHRS (5) THEN G 
OSUB 2500: GOTO 1510 
1550 IF TS - CHRS (2?) THEN 
RETURN 

1560 IF TS - CHRS (D THEN P 
= 1: GOTO 1620 

1570 IF TS - CHRS (19) THEN P 

- LEN (AS) " 1: GOTO 1620 
1580 IF TS - CHRS (4) AND (P 
< LEN (AS) - D THEN AS - LEF 
TS (AS.P) + MIDS (AS.P * 2) : G 
OTO 1620 

1590 IF TS = CHRS (4) THEN 15 
20 

1600 IF TS C > CHRS (B) AND 
TS < > CHRS (21) AND TS < CH 
RS (32) THEN 1520 
1610 IF TS < > CHRS (8) AND 
TS < > CHRS (21} THEN A$ - L 
EFTS (AS.P) + TS + MIDS (AS.P 
+ 1) :P - P + 1 

1620 HTAB 1: VTAB 20: CALL - 
958: PRINT MIDS (A$,2) ; 
1630 IF TS ■ CHRS (8) AND (P 
> 1) THEN P - P - 1 
1640 IF TS - CHRS (21) AND (P 
< LEN (AS) - D THEN P - P + 

1 

1650 GOTO 1520 

2000 X - 1:A$ - MIDS (AS. 2): I 
F LEN (AS) > 41 THEN X - 2 
7010 FOR K_ - TL + X TO CP + X 
STEP - 1:TXS(KI - TXS (K - X): 
NEXT 

2020 IF LEN (AS) > 41 THEN TX 
S(CP) - LEFTS (AS, 40) :TXS(CP + 
1) - MIDS (AS, 41): GOTO 2040 




Quais são as principais diferenças 
entre o editor de textos de INPUT e 
os editores vendidos nas lojas especia- 
lizadas? 

A principal diferença consiste em 
que nosso editor é programado em BA- 
SIC, e os editores comerciais, em có- 
digo de máquina. Tais editores atuam 
sobre uma "janela de texto", ou seja, 
permitem que se edite qualquer seg- 
mento de texto, acrescentando ou eli- 
minando palavras, frases e parágrafos, 
por meio de simples movimentos do 
cursor na tela. 

Em contraste com isso. nosso pro- 
grama edita linha por linha do texto, 
exigindo que as linhas sejam escritas 
na parte inferior da tela e transferidas 
para o campo superior. 

Esse modo de organizar o texto, jun- 
to com a lentidão inerente à linguagem 
BASIC, é a causa de outra diferença 
fundamental: o tempo de gravação e 
leitura dos textos em editores comer- 
ciais é muito menor. 

Outfo atributo dos editores comer 
ciais é a hifenação automática das pa 
lavras. Somada ao alinhamento à direi 
ta, essa característica dá ao texto im 
presso um aspecto mais natural e pro 
fisstonal. Não há nenhum motivo. < 
tudo, para que uma função de hii 
ção não possa ser incluída em nosso 
editor. 



2030 TXS (CP) - AS: IF AS ■ " " 
THEN 2070 

2040 FOR K = 0 TO X - 1 

2050 IF RIGHTS (TXS (CP + K) , 1 

) - " " THEN TXS (CP + K) - LEF 

TS (TXS (CP + K) , LEN (TXS (CP + 

K) ) - 1) : GOTO 2050 

2060 NEXT 

2070 AS = " ":P - 1: HTAB U V 
TAB 20: CALL - 958: PRINT MID 
S (AS. 2) : 

2080 TL » TL + X:CP " CP + X 
2090 IF CP < 9 THEN ST ■ 0 : GO 
TO 2110 

2100 ST = CP - 9 

2110 HTAB 1: VTAB li FOR K - S 
T TO ST + 13: PRINT TXS(K);: IF 
LEN (TXS(K)) < 40 THEN CALL 

- 868: PRINT 

2120 IF K = CP - 1 THEN CALL 

- 86B: PRINT ">" 

2130 NEXT : PRINT ASS i : PRINT 
"memoria livre=":40 * (501 - TL 
) 

2140 RETURN 
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■ 


0 QUE t UM DESENHO 


TIPO WIREFRAME' 


■ 


COMO ORGANIZAR AS ROTINAS 


■ 


DESENHE UMA GRADE 


■ 


DESENHE UM CIRCULO 



Neste primeiro artigo da série sobre 
desenho tipo wireframe , você 
aprenderá a elaborar grades e círculos. 
Mais tarde, verá como utilizá-los 
para estruturar imagens em 3-D. 
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Desenhos tridimensionais em movi- 
mento, do tipo wireframe {ou gradea- 
do), têm se tornado imagens comuns em 
propagandas e, sem dúvida, impressio- 
nam muito. O efeito é uma das mais re- 
centes contribuições do computador às 
comunicações visuais. Se, como usuário 
de um micro pessoal, você quiser pro- 
duzir figuras como aquelas, certamente 
ficará desapontado ao verificar que é 
impossível obter o esplendor das ima- 
gens elaboradas por computadores, ar- 
tistas e técnicos fotográficos nos comer- 
ciais de televisão. 

Mas nem tudo está perdido: nesta sé- 
rie de artigos, você verá como extrair o 
máximo de seu computador, capacitan- 
do-o a produzir e movimentar imagens 
em 3-D de uma maneira que até en- 
genheiros-desenhistas invejariam. 

Como vimos em artigos anteriores, a 
possibilidade de endereçar pontos indi- 
viduais (pixels) na tela proporciona ao 
micro uma poderosa ferramenta de de- 
senho. O TK-90X, por exemplo, tem 
256 pixels na horizontal e 176 na verti- 
cal. Normalmente, desenhamos linhas 
retas ou pontos que, combinados com 
recursos de cor, são usados para produ- 
zir imagens de alta resolução. 

O método empregado para desenhar 
linhas em sistemas gráficos controlados 
por computador é, em geral, semelhan- 
te ao utilizado quando se trabalha com 
caneta e papel. Podemos mover o cur- 
sor pela tela fazendo com que ele deixe 
marcas ou não, e mudar de cor é tão 
simples quanto trocar de caneta. 

A principal diferença entre desenhar 
com o computador ou manualmente es- 
tá na rapidez da máquina e na perfei- 
ção com que ela traça linhas retas. Es- 
tas características tornam possível dese- 
nhar imagens em seus contornos ou 
mesmo wíreframes tridimensionais. 
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O QUE E, AFINAL, UM WIREFRAME? 



Wireframes são representações ima- 
ginárias formadas por grades de linhas 
sobre a superfície do objeto. Geralmen- 
te, neste tipo de desenho, as linhas de 
fundo do objeto também ficam aparen- 
tes, pois, para escondê-las, precisaría- 
mos de muitos cálculos extras. O resul- 
tado é uma figura que parece feita so- 
mente de uma armação de arame. 



Os wireframes podem ser movimen- 
tados ou rodados, como vemos em di- 
versas propagandas. Nos micros pes- 
soais, não se consegue a mesma rapidez. 
Para alcançar velocidade semelhante, 
precisaríamos que os quadros mudassem 
pelo menos a cada 1/25 de segundo. Na 
verdade, a maioria dos computadores 
usados nos comerciais de TV também 
não são tão rápidos assim, mas as ima- 
gens parecem estar em "tempo real" 
graças a técnicas de filmagem. 



Em desenhos estáticos, o tempo não 
é importante, embora cause irritação es- 
perar demais até que uma figura se com- 
plete. Mas, por outro lado, muitas ve- 
zes é mais interessante ver a figura sen- 
do desenhada do que vê-la acabada, so- 
bretudo se ela for bem complexa. 

Começaremos desenhando formas 
simples, como cubo ou esfera; à medi- 
da que nos familiarizarmos com as téc- 
nicas do wireframe, tentaremos formas 
mais complicadas. Neste artigo, apren- 
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deremos a criar figuras bidimensionais 
que parecerão estar em espaço tridimen- 
sional. Infelizmente, as rotinas aqui 
apresentadas não servem para os micros 
das linhas ZX-81 e TRS-80. 



PRIMEIROS PASSOS 



A execução de um desenho comple- 
xo do tipo wireframe é bem demorada, 
independentemente da velocidade ou da 



capacidade de traçar linhas de um mi- 
cro. Os primeiros passos consistem na in- 
corporação de um conjunto de rotinas, 
que incluem os comandos gráficos bá- 
sicos. Precisamos de um comando que 
mova o cursor sem desenhar e outro que 
o movimente desenhando. Estes coman- 
dos variam de máquina para máquina, 
como é o caso do MOVE, DRAW e LI- 
NE, já vistos em outros artigos. 

Um programa gráfico geralmente co- 
meça ajustando o computador para o 
modo gráfico, se necessário, e limpan- 
do a tela. Devemos optar sempre pela 
resolução de tela mais alta. Convém ain- 
da estruturar o programa de modo que 
todos os comandos gráficos sejam co- 
letados juntos em sub-rotinas. Com es- 
sa medida, evitaremos reescrever desne- 
cessariamente porções de programa que 
realizam a mesma tarefa. Além disso, 
tanto a expansão quanto o entendimen- 
to do programa serão mais simples se os 
comandos que realizam certa tarefa fo- 
rem coletados numa mesma área. A es- 
truturação de um programa deixa-o, de 
fato, um pouco lento; isso, porém, não 
tem maior importância quando lidamos 
com figuras estáticas. 



INICIALIZAÇÃO DA MÁQUINA 



Para começar o trabalho com as ro- 
tinas de desenho, digite esta parte do 
programa, mas não a rode ainda pois es- 
tá incompleta. 

SE GD 

9000 REM INICIO 

9005 PI - 4 * ATN (1) 

9010 HGR2 : HC0L0H- 3:N • 0 

9070 HETURN 

9100 REM MOVE 

9110 HPLOT XI , Yl 

9120 RETURN 

9200 REM DESENHA 

9210 HPLOT XI, Yl TO X2.Y2 

9220 RETURN 

■■ 

9000 PCLS 
9030 RETURN 




9000 REM INICIO 

9010 BORDER A: PAPER 7l INK 0: 

CI.S : LET N-0 

9070 RETURN 

9100 REM MOVE 

9110 PLOT X.Y 

9120 RETURN 

9200 REM DESENHA 

9210 DRAW X-PEEK 2.1677 , Y-PEEK 2 
3678 

9220 RETURN 



fffi 

9000 CLS 
9030 RETURN 

Os programas do TRS-Color e MSX 
são mais curtos porque esses computa- 
dores permitem que movimentemos o 
cursor e desenhemos usando um simples 
comando. Os programas do Spectrum 
e do Apple, por sua vez, contêm sub- 
rotinas que movimentam o cursor sem 
desenhar (linhas 9100 a 9120) e que de- 
senham na tela (linhas 9200 a 9220). Es- 
sas rotinas combinadas formam uma 
única rotina de movimento e desenho. 

Agora, para fazer um desenho, não 
precisaremos dizer ao computador co- 
mo mover o cursor ou marcar a tela: 
bastará definir a forma do objeto nos 
termos dessas rotinas básicas. 



DESENHO DE LINHAS 



A forma mais simples que um dese- 
nho pode assumir é, sem dúvida algu- 
ma, a de uma linha. Aqui está a rotina 
que faz isso; digite-a, mas não rode o 
programa ainda. 

5CED 

9500 REM LINHA 

9510 XI - XS:Y1 - YS: GOSUB 910 
0 

9520 X2 - XE:Y2 - YE: GOSUB 920 
0 

9550 RETURN 

D 

9500 LINE{XS,YS)-(XE,YE) , PSET 
9550 RETURN 




9500 REM LENHA 

9510 LET X-XS: LET Y-YS: GOSUB 
9100 

9520 LET X-XE: LET Y-YE : GOSUB 
9200 

9550 RETURN 

9500 LINEtXS.YS)-(XE.YE) ,15 
9550 RETURN 

A rotina especifica uma posição ini- 
cial — coordenadas (XS, YS) — e uma 
posição final — coordenadas (XE, YE) 
— para a linha. Ern alguns computado- 
res é necessário utilizar os comandos 
DRAW ou LINE; em outros, isto já es- 
tá especificado nas rotinas das linhas 
9100 a 9220. A rotina que desenha linhas 
é a base da maioria dos programas do 
tipo wireframe. 
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O DESENHO DA GRADE 



Para representar uma superfície e 
qualquer irregularidade que possa ter — 
como morros, vales, fendas etc. — é me- 
lhor visualizá-la não como uma área 
continua dentro de um retângulo, mas 
como uma grade de linhas horizontais 
e verticais. Assim, todas as irregularida- 
des poderão ser representadas por dis- 
torções dessas linhas. 

A próxima seção do programa defi- 
ne a rotina que desenha uma grade. 
Digite-a, mas não a rode. 



5130 BE TU RN 



fffi 



5000 JA = LU / NX 

5010 XS - XA 

5020 FOR J ■ 0 TO NX 

5025 YS - VA : XE - XS:YE - YA ■ 

LH 

5030 GOSIIB 9500 

5040 XS - XS + JA 

5050 NEXT J 

5060 JA - LH / NY 

5070 YS • YA + LH 

50S0 FOR J - 0 TO NY 

5090 XS ■ XA + LU : XE ■ XA:YE 1 

YS 

5100 GOSUB 9500 
5110 YS - YS - JA 
5120 NEXT J 
5130 RETURN 



5000 JA-LW/NX 

5010 XS-XA 

5020 FOR JB-0 TO NX 

5025 YS-YA:XE-XS:YE-YA+LH 

5030 GOSUB 9500 

5040 XS-XS+JA 

5050 NEXT JB 

5060 JA-LH/NY 

5070 YS-YA+LH 

5080 FOR JB-0 TO NY 

5090 XS-XA+LU: XE-XA :YE-YS 

5100 GOSUB 9500 

5110 YS-YS-JA 

5120 NEXT JB 

5130 RETURN 



5000 LET JA-LW/NX 

5010 LET XS-XA 

5020 FOR J=0 TO NX 

5025 I-ET YS-YA: LET XE-XS: LET 

YE-YA+LH 

5030 GOSUB 9500 

5040 LET XS-XS+JA 

5050 NEXT J 

5060 LET JA-LH/NY 

5070 LET YS-YA+LH 

5080 FOR J-0 TO NY 

5090 LET XS-XA+LW: LET XE-XA: I 

ET YE-YS 

5100 GOSUB 9500 
I 5110 LET YS-YS-JA 
| 5120 NEXT J 



5000 JA=LW/NX 

5010 XS-XA 

5020 FOR JB-0 TO NX 

5025 YS=YA:XE=XS:YE-YA+LH 

5030 GOSUB 9500 

5040 XS-XS+JA 

5050 NEXT JB 

5060 JA-LH/NY 

5070 YS-YA+LH 

5080 FOR JB-0 TO NY 

5090 XS-XA+LW : XE-XA : YE-YS 

5100 GOSUB 9500 

5110 YS-YS-JA 

5120 NEXT JB 

5130 RETUBN 

As coordenadas (XA.YB) especifi- 
cam o canto inferior esquerdo da gra- 
de. LW especifica a largura; LH, a al- 
tura; NX, o número de divisões horizon- 
tais, e NY, o número de divisões verti- 
cais. A variável JA determina a distân- 
cia entre as linhas verticais, e o laço 
FOR. ..NEXT desenha horizontais, 
mantendo aquele intervalo. O segundo 
laço FOR. ..NEXT desenha verticais a 
intervalos calculados pela linha 5060. 

A rotina entre as linhas 5000 e 5180 
desenha as linhas horizontais da esquer- 
da para a direita, e as verticais de baixo 
para cima, formando uma grade de su- 
perfície plana. Não poderíamos, portan- 
to, representar irregularidades na super- 
fície dessa grade. 

Para mostrá-la na tela, digite as li- 
nhas seguintes, que chamam a rotina, e 
rode o programa. 



105 PI=4*ATN{1) 
110 GOSUB 9000 

175 XA=0:YA-0:LU=255:LH-191rNX= 
4:NY=3 

180 GOSUB 5000 
190 GOTO 190 

Ao rodar o programa, aparecerá uma 
grade ocupando toda a tela. Faça as mu- 
danças abaixo para observar a versati- 
lidade do programa: 



CEE] 



175 LET XA-10: LET YA= 1 0 : LET 
LW-240: LET LH-144: LET NX- 1 : 
LET NY-1 



100 GOSUB 9000 

175 XA - 0:YA - 0 : LU - 279:LH 

191:NX - 16:NY - 14 
160 GOSUB 5000 
190 STOP 



D 



100 PM0DE 4:SCBEEN 1.1 
105 PI-4*ATN(1) 
110 GOSUB 9000 

175 XA-0:YA-0:LU-255:LH-191:NX- 
4:NY-3 

1B0 GOSUB 5000 
190 GOTO 190 



100 GOSUB 9000 

175 LET XA-0: LET YA-0: LET LU 

-255; LET LH-175: LET NX-16: 

LET NY-12 

180 GOSUB 5000 

.190 STOP 



fffi 



fffi 



Desta vez, aparece na teia uma caixa 
retangular, já que se especificou uma 
grade com apenas uma divisão horizon- 
tal e uma vertical. Fornecendo valores 
adequados a NX e NY, como acima, po- 
demos construir uma grade com núme- 
ros de linhas horizontais diferente do de 
verticais. Faça as mudanças que se se- 
guem e rode o programa: 



HE] 

175 XA 
130 :(i 

■■ 



175 LET XA-0: LET YA-0 : LET LU 
=160: LET LH-144: LET NX-15: 
LET NY-10 



fffi 



100 SCREEN 2:COLOR 1,9,10 



Para a forma quadrada, determina- 
íos os valores apropriados de LW e LH 
o número de divisões por NX e NY. 



0 DESENHO DE CÍRCULOS 



Os círculos também são muito úteis 
nos desenhos tipo wireframe. Em alguns 
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micros, eles podem ser executados dire- 
tamente por um comando, bastando que 
se definam o centro e o raio. 

O comando direto, contudo, não nos 
oferece o grau de controle necessário pa- 
ra a elaboração de um desenho tridimen- 
sional. Em perspectiva, um círculo vis- 
to de um certo ângulo pode parecer uma 
elipse ou até uma curva. Embora dese- 
nhe elipses, o comando CIRCLE não é 
capaz de lhes conferir a tridimensiona- 
lidade essencial para garantir a aparên- 
cia realística ao objeto. Convém, por- 
lanto, definir uma função genérica. 

Podemos compor um círculo usando 
uma série de segmentos de reta. Se es- 
tes forem suficientemente pequenos, a 
curva parecerá continua. Mas, quanto 
menores forem os segmentos de reta, 
maior será o número deles e mais pro- 
longado o tempo de execução. Aqui es- 
tá uma rotina que desenha um círculo 
de raio R com centro em (XS, YS). 
Digite-a, mas não a rode ainda. 



6000 IF N = 0 THEN N ■ 20 + I 
NT CR / 10) 
6020 JA - 2 * PI / N 
6050 XR - XS:YR = YS 
6060 JB ■ 0:XS » XS + R 
6070 FOR J = 2 TO N 
6080 JB - JB + JA 
6090 XE = XR + R * COS (JB):YE 
- YR + R « SIN (JB) : GOSUB 95 
00 

6100 XS = XE:YS ■ YE 
6110 NEXT J 

6120 XE = XR + R:YE - YR : GOSUB 
9500 

6130 XS - XR:YS = YR 
6160 RETURN 



íl 



6000 IF N-0 THEN N-20+INT (R/10) 

6020 JA-2*PI/N 

6050 XR-XS:YR-YS 

6060 JB-0:XS-XS+R 

6070 FOR JC-2 TO N 

6080 JB-JB*JA 

6090 XE-XR+R*COS(JB) :YE-YR+R*SI 
N(JB) rGOSUB 9500 
6100 XS-XE:YS-YE 
6110 NEXT JC 

6120 XE-XR+R:YE-YR:GOSUB 9500 
6130 XS-XR:YS-YR 
6160 RETURN 



6000 IF N=0 THEN LET N=20+INT 

(R/10) 

6020 LET JA=2*PI/N 

6050 LET XR-XS: LET YR-YS 

6060 LET JB=0: LET XS-XS+R 

6070 FOR J=2 TO N 

6080 LET JB- J B+JA 

6090 LET XE-XR+R*COS JB: LET YE 



=YR+R*SIN JB: GOSUB 9500 
6100 LET XS=XE: LET YS=YE 
6110 NEXT J 

6120 LET XE=XR+R: LET YE = YR : GO 
SUB 9500 

6130 LET XS=XR: LET YS = YR 
6160 RETURN 



6000 IF N=0 THEN N-20+INT (R/10) 

6020 JA-2-PT/N 

6050 Xfi=XS:YR=YS 

6060 JB=0:XS=XS+R 

6070 FOR JC-2 TO N 

6080 JB=JB+JA 

6090 XE=XR+R*COS (JB) :YE=YR+R*SI 
N(JB) :G()SUB 9500 
6100 XS=XE:YS=YE 
6110 NEXT JC 

6120 XE-XR+R:YE=YR:GOSUB 9500 
6130 XS=XR:YS=YR 
6160 RETURN 

A variável N especifica o número de 
segmentos de reta que serão usados na 
composição do círculo. Caso façamos 
N = 0, a linha 6000 calculará o número 
de segmentos necessários para fazer o 
círculo mais liso, levando em conta, é 
claro, o tamanho dele. 

A linha 6020 calcula o ângulo de 
cada segmento de reta na circunferên- 
cia. A linha 6050 move o cursor para 
uma posição na circunferência. O laço 
FOR.. .NEXT (raça todos os segmentos, 
com exceçâo do último, que é desenha- 
do pela linha 6120, para garanlir que se 
una ao primeiro. . 

Para ver a rolina funcionando, apa- 
gue a linha 180 e acrescente estas: 



150 FOR R = 20 TO 70 STEP 10 
155 XS = 12B:YS - 102:N = 24 
160 GOSUB 6000 
170 NEXT R 



150 FOR R-0 TO 100 STEP 20 

155 XS=128:YS-102:N-24 

160 GOSUB 6000 

170 NEXT R 



150 FOR R=20 TO 70 STEP 10 

.155 LET XS=128: LET ÍS-ISÍ! 

LET N*24 

160 GOSUB 6000 

170 NEXT R 



150 FOR R-0 TO 100 STEP 20 

155 XS-128:YS=102:N=24 

160 GOSUB 6000 

170 NEXT R 




Posso colorir wireframes? 

Desenhos do tipo wireframe geral- 
mente são apresentados em duas co- 
res, sobretudo preto e branco. 

A presença de muit3S cores tende 
a complicar a imagem, muitas vezes 
anulando o efeito tridimensional. Além 
disso, a adição de cores a um desenho 
complexo esbarra em limitações da 
própria máquina. 

No TRS-Color, o maior número de 
cores sacrifica a alta resolução gráfica, 
pois a resolução se reduz â metade 
quando passamos de um modo de duas 
cores para um de quatro. 

No Spectrum e no MSX, determina- 
das porções da tela só podern apresen- 
tar duas cores. No Spectrum, esta por- 
ção corresponde a cada bloco de oito 
por oito pontos da tela; no MSX, a ca- 
da conjunto de oito pontos adjacentes 
na horizontal. 

Já no Apple e no TK-2000. algumas 
cores ocupam colunas pares, outras 
ímpares, em afta resolução. Se colocar- 
mos pontos ou linhas em colunas ina- 
dequadas à sua cor, eles simplesmen- 
te não aparecerão na tela. 



Rodado o programa, um certo núme- 
ro de círculos aparecerá no centro da te- 
la. Como na rotina da grade, podemos 
variar os parâmetros no programa que 
chama a rotina e obter uma disposição 
de círculos diferente. A linha 150 ajus- 
ta o raio do primeiro círculo e determi- 
na o quanto ele aumenta. A 155 define 
o centro do círculo e o número de seg- 
mentos de reta que formarão a circun- 
ferência. Como exercício, varie esses va- 
lores e veja os resultados. 

Talvez você queira saber o que acon- 
teceu com a rolina da grade: ela ainda es 
tá na memória, mas, como reescrev< 
as linhas de código que chamam a roti 
na, o computador não as mostra. Roii 
nas como esta podem ser guardadas num 
arquivo de rotinas gráficas para uso pos- 
terior. Elas terão utilidade em vários ti- 
pos de programa gráfico, bem como nos 
de wireframes. Na medida em que for pre- 
ciso, adicione novas rotinas. Uma vez no 
computador, salve-as em cassete ou dis 
co e carregue-as novamente na memória 
quando for utilizá-las. Junte-as, se neces- 
sário. No próximo artigo desta série, ve- 
remos como usar essas rotinas na criação 
de wireframes tridimensionais. 
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UM EDITOR 
DE TEXTOS (2) 



Adicionar, corrigir, apagar, tudo 
é possível com um programa editor. 
Portanto, se você quer obter um 
texto perfeito, comece com um 
rascunho e melhore-o à vontade. 



Neste artigo, você encontrara a par- 
te principal do programa editor de tex- 
tos e as explicações sobre o uso das fun- 
ções de edição em cada máquina. Em- 
bora os procedimentos sejam muito pa- 
recidos, controles específicos e algumas 
características variam. 

Após digitar as linhas aqui apresen- 
tadas, você já poderá usar todas as fun- 
ções de edição do programa. Mas 
[embre-se de que só será possível impri- 
mir o texto criado depois da última par- 
te, que daremos no próximo artigo. 

Como você verá, as opções de edição 
oferecidas pelo programa sào úteis em 
vários níveis. O mais simples consiste na 
correção dos erros de grafia. É facílimo 
eliminá-los: basta colocar sua. "caneta 
eletrõnica", o cursor, sobre a palavra er- 
rada e inserir ou apagar as letras que 
quiser. 

Se a ortografia não é um problema 
para você, mas sim a composição do 
texto, este programa se revelará ideal. 
Ao escrever algo importante, como uma 
solicitação de emprego ou uma explica- 
ção ao gerente sobre um problema em 
sua conta bancária, você já não preci- 
sará gastar uma pilha de folhas de pa- 
pel, riscando e reescrevendo até encon- 
trar o termo mais preciso, ou a forma 
mais adequada. 

Vá direto ao computador e econo- 
mize papel e paciência. 

Comece digitando um rascunho do 
texto e, depois, melhore-o. Analise o 
que já escreveu "passeando" pelo tex- 
to, do início ao fim, quantas vezes jul- 
gar necessário. Quando decidir fazer al- 
guma modificação, corrija, apague ou 
introduza o que quiser. Trabalhe à von- 
tade, até que o texto lhe agrade. 

Uma outra possibilidade que o pro- 
grama lhe oferece é a de armazenar o 
texto elaborado, para usá-lo em outra 
oportunidade ou, apenas, para saber 
mais tarde o que escreveu. 

Os recursos disponíveis neste progra- 
ma são semelhantes, embora muito mais 
simples, aos dos mais modernos proces- 
sadores detexto usados, por exemplo, para 
produzir o que você está lendo agora. 
Quem já viu como tudo isso era feito há 
pouco tempo (e ainda é, em alguns luga- 
res) não terá dúvidasa respeito dasvanta- 
5 gens de utilizar um programa editor. 




O programa do Spectrum foi elabo- 
rado para uso com um gravador casse- 
te. Se você tem um Microdrive, faça as 
modificações necessárias. 

As funções de edição são quase idên- 
ticas às do BASIC e, portanto, não é ne- 
cessário um editor especial. Todas as en- 
tradas de texto, bem como as alterações, 
devem ser feitas na parte inferior da te- 
la, a área de trabalho, ficando a parte 
superior para a visualização do que já 
foi escrito. 



Durante a edição de linhas na área de 
trabalho, pressione <CAPS SHIFT> 
e 5 para mover o cursor para a esquer- 
da e <CAPS SHIFT> e 8 para movê- 
lo para a direita. Quando ele estiver na 
posição adequada, digite os caracteres 
necessários. Para apagar, coloque o cur- 
sor à direita do caractere e pressione 
<CAPS SHIFT> e 0. 

Para transferir o texto para a memó- 
ria e para a área superior, lede <EN- 
TER>. Linhas com mais de 64 carac- 
teres irão automaticamente para a me- 
mória, visto que a área de trabalho su- 
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porta no máximo duas linhas de texio. 
Mas elas permanecerão juntas para efei- 
to de impressão, a não ser que se usem 
comandos de formatação. 

As teclas de cursor para cima e para 
baixo são usadas para localizar linhas do 
texto na memória. O marcador fica 
abaixo da linha de interesse, na área de 
visualização do texto. Esta linha pode 
ser copiada para a área de trabalho 
usando-se a função EDIT habitual — 
pressione <SHIFT> e 1. Para apagar 
a Unha, pressione <CAPS SHIFT> e 
9, deixando o modo editor e, em segui- 



da, <CAPS SHIFT> e < SYMBOL 
SHIFT > simultaneamente. 

Para ler todo o texto da memória, use 
as teclas de cursor para cima e para bai- 
xo ou < CAPS SHIFT > e 6 e < CAPS 
SHIFT> e 7. Estas teclas moverão o 
texto para cima ou para baixo, uma li- 
nha de cada vez. 

1000 REM imprime a tela 

1005 PLOT 0.13: DRAW 255,0: PLO 

T 0,14: DRAW 255,0 

1010 PRINT AT 0,0: : FOR n=p-10 

TO p+B 

1020 IF n<l OR n>200 TBEN PRIN 

T bS: GOTO 1050 

1025 IF n-p THEN PRINT 

1030 PRINT tS(n> 

1040 POKE 22526+320,120 

10 50 NEXT n 

1060 RETURN 

2000 REM entrada 

2010 L ET iS""": LET jS-"" 

2015 PRINT *1;AT 0,0:1$; FLASH 

1; BRIGHT li" ": FLASH 0: BRIGH 

T 0;jS;" " 

2020 PAUSE 0: LET a5 = INKEYS : IF 

aS = "" THEN GOTO 2020 
2025 SOUND .01,20 
2030 IF a$<CHRS 32 THEN GOSUB 

2500 

2040 IF aS>CHRS 31 AND aS<CHR$ 
123 THEN LET lS-lS+aS 
2042 IF aS-CHRS 13 AND b*ext-6 
THEN PRINT #1;AT O.OisSísS: FL 
ASH 1 : "ARQUIVO LOTADO" : SOUND 2 
,10: RETURN 

2045 IF aS-CHRS 13 OR LEN iS+LE 
N j3=64 THEN PRINT ( l ; AT 0.0;s 
S:sS;sS: LET iS=iS+J$: GOTO 210 

0 

2050 IF aS=CHRS 14 THEN RETURN 

2052 IF aS=CHRS 6 THEN INPUT " 
Introduza palavra procurada", L 
INE zS: IF zS = "" THEN GOTO 205 
2 

2053 IF aS=CHRS 6 THEN LET p-4 
: GOSUB B000 

2054 IF aS-CHRS 4 THEN GOSUB B 
000 

2055 IF a$=CHR$ 5 THEN GOSUB 8 
500 

2060 GOTO 2015 

2100 IF LEN iS>32 THEN GOTO 21 
50 

2105 FOR n«b+l TO p STEP -1 
2110 LET tSfn+l)-tSín) 
2120 NEXT n 

2130 LET t$(n+l)-i3: LET p=p+l : 
LET b=b+l 



2140 GOSUB 1000: GOSUB 2500: CO 
TO 2000 

2150 FOR n-b+1 TO p STEP -1 
2160 LET tS(n+2)-tS(n) : LET tfl ( 
n+3)-tS<n+l) 
2170 NEXT n 

2180 LET tS(n+l)"iS( TO 32): LE 
T t$(n+2)-iS(33 TO ): LET p-p+2 
: LET b-b+2 
2190 GOTO 2140 

2200 LET p-p-1: FOR n-p TO b+1 

2210 LET tS<n)=tS(n+l> 

2220 NEXT n 

2225 LET b-b-1 

2230 GOSUB 1000 

2240 RETURN 

2500 REM códigos de controle 

2520 IF aS-CHRS 10 AND p<b-2 TH 

EN LET p-p+1: GOSUB 1000 

2530 IF aS-CHRS 11 AND p>t+3 TH 

EN LET p=p-í : GOSUB 1000 

2540 IF aS-CHRS 12 AND LEN iS>0 

THEN LET i$ = iS ( TO LEN iS-1) 
2550 IF aS=CHRS 8 AND LEN i$>0 
THEN LET ]S-lS(LEN iSl+jS: LET 

tS=lS( TO LEN iS-1) 
2560 IF aS-CHRS 9 AND LEN jS>0 
THEN LET l 3= l3 + j$ 1 1 ) : LET jS-J 
3(2 TO ) 

2570 IF aSOCHRS 7 THEN GOTO 2 

560 

2572 LET jS-t$(p-l>: LET i3-"": 

PRINT 11 : AT 0 , 0 ; aS ;sS 
2575 IF jSILEN jS)-CHRS 32 THEN 
LET jS-jSt TO LEN 39-1) ! IF L 
EN jS>0 THEN GOTO 2575 
2580 IF aS-CHRS 15 AND p>4 THEN 

GOSUB 2200 
2690 RETURN 
3000 REM cores 

3010 PRINT AT 10 . 4 ; "Se lecione c 
or de fundo (0-7)" 
3020 PAUSE 0: LET aS° INKEYS : IF 
aS<"0" OR aS>"7" THEN GOTO 30 

20 



D 



Em geral, o texto é exibido na tela (e 
eventualmente impresso) em letras maiús- 
culas. Minúsculas podem ser usadas te- 
clando < SHIFT > 0. Na tela, aparecerão 
como caracteres invertidos (fundo escu- 
ro, caractere claro), 

Os controles de edição seguem as di- 
retrizes anteriormente mencionadas. E- 
dita-se o texto na área de trabalho ,_ lo- 
calizada na parte inferior da tela. A par- 
te superior é utilizada para mostrar o 
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texto que já está na memória. As teclas 
de controle do cursor têm um papel im- 
portante na edição. As teclas <-*> e 
< — > permitem que você mova o cur- 
sor pelo texto na área de trabalho. Se 
você pressionar <SH1FT> juntamen- 
te com < — >, o cursor pulará para o 
inicio ou fim da linha. 

Para inserir caracteres em um ponto 
da Unha na área de trabalho, coloque o 
cursor à direita do local escolhido e te- 
cle o que desejar. Não se pode sobrepor 
caracteres. Para eliminar erros, coloque 
o cursor sobre o caractere e tecle a seta 
para baixo. 

Para ativar o modo editor, tecle a se- 
ta para cima. O cursor vai para a últi- 
ma posição acessada, indicada por um 
sinal > piscando. 

No modo editor, pode-se inspecionar 
o texto da memória, rolando-o para ci- 
ma e para baixo com as setas respecti- 
vas. Avanços (ou retrocessos maiores) 
são possíveis com as teclas U e D, que 
pulam de 10 em 10 linhas. 

Se quiser apagar linhas de texto, po- 
sicione o marcador logo abaixo da linha 
e pressione <SHIFT> e seta para bai- 
xo, ao mesmo tempo. Linhas em bran- 
co podem ser inseridas a partir da área 
de trabalho, pressionando-se <EN- 
TER> quando ela está vazia. 

Para copiar uma linha da memória 
para a área de trabalho, coloque o mar- 
cador logo abaixo dela e pressione C 
(dentro do modo editor), A linha mo- 
dificada não substitui a original, deven- 
do esta ser apagada depois. Volta-se do 
modo editor para a área de trabalho 
teclando-se <ENTER>. < CLE AR > 
retorna da área de trabalho para o me- 
nu de edição. 

2500 PM-5:IF CP<5 THEN PM-CP 
2510 TBS-INKEYS : IF TBS-"" THEN 
PRINT «PM*32,"":PRINT #PM*32."> 
":GOT0 2510 

2520 CP-CP+(TBS-""")-(TB$-CHRS( 
10) }+10* ( <TBS-"U- ) - (TB$-"D") ) 
2530 IF CP<1 THEN CP-1 
2540 IF CP>TL THEN CP-TL 
2550 GOSUB 2090 

2560 IF TBS-CHRSU3) THEN RETUR 

H 

2570 IF CP>1 AND TBS-CHRSI91) T 
HEN TL-TL-l:FOR K-(CP-l) TO TL: 
TXS(K)-TXS CK+l) : NEXT: TXS (TL+D- 
-*:CP-CP-l:GOSUB 2090 
2580 IF CP>1 AND TBS-"C" THEN F 
0R K'32 TO 1 STEP -líIF MID$ (TX 
S(CP-l) ,K,1)-"" THEN NEXT ELSE 
AS-LEFT3(TX3(CP-1) , K) +" ' :RETURN 
2590 IF TBS-"P" GOSUB 5070 
2600 IF TBS-"S" THEN SF-SF+1:IF 
SF-1 THEN SS-CP ELSE SE-CP : SF- 
0 ' GOSUB 5130 
2610 GOTO 2500 

3000 RETURN ' LINHA TEMPORÁRIA 
III 4000 CLS:IF TL-1 THEN PRINT «7, 



"nada para guardar"FOR Z-l TO 1 
000 : NEXT : RETURN 

4010 CLS:LINEINPUT" NOME DO ARQ 
UIVO?" i FS 

4020 IF LEFTS {FS , 1) <"A" OR LEFT 

S{FS,1)>"Z" THEN 4010 

4030 IF TS=1 THEN 4120 

4040 CLS : MOTORON : AUDIO ON:PRINT 

"POSICIONE O TAPE E PRESSIONE 

<ENTER>" 
4050 IF INKEYSOCHHSÍ13) THEN 4 
050 ELSE MOTORO FF : AUDIO OFF : PRI 
NT"POSICIONE O GRAVADOR EM 1 REC 
' E PRESSIONE <ENTER>" 
4060 IF INKEYS<>CHRS(13) THEN 4 
060 

4070 MOTORON ! FOR K-l TO 1000:NE 

XT:OPEN"0".|-l,FS 

40B0 PRINT i-l.CP.TL 

4090 FOR K-l TO TL-1: PRINT 

TXS (K) : NEXT 

4100 GLOSE *-l 

4110 RETURN 

4120 CLS ■ PRINT"CERTIFIQUE-SE DE 
QUE 0 DRIVE ESTA LIGADO E O 
DISCO INSERIDO. PRESSIONE <ENT 

ER>PARA CONTINUAR" 

4130 IF INKEY$OCHR$(13) THEN 4 

130 ELSE FS=FS+"/DAT" 

4140 OPEN "O", #1. FS 

4150 WRITE tl ,CP,TL 

4160 FOR K-l TO TL-1 

4170 WRITE ll.TXS(K) 

4180 NEXT:CLOSE tl : RETURN 

4500 CLS:PRINT ê8 , BLS ; "carregar 

" ;BLS ; "um" ; BLS : "arquivo" ;BLS : IF 
TL=1 THEN 4540 

4510 PRINT "VOCE TEM CERTEZA (S 

/N)7" 

4520 RS-INKEY$:IF RS<>"S" AND R 
S<>"N" THEN 4520 
4530 IF RS-"N" THEN RETURN 
4540 CLS : LINEINPUT"NOME DO ARQU 
IVO: ":FS 

4550 IF LEFTStFS.lX "A" OR LEF 

TS(FS,1)>"Z" THEN 4540 

4560 IF DL-1 THEN 4645 

4570 KOTORON:AUDIOON:PRINT"POSI 

CIONE O TAPE EM ' PLAY ' E PRE 

SSIONE <ENTER>" 

4580 IF INKEYSOCHRS (13) THEN 4 
580 

4590 OPEN "I",|-1,F3 

4600 INPUT t~l.CP.TL 

4610 FOR K-l TO TL-1:INPUT #-1. 

TXS (K) : NEXT 

4620 CLOSE |-1:G0SUB 2090 

4630 TX$(TL)=STRINGS[32,126) 

4640 RETURN 

4645 FS-FS + VDAT" 

4650 OPEN "I", 11, FS:INPUT II, 

CP. TL 

4660 FOR K-l TO TL-1:INPUT tl.T 
XS(K) 

4670 NEXT:CLOSE t 1 : RETURN 
5000 CLS:PRINT ê9.BLS;"selecao" 
;BL$;"e":CHR${124) ; "s* ; BLS : PRIN 
T €96, "CARREGAR DE (F) ITA OU (D 
} ISCO?" ; 

5010 BS-INKEYS:IF BSO"F" AND 
BSO"D" THEN 5010 
5020 PRINT BS:DL-0:IF BS-"D" TH 
EN DL-1 



5030 PRINT : PRI NT "GRAVAR EM (F)I 
TA OU (D> ISCO?" ; 

5040 B$-INKEYS:IF BSO"F" AND & 
SO"D" THEN 5040 

5050 PRINT BS:TS"0:IF BS='D" TH 
EN TS-1 
5060 RETURN 

5070 RETURN 'LINHA TEMPORÁRIA 
5130 RETURN ' LINHA TEMPORÁRIA 
5500 CLS:PRINT «3 , BLS ; "prepar ac 
ao" ; BLS ; "da" ;BLS; "impressora" ;B 
LS 

5510 PRINT §128. ; : INPUT" LARGURA 
DO FORMULARIO";MW:MW-INT(MW) :I 
F MW<1 THEN 5510 

5520 INPUT "COMPRIMENTO DE LINH 
A";TW:TW-INT<TU) : IF TW<1 OR TW> 
MW THEN 5520 

5530 INPUT"COMPRIMENTO DO FORMU 
LARIO";PL:PL=INT(PL) :IF PL<1 TH 
EN 5530 

5540 INPUT"LINHAS POR PAGINA" ;T 
H : TH"INT (TH) : IF TH< 1 OR TH>PL T 
HEN 5530 

5550 GP-INTÍ (MW-TW) /2) :LFS-STRI 
NGS (INT( (PL-THÍ /2) ,13) 
5560 PRINT: PRINT: PRINT" CONFIRM 
A (S/N)?" 

5570 RS"INKEYS:IF RSO"N" AND R 
SO"S" THEN 5570 

5580 IF RS-"S" THEN RETURN ELSE 
5500 



Os editores para o MSX e o Apple se- 
guem, em linhas gerais, o que já foi di- 
to. É importante prestar atenção quan- 
do se usam minúsculas, pois as respos- 
tas requeridas pelo computador só são 
aceitas em maiúsculas. Por outro lado, 
dentro do editor, podem-se usar sem 
problemas os sinais de pontuação e 
acentuação (esta, no caso do MSX). 

Trabalha-se o texto na área situada na 
parte inferior da tela. Quando se entra 
nesta área, o cursor é visível no começo 
na linha. A partir dai, escreve-se normal- 
mente. As setas para a direita e para a 
esquerda movimentam o cursor nas res- 
pectivas direções. Pode-se acelerar sua 
movimentação por meio de <CTRL> 
<A>e<CTRL> < S >. A pressão si- 
multânea dessas teclas coloca o cursor 
na primeira e última posição da linha, 
respectivamente. Para inserir um carac- 
tere, leve o cursor para a posição ime- 
diatamente à direita de onde fará a in- 
serção e digite o caractere. Não é possí- 
vel sobrepor caracteres. Para apagar al- 
go errado, coloque o cursor sobre o ca- 
ractere e digite < CTRL > <D>. 

Para ativar o modo editor, pressione 
<CTRL> <E>. O marcador do texto 
começará a piscar. Teclando <CTRL> 
<0> e <CTRL> <Z>, você poderá 
inspecionar o texto todo. Esses comandos 
fazem com que o marcador (e o texto) ro- 
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Linhas em branco podem ser criadas 
simples menle leclando-se < RETURN > , 
com a área de trabalho vazia. 

O programa para o Apple armazena 
e grava dados somente em disco. Já o 
programa para o MSX trabalha apenas 
com gravador cassete. Não estranhe se 
a leitura de dados no Apple for moro- 
sa. Para não haver problema com os si- 
nais de pontuação, é neces- 

Isário que os caracteres se- 
jam lidos um de cada vez. 
Se você quiser mais veloci- 
dade, não se importando 
com a pontuação, elimine 
o laço das linhas 4600 e 
4610 e deixe apenas a ins- 
trução INPUT TX$(K). 



2500 PM=9:IF CP<9 THEN PM-CP 
2510 TBS- INKEYS - I F TBS = " "THEN L 
0 , PM : PRINTCHRS (219) ; :PRIN 
TCHRS(S) ;CHR5(175) ; : GOTO 2510 
2520 CP=CP+ (TBS=CHR5 (17) ) - (TBS = 
CHRS (26) 1+10" ( {TBS-CHRS (23) >-{T 
BS=CHRS<24) ) ) 
2530 1F CP<1 THEN CP-l 
2540 IF CP>TL THEN CP-TL 
2550 GOSUB 2080 

2560 IF TB$=CHR${27) THEN RETUB 

2570 IF CP>1 AND TBS = CHRSU2) T 
HEN TL=TL- 1 : FOR K=CP~1 TO TL : TX 
S(K)=TXS(K+1) :NEXT:TXS(TL+1)-"" 
:CP=CP-1 :GOSUB 20B0 
2580 IF CPM AND TBS=CHRS(3) TH 
EN A5=TXS (CP-1 ) +" " : HETURN 
2590 IF TBS*CHRS(16) THEN GOSUB 
5000 

2600 IF TBS="CHRS (15) THEN SF = SF 
+ 1:IF SF=1 THEN SS-CP ELSE SE-C 
P r SF = 0 ' GOSUB 5060 
2610 GOTO 2500 

3000 RETURN ' LINHA TEMPORARTA 
40110 CLS:BL$="Gravar na fita":G 
OSUB 220:TF TL=1 THEN BEEP : LOCA 
TE 12,ll:PRINT"Nada a gravar!*: 
FOR Z-l TO 1000 : NEXT : RETURN 
4010 LOCATE 4.4: LI NE INPUT "Nome 



!em para cima ou para baixo. <CTRL> 
<W > e < CTRL > < X > provocam sal- 
tos maiores (de 10 linhas). 

Para apagar linhas de texto, estando 
no modo editor, pressiona-se <CTRL> 
< L > . A linha logo acima do marcador 
será apagada. 

Quando quiser transferir uma linha 



de memória para a área de trabalho, te- 
cle < CTRL > < C >, com o marcador 
embaixo da linha desejada. A linha apa- 
recerá na área de trabalho e poderá ser 
editada imediatamente. Note que, ao te- 
clar < RETURN > para devolvê-la pa- 
ra a memória, ela não substituirá a ori- 
ginal. É necessário apagá-la. 



4020 IF LEFTS (FS . 1 ) <"A" OR LEFT 
S (FS. 1) >"Z"THEN 4010 
4030 LOCATE 1 . 6 : PRINT" Posicione 

a fita e pressione <RETURN>" 
4040 IF 1NKEYSOCHRS (13) THEN 4 
040 ELSE PRINT : PRINT"Deme o gr 
avador pronto para iniciar g 



4050 IF INKEY5<: 
050 

4060 OPEN FS FOR OUTPUT AS |1 

4070 PRINT*1 . CP, TL 

4080 FOR K=l TO TL-1 : PRINT | 1 , TX 

S (K) : NEXT 

4090 CLOSE t) 

4 100 RETURN 

4500 CLS:BI.$="Carregar da fita" 
:GOSUB 220:IF TL-1 THEN 4540' 
4510 LOCATE 1 2 , 1 2 : PRINT"Conf 1 r« 
e (S/N) "; 
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4520 BS-INKEYS: IF RS = "" THEN 45 
20 

4530 IF BSO"S" THEN BETURN ELS 
E TL-1 :GOTO 4500 

4540 LO CATE 4.4: LINE INPUT "Nome 
do arquivo? " ;FS 

4550 TF LEFTS(FS.1K"A" OR LEFT 
S(FS. 1) >"Z" THEN 4540 
4560 PRINT : PRINT: PRINTTAB (2) ; "P 
osicione a fita e tecle <RETURN 

4570 IF INKEY5<>CHRS(13)THEN457 
□ 

4580 PR INT : PRINT" De ixe o gravad 
or pronto para leitura e teci 
e <RETURN>" 

4590 IF INKEYS<>CHBSÍ13)THEN459 

0 

4600 OPEN FS FOR INPUT AS *1 

4610 TNPUT #1 ,CP,TL 

4620 FOR K=l TO TL-1 : LI NE INPUT 

»1,TXS(K) : NEXT 

4630 CLOSE 1 1 : RETURN 

5500 CLS:BLS="Conf igura íropreag 

ora":GOSUB 220 

5510 LOCATE 0 . 5 : PBTNT"Conf l gur a 



2560 IF TB3 ■ CHRS (27) THEN 
RETURN 

2570 IF CP > 1 AND TBS = CHRS 
(12) THEN TL - TL - 1 : FOH K - 
CP - 1 TO TL:TX5(K) - TXSIK + 

1) : NEXT tTXStTt + D - " " : CP = 
CP - 1 : GOSUB 2090 

2580 IF CP > 1 AND TBS - CHRS 
(3) THEN AS = " " + TXSfCP - 1 

) + " " : RETURN 

2590 IF TBS - CHRS (16) THEN 

GOSUB 5200 
2600 



çao . 



al : 



5520 PRINT : PBINT : PRINT" Lar g 
da linha: ";MW;" col" 
5530 PHINT"Largura do texto 



TW ; 1 



col" 



5540 PRINT:PflINT"CoHipriinento da 

pag. : " ;PL ; " 1 inhaa" 
5550 PRINT-Comprimento do texto 
! " i TH ; " linhas" 

5560 PRINT : PR TNT : PR INT "Quer alt 

5570 RS"INKEYS:IF RS-"" THEN 55 

70 

5580 IF RSO"S" THEN RETURN 
5590 CLS:GOSUB 220:LOCATE 0.8 
5600 INPUT"Largura da linha ";M 
H 

5610 MW-INT (MW) ! IF MW<1 THEN 56 
00 

5620 INPUT"Largura do texto ";T 
■ 

5630 TW=INT(TW) : IF TW<1 OB TW>M 
U THEN 5620 

5640 PRINT:INPUT"Comprimenl:o da 



pag. 



iPL 



5650 PL=INT(PL) :IF PL<1 THEN 56 
40 

5660 INPUT"Comprimento do texto 
• ;TH 

5670 TH"INT (TH) : IF TH<1 OR TH>P 
L THEN 5660 

5680 GP=INT( [MU-TW)/2> :LF-INT( ( 
PL-THJ/2) :LFS"STRTNG3 (LF.13) 
5690 GOTO 5500 



• 



2500 PM - 9: IF CP < 9 THEN PM 
- CP 

2510 HTAB li VTAB PM + 1 : PBIN 
T ">": CHRS (8);: GET TBS 
2520 CP = CP + (TBS = CHRS (26 
)) - (TBS - CHRS (171) + 10 * 
( (TBS - CHRS (24)) - (TBS - C 
HRS (23))) 

2530 IF CP < 1 THEN CP - 1 
2540 IF CP > TL THEN CP = TL 
2550 GOSUB 2090 



4000 HOME :BL$ = "GRAVAR": GOS 
UB 250 

4010 IF TL - 1 THEN PRINT CH 
RS (7);: HTAB 13: VTAB 12: PRIN 
T "NADA A GRAVAR! ": FOR Z - 1 T 
O 2000: NEXT : RETURN 
4020 HTAB 5: VTAB 5: PRINT "NO 
ME DO ARQUIVO? (MAX 20 CARACT) " 
: INPUT "->";F$ 

4030 1/ ASC (FS) < 65 OR ASC 

(FS) > 90 THEN 4000 
4040 FS - LEFTS (FS,20):FS - F 
S + ".TXT" 

"OPEN" ; FS ; " . S" ; S 
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T TXS(K) : NEXT 

4110 PBINT DS;"CLOSE-: RETURN 
4500 HOME :BLS = "CARREGAR": G 
OSUB 250 

4510 HTAB 5: VTAB 5: PRINT "TE 
CLE [CR] PARA RETORNAR AO MENU" 
: HTAB 5: PRINT "NOME DO ARQUIV 
O?": INPUT "->":FS 
4520 IF FS - "" THEN RETURN 
4530 IF ASC (F$) < 65 OR ASC 

(FS) > 90 THEN 4500 
4540 FS = FS + " .TXT" 
4550 PRINT DS : "OPEN" ; FS ; " . S" ; L 



1 ; 



iL2 



4560 PRINT DS;"READ";FS 
4570 INPUT CP, TL 
4580 FOR K = 1 TO TL - 1 
4590 TXS(K] = 

4600 GET BS: IF BS - CHRS (13 



5020 VTAB 8: PRINT "CONFIGURAC 
AO ATUAL : " 

5030 PRINT : PRINT TAB ( 5) "CA 
RREGA DE ": PRINT TAB { 10) "SLO 
) THEN NEXT : GOTO 4620 
4610 TXS(K) = TXS{K) + BS : GOTO 
4600 

4620 PRINT CHRS (D: PRINT DS 
;'CLOSE": RETURN 

5000 HOME :BLS - "CONFIGURA E/ 
S" : GOSUB 250 

T ";L1: PRINT TAB ( 10) "DRIVE " 

;L2 

5040 PRINT : PRINT : .PRINT TA 
B{ 5)"GRAVA EM PRINT TAB ( 1 
0)"SLOT *lSIl PRINT TAB ( 10) "D 
RIVE ";S2 

5050 PRINT : PRINT : PRINT "QU 
ER ALTERAR? ' j 




5060 GET RS ! IF RS < > "S" AN 

D BS < > "N* THEN 5060 

5070 IF RS - "N" THEN RETURN 

5080 HTAB 1: VTAB 8: CALL - 9 

58: PRINT "CARREGA DE " 

5090 VTAB 10: CALL - 866: INP 

UT "SLOT? ":L1 

5100 IF LI < 1 OR LI > 7 THEN 
5090 

5110 VTAB 11: CALL - 868: INP 
UT "DRIVE? * i L2 

5120 IF L2 < > 1 AND L2 < > 
2 THEN 5110 

5130 VTAB 14: PRINT "GRAVA EM" 
5140 VTAB 16: CALL - 868: INP 
UT "SLOT? ";S1 

5150 IF SI < 1 OR SI > 7 THEN 
5140 

5160 VTAB 17: CALL - 868: INP 
UT 'DRIVE? "iS2 

5170 IF 32 < > 1 AND 52 < > 
2 THEN 5160 
5180 GOTO 5020 

5200 RETURN : REM LINHA TEMPO 
RARIA 

5300 RETURN : REM LINHA TEMPO 
RARIA 

5500 HOME :BLS - "CONFIGURA IM 
PRESSORA" : GOSUB 250 
5510 VTAB 5: PRINT "CONFIGURAC 
AO ATUAL:" 

5520 PRINT : PRINT : PRINT "LA 
RGURA DA LINHA: ";MU:" COL." 
5530 PRINT "LARGURA DO TEXTO: 
"iTW;" COL." 

5540 PRINT : PRINT "COMPRIMENT 

O DA PAG.: -:PL;" LINHAS" 

5550 PRINT "COMPRIMENTO DO TEX 

TO: " ; TH ; " LINHAS" 

5560 PRINT : PRINT : PRINT "OU 

ER ALTERAR? " ; 

IF RS < > "S" AN 
THEN 5570 
"N" THEN RETURN 
VTAB 5: CALL - 9 



5570 GET RS: 
D RS < > "N" 
5580 IF RS ■ 
5590 HTAB 1 : 



58 

5600 VTAB 8: INPUT "LARGURA DA 

LINHA? "jMW 
5610 MW - INT (MU) : IF MW < 1 
THEN 5600 

5620 VTAB 9: INPUT "LARGURA DO 

TEXTO? ";TW 
5630 TW - INT (TW) : IF TW < 1 
OR TM > MW THEN 5620 
5640 VTAB 11: INPUT "COMPRIMEN 
TO DA PAG. ? ";PL 
5650 PL - INT (PD : IF PL < 1 
THEN 5640 

5660 VTAB 12: INPUT "COMPRIMEN 

TO DO TEXTO? " i TH 

5670 TH - INT (TH): IF TH < 1 



5690 IF LF = 0 THEN 5500 

5700 FOR 2-1 TO LF : LFS - LF$ 

♦ CHRS (13) : NEXT 
5710 GOTO 5500 
10030 PRINT CHRS (4);"PR»J." 
10040 PRINT CHRS (9) ; "31N" 
1006O LIST 5200 - 
10070 PRINT CHRS (4) :"PR*0" 



IIIIIIIIIIIHMI » PROGRAMAÇÃO DE JOGOS 2, ■■■■lllllllllll 



Nosso programa de simulação é muito 
semelhante aos utilizados para treinar 
pilotos em vóo por instrumentos. 
A seção apresentada neste artigo 
desenha a cabine de comando. 



Em matéria de jogos para computa- 
dor, variedade é o que não falta: você 
pode escolher desde a pura fantasia, in- 
do se aventurar num mundo imaginário, 
até a simulação de situações da vida 
real. Este último tipo de programa per- 
mite que testemos nossa habilidade em 
enfrentar toda sorte de perigo sem que 
com isto corramos risco de vida ou de 
perda material. 

Programas de simulação de vôo, es- 
pecificamente, têm uma aplicação prá- 
tica muito importante: companhias aé- 
reas e escolas de aviação fazem uso de- 
les no treinamento de seus pilotos. Po- 
rém, não falta a tais programas um to- 
que de fantasia: sozinho na cabine de 
comando, toda a tripulação acometida 
por uma doença misteriosa, você ater- 
rissa o avião em segurança, usando ape- 
nas uma das mãos. 



PROGRAMAS DE TREINAMENTO 



Para treinar pilotos de verdade, 
empregam-se simuladores totais ou "fa- 
se 3", no jargão de aviação. Estes simu- 
ladores, muito sofisticados, permitem 
que o usuário experimente todas as sen- 
sações de um piloto em situação real de 
vóo. Ele poderá ver o que o piloto vê 
de sua cabine, terá a impressão de ater- 
rissar, decolar e enfrentar turbulência e 
ouvirá os sons de um vôo autêntico, 
clusive os comandos do controle de trá 
fego aéreo. Teoricamente, um piloto po 
de completar seu treinamento em um si 
mulador desse tipo, sem jamais ter sai 
do do chão. 



SIMULADORES DE MESA 



Os programas de simulação de vôo 
em microcomputadores são, a exemplo 
do nosso, bem menos complexos, mas 
mostram-se também muito úteis para o 
desenvolvimento dos reflexos do piloto. 

Os simuladores de mesa são essen- 
ciais para o ensino de vôo por instru- 
mentos, um artifício que permite ao pi- 
loto dirigir o aparelho baseado apenas 
nos instrumentos do painel — o que po- 

i de ser necessário no caso de más condi- 

l ções de tempo. 



0 QUE FAZ NOSSO SIMULADOR 



Nosso programa será apresentado em 
três partes. Ele supõe que o piloto assu- 
miu o comando a 2.000 metros de al- 
titude e a 20.000 metros do centro da 
pista. Pela janela, pode avistar o ho- 
rizonte (quando há visibilidade) e um 
ponto distante, que é a cabeceira da 
pista. Do mesmo modo que um piloto 
experiente, você deverá usar o racio- 
cínio para tomar decisões correias — 
baseando-se nos instrumentos do painel 
— e trazer seus passageiros ao solo 
com segurança. 



pista está ao norte e as condições de tem- 
po são boas. Aterrissar nestas condições 
é fácil, e o jogo perderia toda a graça 
se não houvesse outras situações. Para 
criar dificuldade, podemos mudar a ve- 
locidade do vento: uma rajada lateral, 
por exemplo, dificulta muito a ater- 
rissagem. 



0 CONTROLE DO AVIA0 



O nível do controle que temos no si- 
mulador é o mesmo de que dispõe um 
piloto em condições reais — embora seja 
necessário pressionar botões em vez de 
usar um manche. 



OS INSTRUMENTOS 



O painel tem quatro mostradores. O 
primeiro informa a velocidade do ven- 
to íairspeed). Esta varia conforme este- 
jamos mergulhando (a velocidade au- 
menta), subindo (diminui) ou mudando 
a potência do motor. Um contador lo- 
go abaixo do de velocidade indica a in- 
clinação do vento (bearing). 

Um segundo mostrador revela o ní- 
vel do horizonte em relação ao aeropla- 
no. Por meio dele, mesmo sem visibili- 
dade, saberemos onde o horizonte está. 
O contador logo abaixo aponta a dire- 
ção da pista de pouso (runway). 

O terceiro mostrador é um altímetro 
com dois ponteiros: um para centenas 
e outro para milhares de metros. O con- 
tador abaixo calcula o desvio do apare- 
lho do centro da pista (drift). Como ela 
tem 100 metros de largura, um desvio 
de + 50 ou -50 ao aterrissarmos será fa- 
tal. O último mostrador indica as rota- 
ções do motor por minuto (rpm). O con- 
tador abaixo fornece a distância do cen- 
tro da pista. 



No TRS-Color, a imagem que vemos 
da cabine torna-se mais clara à medida 
que nos aproximamos do solo. Ao con- 
trário dos outros micros, onde o piloto 
precisa se orientar pelos dados do pai- 
nel, no TRS-Color pode-se observar a 
pista. Quando assumimos o controle, a 




IIIIIIIIIIIHI » nOCIAMAaODEJOGOS 2, «■■||||||||| 



O QUE E SIMULAÇÃO DE VOO ■ O PAINEL DO AV IÃO 

PROGRAMAS ■ COMO CRIAR A SENSA ÇÃO 



DE TREINAMENTO DE MOVIMENTO 



APRENDENDO A ATERRISSAR ■ UMA ESCOLA DE 



VÓO POR INSTRUMENTOS PILOTAGEM EM CASA 



Em um avião, o manche é puxado ou 
empurrado, movendo os estabilizadores 
da cauda para cima ou para baixo, con- 
forme estejamos querendo subir ou des- 
cer. Usaremos duas teclas para obter lai 
efeito. A seção do programa que cuida 
disso será apresentada no terceiro arti- 
go da série. 

Para virar o aeroplano, o manche de- 
ve ser movido lateralmente, o que acio- 
na os ailerons da asa. Também usare- 
mos teclas para virar o avião. 

Dois outros controles nos permitirão 
acelerar ou retardar o motor, o que é es- 
sencial para realizar a aterrissagem de 
maneira correta ou evitar que o apare- 
lho mergulhe. 



Os aviões não conseguem voar abai- 
xo de uma certa velocidade. Em nosso 
programa, se a velocidade cair abaixo 
de 30 metros por segundo, o avião mer- 
gulhará, entrando em parafuso. Se es- 
tivermos a uma certa altitude, haverá 
tempo suficiente para evitar um desas- 
tre fatal, mas o perigo é iminente. 



A DIVISÃO DO PROGRAMA 



Dividimos o programa em três par- 
tes por ele ser muito longo e complexo. 



Na primeira parte, preparamos a te- 
la, desenhando o interior da cabine de 
comando, com o pára-brisa e os quatro 
mostradores e contadores. As legendas 
dos contadores e mostradores estão cm 
inglês, como nos aviões reais. 

Os comandos BASIC da listagem já 
são nossos conhecidos. Os usuários do 
TRS-Color, contudo, encontrarão um 
novo comando: PCOPY. Este é especí- 
fico desta linha de micros e, mais tar- 
de, será explicado em detalhes. 

Na segunda parte do programa, toma- 
mos os instrumentos do painel sensíveis 
aos movimentos do avião. Uma seção 
temporária fará com que o aparelho voe 
ao acaso, sem piloto, para que possamos 
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ver os instrumenlos funcionando. 

A pane final permitirá que você as- 
suma o comando e teste suas habilida- 
des na aterrissagem do avião. 



A CABINE DE COMANDO 



Para desenhar os instrumentos, digite 
i primeira parte do programa. 



1 POKE 23658.8 
110 GOTO 5000 
5000 LET PP— 1: LET RH— 1 
5010 LET C-PI/180: LET PY — 2000 
: LET PZ-2000: LET AS-150 
5110 PLOT 10,175: DP. AU 235,0: D 
HAU 0,-90: DRAW -235,0: DP.AW 0, 
90 

5120 FOR K-0 TO 3: CIRCLE 35+K* 
60.50.20: NEXT K 

5130 PRINT AT 12,2;"SPEED HOR 
ZN ALT RPM" 

5150 PRINT AT 20,0:"BEARING RU 

NUAY DRIFT " DISTANCE" 

5170 PLOT 87,50: DP AU 5,0: DPAU 

3.-3: DRAU 3.3: DRAU 5,0 
5180 LET X-35: LET Y-50: GOSUB 
7000: LET X-155: GOSUB 7000: LE 
T X-215: GOSUB 7000 
6900 STOP 

7000 FOfl K-0 TO 2*PI STEP PI/5: 
PLOT X+17-SIN K,Y+17*COS K: DR 
AW 2*SIN K,2*COS K: NEXT K: RET 
URN 

O POKE da linha 1 trava o compu- 
tador em letras maiúsculas. As linhas 
5000 e 5010 posicionam o avião no céu: 
a 2,000 metros de altitude e a 20.000 me- 
tros da pista, parado no ar. As linhas 
que movimentam o aparelho serão apre- 
sentadas no próximo artigo. 

A linha 5110 desenha a janela do 
avião, e a 5120, usando um laço 
FOR. ..NEXT, os mostradores abaixo 
dela. As linhas 5130 e 5150 imprimem 
os rótulos para os mostradores. A linha 
5170 desenha um diagrama de avião no 
mostrador de horizonte — o horizonte 
artificial não será traçado por enquan- 
to. A linha 5 1 80 e a sub-rotina 7000 cal- 
culam as posições dos números dos mos- 
tradores: velocidade do vento, altitude 
e rpm. As funções S1N e COS são usa- 
das conforme explicações dadas no ar- 
tigo da página 334. 

Quando você executar o programa, 
o interior da cabine aparecerá na tela. 



10 SCREEN 2.2:COLOR 15,4,2 
20 FOR 1-0 TO 7*32*8 
30 VPOKE BASE(1D+13*32*8+I,8 
40 NEXT 
■ 110 GOTO 5000 

I 4000 OPEN "GRP : " FOR OUTPUT AS 



U:PRESET(X,Y) : PRINT #1,A$ 
4010 CLOSE II : RETURN 
5000 PP — 1:RR— 1 

5010 PI-4*ATN(1) :C-PI/1B0:PY — 2 

0000:PZ-2000:W-150 

5110 LINE(10.0)-(245,80) ,2,B 

5120 FOR K-0 TO 3 : CIRCLE (35+K*6 

0,128) ,25,2:NEXT 

5130 PAINTÍ255.191) ,2 

5140 X-35:Y-128:GOSUB 70O0:X-15 

5:GOSUB 7000:X-215:GOSUB 7000 

5150 COLOR 1 :X-6:Y-88:A$-"AIRSP 

EED":GOSUB 4000 : X-78 : A$-"HORIZ* 

: GOSUB 4000 

5160 X-126:A$=*ALTITUDE-:GOSUB 
4000:X-204:AS="RPM-:GOSUB 4000 
5170 COLOR 15:X-9:Y-160:A$-"BEA 
RING-:GOSUB 4000 : X-74 : AS*"RUNUA 
Y" : GOSUB 4000 

5180 X=13B:AS="DRIFT" : GOSUB 400 
0 :X>188: A3-"DISTANCE" :GOSUB 400 
0 

5190 DRAU "BM81.126C10P.9F5E5P9" 
5500 GOTO 5500 

7000 FOR K-0 TO 9 : LINE (X+21*SIN 
(K*PI/5) ,Y-21*COS(K*PI/5> )- (X+l 
9*SIN(X*PI/5> ,Y-19*COS(K*PI/5) ) 
, 2 : NEXT : RETURN 

A linha 10 seleciona a tela e suas co- 
res. O FOR... NEXT das três linhas se- 
guintes muda a cor de fundo de parte 
da tela para vermelho médio — COLOR 
8. Assim, o fundo colorido dos mostra- 
dores não sofrerá a interferência de co- 
mandos gráficos do BASIC que, em ge- 
ral, só atuam na cor de frente. 

A linha 1 10 transfere o programa pa- 
ra a linha 5000, que estabelece os valo- 
res iniciais de algumas variáveis. Junta- 
mente com a linha 5010, ela posiciona 
o avião no céu: a 20.000 metros do cen- 
tro da pista e a 2.000 metros de altitu- 
de, parado no ar. As linhas que movi- 
mentam o aparelho serão apresentadas 
no próximo artigo. 

A linha 5110 desenha a janela fron- 
tal do avião, e a linha 5120, os círculos 
dos mostradores. A 5130 colore todo o 
interior da cabine. A cor usada nessas 
três linhas deve ser a mesma. As linhas 
5140 e 5180 rotulam os mostradores e 
contadores do painel. Para escrever na 
tela gráfica é utilizada a sub-rotina da 
linha 4000. Esta abre um "arquivo" 
com saída para a tela gráfica — OPEN 
"GRP:" — e imprime o conteúdo da 
variável alfanumérica AS, a partir das 
coordenadas X,Y. 

A linha 5190 desenha um aeroplano 
esquemático no mostrador de horizon- 
te. As marcas nos mostradores são de- 
senhadas pela sub-rotina 7000. 

Executando o programa agora,' o in- 
terior da cabine aparecerá na tela. 



2*8+64*8-1: REAO B: POK 
E 1,8: NEXT 

100 DATA 0,0,0,0,0.0,0,0 
110 DATA 8,8,8.8,0,0,8,0 
120 DATA 18, 18, 1B, 0,0, 0,0,0 
130 DATA 18,18,63.18,63.18.18 
.0 

140 DATA 8 .60 .10 , 2B ,40 ,3 



170 DATA 24,16,8.0,0.0.0,0 



DATA 
DATA 
DATA 
DATA 
DATA 



32,16.8,8,8,16.32,0 
2.4,8,8,8,4,2,0 
0.8,42,28,28,42,8.0 
0. 8.8.62.8,8. 0 , 0 
0,0.0,0.0,24,16,8 



DATA 0.0.0.62,0,0,0,0 

DATA 0 , 0 . 0 , 0 , 0 , 24 . 24 . 0 

DATA 64.32.16,8,4.2.1.0 

DATA 26,34,38,42,50,34.28 



DATA 
DATA 
DATA 
DATA 
DATA 



16,24,20.16,16.16.56 
28.34.32,24,4.2.62, 
28,34.32,24,32,34,28 
16.24.20.18.62.16,16 
62,2,2,30.32,34.28.0 



[HEI 
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320 DATA 



, 2, 30 , 34 ■ 34. 28, 



350 DATA 28.34.34,60.32.34,26 



360 
370 
380 
390 
400 
410 
420 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 



470 
480 
490 



DATA 
DATA 
DATA 



0,24,24.0,0,24.24.0 
0,24,24,0.0.24.16,8 
32,16,8.4,8.16,32,0 
0.0,0,62,0,62,0,0 
4,8.16,32,16,8.4,0 
29,34,32,16,8,8.0,8 
28.34,58.42,58,2,60. 

B, 20. 34, 34, 62, 34, 34, 

30,34.34.30.34,34,30 



530 DATA 



62,2,2,62.2,2.62,0 
62,2, 2,30,2. 2,2,0 
28,34 ,2.58, 34, 34,28, 

34,34,34,62,34,34,34 

24,8.8,8.8,6,28,0 
56,16,16,16,18,16,28 

34,18,10,6,10,18,34, 



DATA 
DATA 



34.38,42,42.50,34.34 
28, 34, 34, 34. 34, 34,28 



600 DATA 30,34,34,30.18.34,34 



670 

680 

690 

700 

710 

,0 

720 

730 

740 



DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 

GOTO 



60,2,2.28.32.32,30.0 

62.8,8,8,8,6.8,0 

34,34,34,34,34.34,26 

34,34,34,34,34.20,8, 

65,65,65,73,85,99,65 

34.34.20.6,20,34,34, 

34 , 34, 34, 20, 8, B, 8,0 
62,32,16,8,4,2,62,0 
60 ,4 , 4 ,4,4,4,60.0 
1,2,4,8,16.32,64,0 
30,16,16,16,16,16,30 

8,20,34,0,0,0,0.0 
0,0,0,0,0,0.62,0 
5000 



4000 N - L * 40 + C 

4010 FOR J - 1 TO LEN (AS) 

4020 B3 « MID3 (A3.J.1) 

4030 B - ASC (B3) 

4040 L - INT (N / 40) :C - N - 

40 * L 

4050 FOR I - 0 TO 7 

4060 POKE T + (L - 8 • (L > 7) 

- 8 * (L > 15) ) * 128 + 40 * ( 
L > 7) +■ 40 « (L > 15) + C + 10 
24 * I, PEEK (E + B ■ 8 + I) 
4070 NEXT I:N - N + 1: NEXT J 
4080 RETURN 
5000 PP - - 1:RR - - 1 
5010 PI = 4 * ATN [11 tC - PI / 

1B0:C1 - PI / 10:PY - - 20000 
:PZ - 2000:AS - 150 
5110 HGR2 : HCOLOR- 6: HPLOT 1 
0,0 TO 276,0 TO 276,80 TO 10,80 

TO 10,0 

5120 HCOLOR- 3: FOR K - 0 TO 3 
: HPLOT 71 + K « 68.134: FOR I 
- 0 TO 10 STEP PI / 10: HPLOT 
TO 42 + K • 68 + 30 * COS (Cl 
+ I * PI / 5) ,134 + 26 * SIN ( 
Cl + I * PI / 5) : NEXT I.K 
5130 C - 2:L - 12:AS - "AIRSPEE 
D": GOSUB 4000:C - 12:AS - "HOR 
I20N- : GOSUB 4000 
5140 C ■= 22:AS » "ALTITUDE": GO 
SUB 4000:C - 33:A$ ■ "RPM": GOS 
UB 4000 
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5150 C = Z:L = 21:A$ = "BEARING 
GOSUB 4000 :C - 1 3 : AS = "RUNW 
AY": GOSUB 4000 

5160 C - 23:AS = "DRIFT" : GOSUB 
4000:C = 31:AS - "DISTANCE": G 
OSUB 4000 

5170 HCOL0R- 5: HPLOT 85,134 T 
O 104,134 TO 109,144 TO 114.134 

TO 134,134 
5180 HCOLOR- 3: FOR K - 0 TO 3 
■ IF K = 1 THEN NEXT K 
5190 FOR I - 0 TO 9: HPLOT 42 
+ K ■ 68 + 28 * COS <C1 + I * 
PI / 5), 134 + 24 * SIN (Cl + I 

* PI / 5) TO 42 + K * 68 + 26 
« COS (Cl 4 I * PI / 5), 134 + 
22 « SIN (Cl + I • PI / 5) : NE 
XT I.K 



QD 



• 



Os usuários do TK-2000, além de não 
copiarem as linhas de 10 a 4080, devem 
fazer as seguintes modificações no 
programa. 

740 GOTO 5000 

4000 BTAB G + 1: VTAB L + li P 
RI NT AS 
4010 RETURN 
5100 MP 

5120 HC0LOR- 3: FOR K - 0 TO 3 
:XX = 71 + K « 68:YY - 134: FOR 
I - 0 TO 10 STEP PI / 10:X « 4 
2 + K * 68 + 30 * COS (Cl + I 
* PI / 5) :Y - 134 4 26 • SIN < 
Cl + I * PI / 5) ! HPLOT XX. YY T 
O X,Y:XX = X:YY - Y: NEXT I.K 

As linhas iniciais criam um banco de 
blocos no topo da memória, para que 
o Apple possa escrever na tela. Essas li- 
nhas já foram apresentadas em artigo 
anterior, quando explicamos o uso de 
blocos gráficos: pode ser, portanto, que 
você nào precise digitá-las novamente. 
O TK-2000 pode escrever na tela gráfi- 
ca sem esse artifício; assim, seus usuá- 
rios devem começar a digitação a partir 
da linha 5000. 

Como vamos utilizar a página 2, ar- 
mazenamos o banco de blocos em ou- 
tra área da memória, devidamente reser- 
vada por meio de HIMEM:. 

A sub-rotina que começa na linha 
4000, responsável pela impressão de pa- 
lavras na tela gráfica, è essencialmente 
a mesma publicada em artigo anterior, 
só que com outro número de linhas. Os 
usuários do TK-2000 dispõem de uma 
versão bem mais simples dessa sub- 
rotina. Na realidade, ela poderia ser dis- 
pensada neste micro; resolvemos 
introduzi-la aqui para que os programas 
do Apple e do TK-2000 não ficassem 
muito diferentes. 

As linhas 5000 e 5010 posicionam o 
avião no céu: a 20.000 metros do cen- 
tro da pista e a 2.000 metros de altitu- 
de, parado no ar. As linhas que movi- 



mentam o aparelho serão apresentadas 
no próximo artigo. 

A linha 5 1 10 desenha o pára-brisa do 
avião. No TK-2000 há um comando MP 
■para ativar a segunda página de vídeo; 
no Apple, isso é feito por HGR2. Note 
que o programa do TK-2000 deve con- 
ter HGR2 também, para permitir o uso 
das linhas inferiores da tela. 

A linha 5 120, um pouco diferente pa- 
ra os dois micros, desenha os círculos 
dos mostradores. As linhas 5130 a 5160 
rotulam os mostradores e contadores do 
painel em inglês, como nos aviões reais. 
A 5170 traça o diagrama de um aeropla- 
no no mostrador de horizonte. As mar- 
cas nos mostradores são feitas pelas li- 
nhas 5180 e 5190. 

Ao ser executado, o programa dese- 
nhará o interior da cabine de nosso apa- 
relho imaginário. 



10 PCLEAR 8:PMODE 4,1 
20 DIM LES (26) 

30' FOR K-0 TO 26 : READ LES(K):NE 
XT 

40 FOR K-0 TO 9 : READ NUS(K):NEX 
T 

50 DATA BR 2 , ND4R3D2NL3ND2BE2 , ND 
4R3DGNL2FDNL3BU4BR2 , NR3D4R3BU4B 
R2 . ND4R2FD2GL2BE4BR, NR3D2NR2D2R 
3BU4BR2 

60 DATA NR3D2NR2D2BE4BR . NR3D4R3 

U2LBE2BR, D4BR3U2NL3U2BR2 .ND4BH2 

, BD4REU3L2R3BR2 . D2ND2NF2E2BR2 

70 DATA D4R3BU4BR2 , ND4FREND4BR2 

, ND4F3DU4BR2 . NR3D4R3U4BR2 , ND4R3 

D2NL3BE2 . NR3D4R3NHU4BR2 

80 DATA ND4R3D2L2F2BU4BH2 , BD4R3 

U2L3U2R3BR2 . RND4RBR2 , D4R2U4BR2 , 

D3FEU3BR2 , D4EFU4BR2 

90 DATA DF2DBL2UE2UBR2 , DFND2EUB 

R2 , R3G3DR3BU4BR2 

100 DATA NR2D4R2U4BR2 , BDEND4BR2 

, R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R 

2U4BR2 . D2R2D2U4BR2 . NR2D2R2D2L2B 

E4 , D4R2U2L2BE2BR2 , R2ND4BR2 , NR2D 

4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 

110 GOTO 5000 

4000 FOR K-l TO LEN (AS) 

4010 BS=MIDSfAS,K.l) 

4020 IF BS>-"0" AND BS<-"9" THE 

N DRAW NUS (VAL (BS) ! ! GOTO 4050 

4030 IF B3-" " THEN N=0 ELSE N- 

ASC(BS)-64 

4040 DRAW LES (N ) 

4050 NEXT : RETURN 

5000 PP— 1:BB — 1 

5010 PI-4*ATN(1) :C-PI/180:PY— 2 

0000:PZ-2000:W-150 

5110 PCLS:LINE(10,0)-(245,80> . P 

SET,B 

5120 FOR K-0 TO 3 : CIRCLE (35+K*6 
0,120) ,25,5:NEXT 

5130 DRAW "BM18 .86S4* : AS-"AIRSP 
EED":GOSUB 4000:DRAW "BMB0 , 88" : 
AS-"HORIZON" :GOSUB 4000 
5140 DRAW -BM140.88":AS-'ALTITU 
DE":G0SUB 4000 : DRAWBM20B ,88" : A 



S-"RPM" :GOSUB 4000 
5150 DRAW "BM1 B , 160" : AS-"BEARIN 
G":GOSUB 4000 : DRAW"BMS2 , 152" : AS 
-"RUNWAY" : GOSUB 4000 ; DRAW"BM80 , 
160" : AS- "BEARING" : GOSUB 4000 
5160 DRAW"BM144. 160" :AS-"DRIFT" 
:GOSUB 4000 :DRAW"BM200 , 160" : AS- 
"DISTANCE" :GOSUB 4000 
5170 DRAW"BM81.118R9F5E5R9" 
5180 X-35:Y-120:GOSUB 7000:X-15 
S:GOSUB 70O0:X-215:GOSUB 7000 
5190 PCOPY 3 TO 5:PCOPY 3 TO 7: 
PCOPY 4 TO 6: PCOPY 4 TO 8:SCREE 
N 1,1 

5500 GOTO 5500 

7000 FOR K-0 TO 9 : LINE (X+24*SIN 
(K*PI/5) ,Y-24*COS(K"PI/5) ) - (X+2 
l*SIN(K*PI/5) ,Y-21*COS<K*PI/5) ) 
, PSET : NEXT : RETURN 

A primeira pane do simulador inclui 
um comando ainda não utilizado em IN- 
PUT: PCOPY, que assegura a movi- 
mentação suave da imagem na tela. 

As linhas 20 a 110 preparam as ma- 
trizes que não contêm os blocos gráfi- 
cos necessários ao desenho da cabine. A 
sub-rotina das linhas 4000 e 4050 impri- 
me os gráficos na tela. 

As linhas 5000 e 5010 posicionam o 
aparelho no céu: a 20.000 metros do 
centro da pista e a 2.000 metros de alti- 
tude, parado no ar. As linhas que mo- 
vimentam o aparelho serão apresenta- 
das no próximo artigo. 

A linha 5110 desenha o pára-brisa, 
5 1 20 desenha os círculos dos mostrado- 
res, e as linhas 5130 a 5160 rotulam os 
mesmos — em inglês, como nos aviões 
reais. A linha 5170 coloca o diagrama 
de um avião no mostrador de horizon- 
te. As marcas nos mostradores são de- 
senhadas peia linha 5180 e pela sub- 
rotina da linha 7000. 

Os comandos PCOPV na linha 5190 
desenham gráficos em páginas ainda in- 
visíveis e depois copiam-nos na tela. As- 
sim, auxiliam a preservar os desenhos do 
fundo, que são atualízados antes de se- 
rem transferidos para a tela, de modo 
que o lapso de tempo entre um quadro 
e outro seja mínimo. Isso significa que, 
quando o aeroplano está em movimen- 
to, os mostradores são alterados de 
acordo, simultaneamente. Sem PCOPY, 
apenas um mostrador poderia ser atua- 
lizado de cada vez. 

Ao executar esta seção do programa, 
o interior da cabine aparecerá desenha- 
do na tela. 

No próximo artigo, apresentaremos 
as linhas que fazem o avião voar, em- 
bora ainda sem controle. Ele vagará pe- 
los céus, mergulhando e subindo ao aca- 
so. Você poderá controlá-lo quando 
concluir o programa, no terceiro e últi- 
mo artigo. Finalmente, a vida dos pas- 
sageiros estará em suas mãos. 
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0 QUE E UM STUB 


■ 


NOVOS COMANDOS NO MICRO 


■ 


RECUPERAÇÃO DE PROGRAMAS 



O BASIC do TRS-Color não é intocável. 
Pode-se modificá-lo para incluir novos 
comandos, o que é útil sobretudo quando 
o micro executa tarefas que empregam 
certas rotinas repetidas vezes. 



O BASIC é apenas um programa em 
linguagem de máquina funcionando em 
seu microcomputador. Ainda que as ins- 
truções executadas estejam codificadas 
na memória ROM, no TRS-Color é pos- 
sível fazer algumas modificações para 
criar novos comandos. 



Esta possibilidade revela-se bastante 
útil nos casos em que usamos o compu- 
tador para realizar uma tarefa específi- 
ca que emprega determinadas rotinas re- 
petidas vezes. Neste artigo, criaremos 
duas novas instruções destinadas ao mi- 
cro TRS-Color. 
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A rotina que se segue acrescenta dois 
comandos ao BASIC do TRS-Color: 
OLD, que permite a recuperação de um 
programa apagado acidentalmente com 
NEW. e INVERT, que troca o grupo de 
quatro cores que estiver sendo utiliza- 
do na tela gráfica. 
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360 

37fl 
380 



,1.. 



4 



OBG 31000 
SETUP LDX *298 
LDU *308 
STONE LDA ,X 
STA ,U+ 
CMPX Í308 
B LO STONE 
LDA |2 
STA 296 

LDX INEWRDS 

STX 299 

LDX tNEWDSP 

STX 301 

LDX INEUUSR 

STX 176 

LDU (S8B8D 

LDA tlO 

STTWO STU 

DE CA 

BNE STTWO 

RTS^PB 
NEWRDS FCB 79,76.196 
FCB 73,78.86,69.82.212 
NEWDSP CMPA ISCE 
BLO NDONE 
CMPA (SDC 
8HS NDONZ,. i 
SUBA tSCSgf 
U>X INEUTBL 
JMP S84ED 
rtrííDONE JMP S89B4 
VS)LD LDU 25 
' PSHS U 
LEAX 4.U 
OLDONE LDA 
BNE OLDONE 
TFR X.D 
SUBD ,S++ 
TSTA 

BEQ OLDTWO 
JMP S3B8D 

OLDTWO STX 
OLDTHfi TFR X.U 
LDX 

BNE OLDTH 
LEAU 2.U 
STU 27 
STU 29 
STU 31 
RTS 

INVERT LDA 65314 
EORA (8 

STA 65314 
RTS ^ 
NEWTBL FDB S7 
FDB $7989 
NEWUSR EQU 



grama BASIC, é necessário que reser- 
vemos as palavras correspondentes. Te- 
mos, assim, que ampliar a lista de pala- 
vras reservadas, bem comodirigir o BA- 
SIC aos programas em código que exe- 
cutam as novas funções. 

A posição das rotinas que executam 
os comandos BASIC é apontada por de- 
terminados vetores — ou apontadores 
— que ficam em porções da memória 
denominadas stubs. Existem normal- 
mente dois stubs, cada um ocupando 
dez bytes da memória RAM. O segun- 
do deles, porém, é só um sinalizador de 
final de tabela, não tendo outra função. 

Quando acrescentamos instruções de- 
vemos criar também um stub que aponte 
para as novas rotinas. Mas, antes dis- 
so, é preciso deslocar- o stub que indica 
o fim da tabela para uma posição mais 
alta na memória, criando o espaço ne- 

O endereço inicial do segundo stub é 
298, e as primeiras seis instruções do 
Tograma aqui apresentado uansferem- 
io para 308. O registro X é usado co- 
mo apontador paru o stub original, en- 
quanto O registro U aponta para sua no-' 
va posição. Os operandos ,X + e ,U + 
incrementam esses apontadores a cada 
volta do laço STONE. 

Este programa não pode ser usado 
em sistemas com disquete, pois os co- 
mandos de disco usam o mesmo stub. 



alt; 
ces 

29í 
pre 
no 

mn 




ADICIONE SEUS PRÓPRIOS COMANDOS 

Depois de entender como funcio- 
nam os stubs no reconhecimento dos 
comandos BASIC, o programador po- 
de crtar seos próprios comandos. Quem 
já tem uma certa experiência deve co- 
meçar pelos comandos sem operan- 
dos, como os deste artigo. Qualquer ro- 
tina pode se transformar num coman- 
do desse tipo. Basta o BASIC encon- 
trar o novo comando em uma linha de 
programa, e o controle é desviado pa- 
ra a rotina em código cujo endereço es- 
tá no stub. Após sua execução, o con- 
trole retorna ao interpretador. 

Comandos que operam sobre núme- 
ros ou variáveis exigem muito do pro- 
gramador. Se os números não forem in- 
teiros, ele terá de conhecer os segre- 
dos da aritmética de ponto flutuante e 
dos números decimais codificados em 
binário. Além de um bom conhecimen- 
to de linguagem de máquina, é preciso 
um profundo domínio da arquitetura do 
TRS-Color; ao mesmo tempo, deve-se 
saber onde ficam as variáveis do sis- 
tema, como são armazenadas as variá- 
veis e as linhas BASIC, e onde podem 
ser colocados temporarit 
lores dos operandos. 

1 — ■ 
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CRIACA0 DE UM NOVO STUB 



a vez garantido o espaço necessá- 
memóna de acesso aleatório e ter- 
INE, passamos á cria 




**oVkque 
r- e 177 aponta pa 

a- têm o enflereço 



!TR X.U 

****** 



O primeiro byte desse novo stub cor- 
responde ao número de instruções apon- 
tadas por ele. Portanto, LDA#2eSTA 
298 colocam o número 2 no primeiro 
byte. ^JB 

Os dois próximos bytes trazem o en- 
dereço da tabela de nomes de comandos. 
Estes nomes aparecem imediatamente 
após o rótulo NEWRDS, com suas le- 
tras codificadas uma a uma em ASCTI. 
Só não ocorre o mesmo com a última 
letra da cada palavra, que se distingue 
por ter seu bit mais significativo ativa- 
do. Assim, D — última letra do coman- 
do OLD — é representada pelo seu có- 
digo ASCII. 68, mais I0OOOOOO em bi- 
nário ou 128 em decimal (68 + 128 = 
196)._Da mesma maneira, o T de IN- B/ 



jue fica nos endereços 176 
1 para as posições que con- 
i de rotinas L'SR Estas 
posições ficam geralmente logo aí 
do segundo stub, em uma tabela q^ 
meça em 308. O segundo stub, 

~f dentrcJ_ 

p o novojákb, 

USR Também pre- 




cisa 
LI 
cam o' 
posiçõei 



L-SK e STX 176 colo- 
pttiloNEWT SR nas 
EQU *, que fica la- 
no final do progra- 
mos bjWi para a ta- 



OS CÓDIGOS DOS NOVOS COMANDOS 



Para acrescentar comandos ao pro- 



VERT será 212 e não 84. 

Finalmente , quarto o e o quinto bytes 
trazem o endereço inicial das rotinas que 
executam os comandos. Esse endereço 
é encontrado nos bytes após o rótulo 
NEWTBL. ^Êf+ m 




O código de maior valor usa 
IASIC é CD. Assim, os có^f 
dois novos _p 

CMP; 
ficam se 
xo do 

ocorrer e o primeiro stub não th 
conhecido o comando, houve um erro 
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de sintaxe. O microprocessador é, en- 
tão, enviado ao rótulo NDONE que, 
por sua vez, provoca um salto p8Tí 
dereço 89B4 — uma sub-rotina da 



ROM 




aiorqi 
a faixa 
pvas in: 

Jois teS' 
fce ele correspon 
s comandos. O pro- 
, então, segue cm frente. CE c 
subtraído do valor do código, que está 
em A. O resultado permanece em A. 

O endereço inicial da tabela de ende- 
reços dos novos comandos é colocado 
em X. Assim, quando o processador vai 
para S4ED — uma rotina que cuida do 
reconhecimento dos vários comandos 
BASIC — , leva consigo os valores con- 
tidos em X e em S^^^^ 



A ROTINA DO COMANDO 01D 



Quando usamos NEW para apagar 
um programa, os valores de diversas va- 
riáveis do sistema modíficam-se. Se res- 
taurarmos os valores dessas variáveis 
antes de digitarmos outro programa ou 
-' de usarmos um comando PCLEAR, pO- 




Sá há uma forma de o micro aceitar 
instruções adicionais? 

Não. Embora os diversos modelos 
de micro tenham um BASIC semelhan- 
te, o programa que o entende varia 
muito de um para outro: alguns não 
tem stubs, e novas instruções devem 
ser adicionadas sem estes. 

Podemos chamar de "sistema" o 
programa existente na ROM que enten- 
de o BASIC. Ele deve ser muito bem or- 
ganizado para poder associar a cada 
comando a rotina em código certa 
(muitas vezes os comandos agem so- 
bre operandos, o que complica ainda 
mais a tarefa do sistema). Assim, ele 
mantém diversas tabelas com endere- 
ços e valores que o orientam na inter- 
pretação do BASIC. Os stubs nada 
mais são que tabelas desse tipo. Mas 
existem outras. A principal maneira de 
se adicionar novos comandos ao BA- 
SIC de uma máquina consiste em alte- 
rar determinados valores nessas tabe- 
las de controle. 



deremos recuperar o programa amigo. 
O comando NEW modifica os dois pri- 
meiros bytes da primeira linha do pro- 
grama que se quer recuperar. Esses bytes 
indicam o endereço inicial da linha se- 
guinte. Outras variáveis do sistema que 
apontam o final da área do projrama 
BASIC também são modificadas. O que 
o comando OLD faz 6 restaurar o valor 
original de todos esses apontadores. 

A rotina que cuida disso começa com 
a instrução £DU 25, que coloca o con- 
teúdo das posições 25 e 26 no registro 
U. Elas contêm o endereço inicial do 
programa BASIC. PSHS U coloca este 
valor na pilha, para que possamos 
recuperá-lo mais tarde. 

A instrução LEAX 4,U cuida do en- 
dereço do byte 4, contado a partir do 
início do BASIC. Os dois primeiros 
bytes — 0 e 1 — continham o endereço 
da próxima tinha. Os dois seguintes — 
2 e 3 — , o número da linha. Assim, U 
contém agora o primeiro byte da linha 
propriamente dita. ttjÊ^' 

LDA ,X+ coloca este byte no acu- 
mulador e incrementa X. BNE OLDO- 
NE faz o processador repetir essa i ns- 
irução até encontrar um zero, que sina- 
liza o final da linha BASIC. 

Quando o programa encontra uni ze- 
ro e sai do laço, X já foi incrementado 
e aponta para o endereço inicial da pró- 
xima linha BASIC. 



VERIFICAÇÃO DE ERROS 



Sc o comando OLD for acionado 
sem que haja um programa BASIC 
aproveitável na memória, devemos im- 
pedir que o lixo que porventura esteja 
na área BASIC seja recuperado. Preci- 
samos, assim, de um teSte que verifique 
se a primeira linha ainda faz sentido. 

Para fazer isso. o conteúdo do apon- 
tador X é colocado em D e dele subtraí- 
mos o último item da pilha — o endere- 
ço inicial do BASIC — com SUBD 
,S+ + . O resultado indica o compri- 
mento da primeira linha, que permane- 
ce armazenada em D. O apontador da 
pilha e decrementado, o que retira o en- 
dereço inicial do BASIC da pilha. 

TSTA lesta o acumulador A, isto é, 
verifica o conteúdo do byte mais signi- 
ficativo de D (os registros A e Bjuntos 
constituem o registro D) e estabelece os 
sinalizadores de acordo. BEQ OLD- 
TWO salta as instruções seguintes, se o 
sinalizador zero foi ativado. Se o con- 
teúdo de A não for zero, o registro D 
continha um valor maior que 255 — o 
maior número de bytes que uma linha 
BASIC pode conter. Nesse caso, o pro- 
cessador é enviado para a rotina dame- 
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mória ROM, em 8B8D, que emit 
mensagem de erro. 



RESTAURE OS APONTADORES 



O registro U aponta para o primeiro 
byie da primeira linha BASIC. Assim, 
para restaurar o apontador do inicio da 
linha seguinte, colocamos o valor de X 
no endereco apontado por U, usando 
STX ,U* V v 

O passo seguinte é descobrir onde fi- 
ca o final da área do programa BASIÇ 
O laço tÍLDTHR trata diss o. 

Como os dois primeiros bytes d 
qualquer linha apontam para o inicio da 
seguinte, é fácil saltar de linha em linha, 
transferindo o conteúdo de X para U e 
colocando em X o valor contido nas p 
sições apontadas por U. X contem o 
dereço da próxima linha, que e coka< 
em U, U aponta, então, para os ddl 
bytes que contêm o endereço da linhí 
que fica ainda mais adiante, este valor 
é colocado em X. tir 

O mesmo laço é executado repetidas 
vezes, até que se encontre uma linha cu- 
jos dois primeiros bytes sejam 00 00. Es- 
te é o final do programa BASIC. Quan- 
do ele é encontrado, o processador sai 
do laço. 

O endereço que fica logo acima.des- 
ses dois últimos bytes é colocado em L\ 
que passa a apontar para o inicio da área 
das variáveis. 

STU 27, STU 29. e STU 31 copiam 
esse endereço nas variáveis do sistema 
que ficam em 28 e 29, apontando para 
o inicio da área de variáveis, em 29 e 30, 
apontando para o inicio da tabela de" 
matrizes; e cm 31 e 52, apontando para 
o topo da RAM usada: 

RTS retorna ao BftSIÇ^- '' 



Aposição de memória FF22 fica na 
memória de entrada e saída — l/O — 
de periféricos e controla a saída de da- 
dos gráficos para a tela. O bit 3 dessa 
posição determina o grupo de cores que 
está sendo utilizado. 

LDA SEF22 coloca o conteúdo da- 
quele endereço no acumulador e o bit 3 
c alterado pela operação lógica ' 'ou ex- 
clusivo", entre A e 8 (000ÓHXX), em bi- 
nário). O resultado é recolocado em 
FF22, e RTS volta ao BASIC. 

Essa rotina simplesmente alterna dois 
grupos de cores, fazendo com que tudo 
o que está representado na cor de l 
grupo assurtií- a cor correspondente do. 
outro grupo de cor 

O programa não é recolocável. 
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